diff options
| author | Stephen Berman | 2016-06-14 23:43:20 +0200 |
|---|---|---|
| committer | Stephen Berman | 2016-06-14 23:43:20 +0200 |
| commit | d7084f2260943287cdfb5e3021ac33aab6a14c6d (patch) | |
| tree | f79f568c8e9729100759c1d394e9fa505a6946d4 | |
| parent | 27dec5264facbd13fdbe37980dd1d70045f60b3f (diff) | |
| download | emacs-d7084f2260943287cdfb5e3021ac33aab6a14c6d.tar.gz emacs-d7084f2260943287cdfb5e3021ac33aab6a14c6d.zip | |
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 8e752586053..f0d4bc5961b 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 | |||
| 5750 | against categories in that file; otherwise complete against all | 5750 | against categories in that file; otherwise complete against all |
| 5751 | categories from `todo-category-completions-files'." | 5751 | categories from `todo-category-completions-files'." |
| 5752 | ;; Allow SPC to insert spaces, for adding new category names. | 5752 | ;; Allow SPC to insert spaces, for adding new category names. |
| 5753 | (let ((map minibuffer-local-completion-map)) | 5753 | (let ((minibuffer-local-completion-map |
| 5754 | (define-key map " " nil) | 5754 | (copy-keymap minibuffer-local-completion-map))) |
| 5755 | (define-key minibuffer-local-completion-map " " 'self-insert-command) | ||
| 5755 | (let* ((add (eq match-type 'add)) | 5756 | (let* ((add (eq match-type 'add)) |
| 5756 | (archive (eq match-type 'archive)) | 5757 | (archive (eq match-type 'archive)) |
| 5757 | (file0 (when (and file (> (length todo-files) 1)) | 5758 | (file0 (when (and file (> (length todo-files) 1)) |