branch: externals/org
commit 4fdfe9c5842e44cb563ded5e77700c23abe46d92
Author: Marco Wahl <[email protected]>
Commit: Marco Wahl <[email protected]>
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/[email protected]/
---
lisp/org-attach.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-attach.el b/lisp/org-attach.el
index ee25660768..5cf51ba728 100644
--- a/lisp/org-attach.el
+++ b/lisp/org-attach.el
@@ -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)
