mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-22 16:10:44 +00:00
Code Releases Activity

org.el: Enable recursive minibuffers in `org-completing-read'.

Browse source 
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.
This commit is contained in:
Bastien Guerry 2011-10-21 17:46:37 +02:00
parent b2632dc458
commit 5091facd7f
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org.el
View file

@ -9159,10 +9159,12 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
(defun org-completing-read (&rest args) (defun org-completing-read (&rest args)
"Completing-read with SPACE being a normal character." "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))) (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 "?" '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))) (apply 'org-icompleting-read args)))
(defun org-completing-read-no-i (&rest args) (defun org-completing-read-no-i (&rest args)