diff options
| author | Stefan Monnier | 2015-04-13 10:35:15 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-04-13 10:35:15 -0400 |
| commit | f6bdbdf1f58d8fda61bc901b852d25fdf1a1f9da (patch) | |
| tree | 9416759df0c4f9cf55ae7a7628218ea717bb2974 | |
| parent | c9d78e18c66dc46f0988257e0029213ac7eff62b (diff) | |
| download | emacs-f6bdbdf1f58d8fda61bc901b852d25fdf1a1f9da.tar.gz emacs-f6bdbdf1f58d8fda61bc901b852d25fdf1a1f9da.zip | |
(completion-lisp-mode-hook): Use completion-separator-chars
* lisp/completion.el (completion-lisp-mode-hook):
Use completion-separator-chars rather than local key binding.
| -rw-r--r-- | lisp/completion.el | 9 |
1 files 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." | |||
| 2228 | (defun completion-lisp-mode-hook () | 2228 | (defun completion-lisp-mode-hook () |
| 2229 | (setq completion-syntax-table completion-lisp-syntax-table) | 2229 | (setq completion-syntax-table completion-lisp-syntax-table) |
| 2230 | ;; Lisp Mode diffs | 2230 | ;; Lisp Mode diffs |
| 2231 | (local-set-key "!" 'self-insert-command) | 2231 | (setq-local completion-separator-chars |
| 2232 | (local-set-key "&" 'self-insert-command) | 2232 | (cl-set-difference completion-separator-chars |
| 2233 | (local-set-key "%" 'self-insert-command) | 2233 | (append "!&%?=^" nil)))) |
| 2234 | (local-set-key "?" 'self-insert-command) | ||
| 2235 | (local-set-key "=" 'self-insert-command) | ||
| 2236 | (local-set-key "^" 'self-insert-command)) | ||
| 2237 | 2234 | ||
| 2238 | ;; C mode diffs. | 2235 | ;; C mode diffs. |
| 2239 | 2236 | ||