emacs-diffs
[Top][All Lists]
Advanced

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

master 65aa5608f2c 1/3: Prefer defvar-keymap in dired.el


From: Stefan Kangas
Subject: master 65aa5608f2c 1/3: Prefer defvar-keymap in dired.el
Date: Thu, 12 Dec 2024 22:57:14 -0500 (EST)

branch: master
commit 65aa5608f2c02bb90742d4d176c61182915f7755
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Prefer defvar-keymap in dired.el
    
    * lisp/dired.el (dired-mouse-drag-files-map)
    (dired-click-to-select-map): Convert to defvar-keymap.
---
 lisp/dired.el | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/lisp/dired.el b/lisp/dired.el
index 9895229694a..028b862d159 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1962,13 +1962,12 @@ other marked file as well.  Otherwise, unmark all 
files."
                        ;; a remote file.
                        (user-error (cadr error)))))))))))
 
-(defvar dired-mouse-drag-files-map (let ((keymap (make-sparse-keymap)))
-                                     (define-key keymap [down-mouse-1] 
#'dired-mouse-drag)
-                                     (define-key keymap [C-down-mouse-1] 
#'dired-mouse-drag)
-                                     (define-key keymap [S-down-mouse-1] 
#'dired-mouse-drag)
-                                     (define-key keymap [M-down-mouse-1] 
#'dired-mouse-drag)
-                                     keymap)
-  "Keymap applied to file names when `dired-mouse-drag-files' is enabled.")
+(defvar-keymap dired-mouse-drag-files-map
+  :doc "Keymap applied to file names when `dired-mouse-drag-files' is enabled."
+  "<down-mouse-1>"   #'dired-mouse-drag
+  "C-<down-mouse-1>" #'dired-mouse-drag
+  "S-<down-mouse-1>" #'dired-mouse-drag
+  "M-<down-mouse-1>" #'dired-mouse-drag)
 
 (defvar dired-click-to-select-mode)
 (defvar dired-click-to-select-map)
@@ -5290,8 +5289,8 @@ Interactively with prefix argument, read FILE-NAME."
 
 ;;; Click-To-Select mode
 
-(defvar dired-click-to-select-map (make-sparse-keymap)
-  "Keymap placed on files under `dired-click-to-select' mode.")
+(defvar-keymap dired-click-to-select-map
+  :doc "Keymap placed on files under `dired-click-to-select' mode.")
 
 (define-key dired-click-to-select-map [mouse-2]
             #'dired-mark-for-click)



reply via email to

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