[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f6bdbdf: (completion-lisp-mode-hook): Use completio
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master f6bdbdf: (completion-lisp-mode-hook): Use completion-separator-chars |
Date: |
Mon, 13 Apr 2015 14:35:20 +0000 |
branch: master
commit f6bdbdf1f58d8fda61bc901b852d25fdf1a1f9da
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
(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 files changed, 3 insertions(+), 6 deletions(-)
diff --git a/lisp/completion.el b/lisp/completion.el
index d3f1187..b53f2d3 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f6bdbdf: (completion-lisp-mode-hook): Use completion-separator-chars,
Stefan Monnier <=