[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)