mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:07:52 +00:00
Code Releases Activity

Fix org-attach dispatch enhancement

Browse source
This commit is contained in:
Bastien 2020-02-12 09:24:33 +01:00
parent d614c89f5d
commit 04e9d848ed
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-attach.el
View file

@ -290,11 +290,10 @@ Shows a list of commands and prompts for another key to execute a command."
"\n")))))
(org-fit-window-to-buffer (get-buffer-window "*Org Attach*"))
(let ((msg (format "Select command: [%s]"
(concat (mapcar #'caar org-attach-commands))))
key)
(concat (mapcar #'caar org-attach-commands)))))
(message msg)
(while (and (setq key (read-char-exclusive))
(memq key '(14 16 22 134217846)))
(while (and (setq c (read-char-exclusive))
(memq c '(14 16 22 134217846)))
(org-scroll key t)))
(and (get-buffer "*Org Attach*") (kill-buffer "*Org Attach*"))))
(let ((command (cl-some (lambda (entry)