From 5091facd7f4ec80cce86049d6d84a164cb017970 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 21 Oct 2011 17:46:37 +0200 Subject: [PATCH] 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. --- lisp/org.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 8ea691c77..81a17f6a3 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)