diff options
author | Bastien Guerry <bzg@altern.org> | 2011-10-21 17:46:37 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-10-21 17:46:37 +0200 |
commit | 5091facd7f4ec80cce86049d6d84a164cb017970 (patch) | |
tree | 637b9a736ec181099dbc5080d41a7f09ee0858fb | |
parent | b2632dc45873f22da708ba8bcc20be5f67d3efeb (diff) | |
download | org-mode-5091facd7f4ec80cce86049d6d84a164cb017970.tar.gz |
org.el: Enable recursive minibuffers in `org-completing-read'.
org.el: (org-completing-read): Enable recursive minibuffers and add
the `C-c !' key in the minibuffer local map.
Thanks to Skip Collins for the idea and to Nick Dokos for the
implementation.
-rw-r--r-- | lisp/org.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 8ea691c..81a17f6 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9159,10 +9159,12 @@ Use TAB to complete link prefixes, then RET for type-specific completion support (defun org-completing-read (&rest args) "Completing-read with SPACE being a normal character." - (let ((minibuffer-local-completion-map + (let ((enable-recursive-minibuffers t) + (minibuffer-local-completion-map (copy-keymap minibuffer-local-completion-map))) (org-defkey minibuffer-local-completion-map " " 'self-insert-command) (org-defkey minibuffer-local-completion-map "?" 'self-insert-command) + (org-defkey minibuffer-local-completion-map (kbd "C-c !") 'org-time-stamp-inactive) (apply 'org-icompleting-read args))) (defun org-completing-read-no-i (&rest args) |