diff options
author | Bastien <bzg@gnu.org> | 2020-02-12 09:24:33 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-12 09:24:33 +0100 |
commit | 04e9d848edda1b818803adbe5da869c3e63eed22 (patch) | |
tree | 7dc60bd40e98ac9810d5b88c2459eef154303907 | |
parent | d614c89f5dc7301293463c5b4d6e83c78cac5a2f (diff) | |
download | org-mode-04e9d848edda1b818803adbe5da869c3e63eed22.tar.gz |
Fix org-attach dispatch enhancement
-rw-r--r-- | lisp/org-attach.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org-attach.el b/lisp/org-attach.el index f47ffde..2e9ade4 100644 --- a/lisp/org-attach.el +++ b/lisp/org-attach.el @@ -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) |