From f6bdbdf1f58d8fda61bc901b852d25fdf1a1f9da Mon Sep 17 00:00:00 2001 From: Stefan Monnier <monnier@iro.umontreal.ca> Date: Mon, 13 Apr 2015 10:35:15 -0400 Subject: [PATCH] (completion-lisp-mode-hook): Use completion-separator-chars * lisp/completion.el (completion-lisp-mode-hook): Use completion-separator-chars rather than local key binding. --- lisp/completion.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/completion.el b/lisp/completion.el index d3f118705b7..b53f2d3ac79 100644 --- a/lisp/completion.el +++ b/lisp/completion.el @@ -2228,12 +2228,9 @@ TYPE is the type of the wrapper to be added. Can be :before or :under." (defun completion-lisp-mode-hook () (setq completion-syntax-table completion-lisp-syntax-table) ;; Lisp Mode diffs - (local-set-key "!" 'self-insert-command) - (local-set-key "&" 'self-insert-command) - (local-set-key "%" 'self-insert-command) - (local-set-key "?" 'self-insert-command) - (local-set-key "=" 'self-insert-command) - (local-set-key "^" 'self-insert-command)) + (setq-local completion-separator-chars + (cl-set-difference completion-separator-chars + (append "!&%?=^" nil)))) ;; C mode diffs.