summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2011-10-21 17:46:37 +0200
committerBastien Guerry <bzg@altern.org>2011-10-21 17:46:37 +0200
commit5091facd7f4ec80cce86049d6d84a164cb017970 (patch)
tree637b9a736ec181099dbc5080d41a7f09ee0858fb
parentb2632dc45873f22da708ba8bcc20be5f67d3efeb (diff)
downloadorg-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.el4
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)