[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 4fdfe9c584 1/2: org-attach: Clean up some magic num
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 4fdfe9c584 1/2: org-attach: Clean up some magic numbers |
Date: |
Sun, 6 Feb 2022 18:57:47 -0500 (EST) |
branch: externals/org
commit 4fdfe9c5842e44cb563ded5e77700c23abe46d92
Author: Marco Wahl <marcowahlsoft@gmail.com>
Commit: Marco Wahl <marcowahlsoft@gmail.com>
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/
---
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)