From b99141da55d130cdf6d50b9247a6c10d925a7238 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 4 Feb 2016 17:51:53 +1100 Subject: [PATCH] Make erc completion case-insensitive again * lisp/erc/erc.el (erc-completion-at-point): Make erc completion case-insensitive again (bug#11360). --- etc/NEWS | 4 ++++ lisp/erc/erc.el | 9 ++++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index a3d9e84cc6e..d4691b908e8 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -428,6 +428,10 @@ specified message types for the respective specified targets. --- *** Reconnection is now asynchronous. +--- +*** Nick completion is now case-insentive again after inadvertently +being made case-sensitive in Emacs 24.2. + ** Midnight-mode --- diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 51ab20e330a..7b734460a3c 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" 'completion-at-point) + (define-key map "\t" 'erc-completion-at-point) ;; Suppress `font-lock-fontify-block' key binding since it ;; destroys face properties. @@ -3991,6 +3991,13 @@ Prompt for one if called interactively." (format "MODE %s +k %s" tgt key) (format "MODE %s -k" tgt))))) +(defun erc-completion-at-point () + "Perform complection on the text around point case-insentitively. +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'." -- 2.39.2