Hi Skip and Nick,

Nick Dokos <nicholas.do...@hp.com> writes:

> Still a proof-of-concept, but better than the first attempt - set
> recursive minibuffers locally and use the standard keybinding:
>
> (defun org-completing-read (&rest args)
>   "Completing-read with SPACE being a normal character."
>   (let ((minibuffer-local-completion-map
>        (copy-keymap minibuffer-local-completion-map))
>       (enable-recursive-minibuffers t))
>     (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)))

I allowed recursive minibuffers in `org-completing-read'.

Thanks for this neat idea and proof-of-concept!

-- 
 Bastien

Reply via email to