From: Lars Ingebrigtsen Date: Sat, 6 Feb 2016 03:13:57 +0000 (+1100) Subject: Use completion-ignore-case instead of defining command X-Git-Tag: emacs-25.0.91~75 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5428b5b;p=emacs.git 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. --- 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'."