mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
org-attach: Clean up some magic numbers
* lisp/org-attach.el (org-attach): Clean up some magic numbers. Patch from Stefan Monnier. https://list.orgmode.org/jwvwni7y70r.fsf-monnier+emacs@gnu.org/
This commit is contained in:
parent
1344376d69
commit
4fdfe9c584
|
@ -314,7 +314,7 @@ Shows a list of commands and prompts for another key to execute a command."
|
|||
(concat (mapcar #'caar org-attach-commands)))))
|
||||
(message msg)
|
||||
(while (and (setq c (read-char-exclusive))
|
||||
(memq c '(14 16 22 134217846)))
|
||||
(memq c '(?\C-n ?\C-p ?\C-v ?\M-v)))
|
||||
(org-scroll c t)))
|
||||
(and (get-buffer "*Org Attach*") (kill-buffer "*Org Attach*"))))
|
||||
(let ((command (cl-some (lambda (entry)
|
||||
|
|
Loading…
Reference in a new issue