emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 3832e5360b 4/4: Prefer defvar-keymap and keymap-set in recentf.el


From: Stefan Kangas
Subject: master 3832e5360b 4/4: Prefer defvar-keymap and keymap-set in recentf.el
Date: Thu, 23 Jun 2022 06:49:11 -0400 (EDT)

branch: master
commit 3832e5360bd71c90eb0f7ad88f0daf001de8b3d3
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Prefer defvar-keymap and keymap-set in recentf.el
    
    * lisp/recentf.el (recentf-mode-map): Prefer defvar-keymap.
    (recentf--shortcuts-keymap): Prefer keymap-set.
---
 lisp/recentf.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/recentf.el b/lisp/recentf.el
index 6729ede167..b31aafc9dc 100644
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -160,7 +160,7 @@ If nil add it at end of menu (see also 
`easy-menu-add-item')."
                  (const :tag "Last" nil))
   :set 'recentf-menu-customization-changed)
 
-(defcustom recentf-menu-action 'find-file
+(defcustom recentf-menu-action #'find-file
   "Function to invoke with a filename item of the recentf menu.
 The default is to call `find-file' to edit the selected file."
   :group 'recentf
@@ -481,7 +481,7 @@ See also the command `recentf-open-most-recent-file'."
              (interactive)
              (recentf-open-most-recent-file ,k)))
         ;; Bind it to a digit key.
-        (define-key km (vector (+ k ?0)) cmd)))
+        (keymap-set km (format "%d" k) cmd)))
     km)
   "Digit shortcuts keymap.")
 
@@ -1337,8 +1337,8 @@ That is, remove duplicates, non-kept, and excluded files."
 
 ;;; The minor mode
 ;;
-(defvar recentf-mode-map (make-sparse-keymap)
-  "Keymap to use in recentf mode.")
+(defvar-keymap recentf-mode-map
+  :doc "Keymap to use in `recentf-mode'.")
 
 ;;;###autoload
 (define-minor-mode recentf-mode



reply via email to

[Prev in Thread] Current Thread [Next in Thread]