[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 5428b5b: Use completion-ignore-case instead of de
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] emacs-25 5428b5b: Use completion-ignore-case instead of defining command |
Date: |
Sat, 06 Feb 2016 03:14:25 +0000 |
branch: emacs-25
commit 5428b5b24c18ea14916a38c9462df79936dea62b
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Use completion-ignore-case instead of defining command
* lisp/erc/erc.el (erc-mode): Set completion-ignore-case so
that we get case-insensitive completion.
(erc-completion-at-point): Remove.
---
lisp/erc/erc.el | 10 ++--------
1 files changed, 2 insertions(+), 8 deletions(-)
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 295c2c0..1a126a8 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -1141,7 +1141,7 @@ which the local user typed."
(define-key map "\C-c\C-u" 'erc-kill-input)
(define-key map "\C-c\C-x" 'erc-quit-server)
(define-key map "\M-\t" 'ispell-complete-word)
- (define-key map "\t" 'erc-completion-at-point)
+ (define-key map "\t" 'completion-at-point)
;; Suppress `font-lock-fontify-block' key binding since it
;; destroys face properties.
@@ -1463,6 +1463,7 @@ Defaults to the server buffer."
(concat "\C-l\\|\\(^" (regexp-quote (erc-prompt)) "\\)"))
(set (make-local-variable 'paragraph-start)
(concat "\\(" (regexp-quote (erc-prompt)) "\\)"))
+ (setq-local completion-ignore-case t)
(add-hook 'completion-at-point-functions 'erc-complete-word-at-point nil t))
;; activation
@@ -3991,13 +3992,6 @@ Prompt for one if called interactively."
(format "MODE %s +k %s" tgt key)
(format "MODE %s -k" tgt)))))
-(defun erc-completion-at-point ()
- "Perform completion on the text around point case-insensitively.
-See `completion-at-point'."
- (interactive)
- (let ((completion-ignore-case t))
- (completion-at-point)))
-
(defun erc-quit-server (reason)
"Disconnect from current server after prompting for REASON.
`erc-quit-reason' works with this just like with `erc-cmd-QUIT'."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 5428b5b: Use completion-ignore-case instead of defining command,
Lars Ingebrigtsen <=