summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2020-02-12 09:24:33 +0100
committerBastien <bzg@gnu.org>2020-02-12 09:24:33 +0100
commit04e9d848edda1b818803adbe5da869c3e63eed22 (patch)
tree7dc60bd40e98ac9810d5b88c2459eef154303907
parentd614c89f5dc7301293463c5b4d6e83c78cac5a2f (diff)
downloadorg-mode-04e9d848edda1b818803adbe5da869c3e63eed22.tar.gz
Fix org-attach dispatch enhancement
-rw-r--r--lisp/org-attach.el7
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)