diff options
Diffstat (limited to 'lisp/erc/erc.el')
| -rw-r--r-- | 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 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'." |