diff options
| author | Stephen Berman | 2016-06-15 20:08:16 +0200 |
|---|---|---|
| committer | Stephen Berman | 2016-06-15 20:08:16 +0200 |
| commit | 5d4d8a3932f8867f79effeafa4c337b8e4208fe8 (patch) | |
| tree | 6637618c5a6abe14bcaea21203f9f5199956061c | |
| parent | d7084f2260943287cdfb5e3021ac33aab6a14c6d (diff) | |
| download | emacs-5d4d8a3932f8867f79effeafa4c337b8e4208fe8.tar.gz emacs-5d4d8a3932f8867f79effeafa4c337b8e4208fe8.zip | |
Improve last todo-mode fix
* lisp/calendar/todo-mode.el (todo-read-category): Use
set-keymap-parent instead of copy-keymap, and default (as
previously) to the global binding (for rationale, see
http://lists.gnu.org/archive/html/emacs-devel/2016-06/msg00217.html).
| -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 f0d4bc5961b..7cfec137b04 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el | |||
| @@ -5751,8 +5751,9 @@ 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 ((minibuffer-local-completion-map | 5753 | (let ((minibuffer-local-completion-map |
| 5754 | (copy-keymap minibuffer-local-completion-map))) | 5754 | (let ((map (make-sparse-keymap))) |
| 5755 | (define-key minibuffer-local-completion-map " " 'self-insert-command) | 5755 | (set-keymap-parent map minibuffer-local-completion-map) |
| 5756 | (define-key map " " nil)))) | ||
| 5756 | (let* ((add (eq match-type 'add)) | 5757 | (let* ((add (eq match-type 'add)) |
| 5757 | (archive (eq match-type 'archive)) | 5758 | (archive (eq match-type 'archive)) |
| 5758 | (file0 (when (and file (> (length todo-files) 1)) | 5759 | (file0 (when (and file (> (length todo-files) 1)) |