(completion-lisp-mode-hook): Use completion-separator-chars

* lisp/completion.el (completion-lisp-mode-hook): Use completion-separator-chars rather than local key binding.

(completion-lisp-mode-hook): Use completion-separator-chars
* lisp/completion.el (completion-lisp-mode-hook): Use completion-separator-chars rather than local key binding.
f6bdbdf1 · Stefan Monnier · c9d78e18 · f6bdbdf1
Commit f6bdbdf1 authored Apr 13, 2015 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 6 deletions

lisp/completion.el lisp/completion.el +3 -6

No files found.
--- 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.