From 5428b5b24c18ea14916a38c9462df79936dea62b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 6 Feb 2016 14:13:57 +1100 Subject: [PATCH] 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 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 295c2c055e2..1a126a80343 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'." -- 2.39.2