diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2016-06-14 23:43:20 +0200 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2016-06-14 23:43:20 +0200 |
| commit | d7084f2260943287cdfb5e3021ac33aab6a14c6d (patch) | |
| tree | f79f568c8e9729100759c1d394e9fa505a6946d4 | |
| parent | 27dec5264facbd13fdbe37980dd1d70045f60b3f (diff) | |
Fix todo-mode use of minibuffer completion keymap (bug#23695).
* lisp/calendar/todo-mode.el (todo-read-category): Don't
override minibuffer-local-completion-map globally (bug#23695).
Bind <SPC> key to self-insert-command.
| -rw-r--r-- | lisp/calendar/todo-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 8e75258605..f0d4bc5961 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -5750,8 +5750,9 @@ With non-nil argument FILE prompt for a file and complete only against categories in that file; otherwise complete against all categories from `todo-category-completions-files'." ;; Allow SPC to insert spaces, for adding new category names. - (let ((map minibuffer-local-completion-map)) - (define-key map " " nil) + (let ((minibuffer-local-completion-map + (copy-keymap minibuffer-local-completion-map))) + (define-key minibuffer-local-completion-map " " 'self-insert-command) (let* ((add (eq match-type 'add)) (archive (eq match-type 'archive)) (file0 (when (and file (> (length todo-files) 1)) |