diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-02 06:25:01 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-02 06:36:26 +0200 |
commit | 6c9c8b09b974e6cd356038a4308c61195b547e35 (patch) | |
tree | e014747ba7a0972e9376cbaa75fd56adb327ed1a /lisp/ruler-mode.el | |
parent | 8b6c9169f498e6f0bd147e4f6e7d339c3b1132de (diff) |
* lisp/ruler-mode.el (ruler-mode-map): Use defvar-keymap.
Diffstat (limited to 'lisp/ruler-mode.el')
-rw-r--r-- | lisp/ruler-mode.el | 45 |
1 files changed, 15 insertions, 30 deletions
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index f0efc20f037..0b18697cea7 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el @@ -509,36 +509,21 @@ START-EVENT is the mouse click event." (setq ruler-mode-show-tab-stops (not ruler-mode-show-tab-stops)) (force-mode-line-update)) -(defvar ruler-mode-map - (let ((km (make-sparse-keymap))) - (define-key km [header-line down-mouse-1] - #'ignore) - (define-key km [header-line down-mouse-3] - #'ignore) - (define-key km [header-line down-mouse-2] - #'ruler-mode-mouse-grab-any-column) - (define-key km [header-line (shift down-mouse-1)] - #'ruler-mode-mouse-set-left-margin) - (define-key km [header-line (shift down-mouse-3)] - #'ruler-mode-mouse-set-right-margin) - (define-key km [header-line (control down-mouse-1)] - #'ruler-mode-mouse-add-tab-stop) - (define-key km [header-line (control down-mouse-3)] - #'ruler-mode-mouse-del-tab-stop) - (define-key km [header-line (control down-mouse-2)] - #'ruler-mode-toggle-show-tab-stops) - (define-key km [header-line (shift mouse-1)] - #'ignore) - (define-key km [header-line (shift mouse-3)] - #'ignore) - (define-key km [header-line (control mouse-1)] - #'ignore) - (define-key km [header-line (control mouse-3)] - #'ignore) - (define-key km [header-line (control mouse-2)] - #'ignore) - km) - "Keymap for ruler minor mode.") +(defvar-keymap ruler-mode-map + :doc "Keymap for `ruler-mode'." + "<header-line> <down-mouse-1>" #'ignore + "<header-line> <down-mouse-3>" #'ignore + "<header-line> <down-mouse-2>" #'ruler-mode-mouse-grab-any-column + "<header-line> S-<down-mouse-1>" #'ruler-mode-mouse-set-left-margin + "<header-line> S-<down-mouse-3>" #'ruler-mode-mouse-set-right-margin + "<header-line> C-<down-mouse-1>" #'ruler-mode-mouse-add-tab-stop + "<header-line> C-<down-mouse-3>" #'ruler-mode-mouse-del-tab-stop + "<header-line> C-<down-mouse-2>" #'ruler-mode-toggle-show-tab-stops + "<header-line> S-<mouse-1>" #'ignore + "<header-line> S-<mouse-3>" #'ignore + "<header-line> C-<mouse-1>" #'ignore + "<header-line> C-<mouse-3>" #'ignore + "<header-line> C-<mouse-2>" #'ignore) (defvar ruler-mode-header-line-format-old nil "Hold previous value of `header-line-format'.") |