瀏覽代碼

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/
Marco Wahl 3 年之前
父節點
當前提交
4fdfe9c584
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-attach.el

+ 1 - 1
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)