diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-05-10 23:13:19 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-05-11 16:12:00 +0200 |
| commit | 4299bf6da78f786a6db7880009d61addba55c71f (patch) | |
| tree | ed4200722cf9e3dede106484b8f9a8f92691ca02 /lisp/scroll-lock.el | |
| parent | 9971a309aab7a8b4055fb0f2ee749da2fae6e3ed (diff) | |
| download | emacs-4299bf6da78f786a6db7880009d61addba55c71f.tar.gz | |
* lisp/scroll-lock.el (scroll-lock-mode-map): Prefer defvar-keymap.
Diffstat (limited to 'lisp/scroll-lock.el')
| -rw-r--r-- | lisp/scroll-lock.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/lisp/scroll-lock.el b/lisp/scroll-lock.el index 3f5f777f53f..fa1f3a633b5 100644 --- a/lisp/scroll-lock.el +++ b/lisp/scroll-lock.el @@ -30,15 +30,13 @@ ;;; Code: -(defvar scroll-lock-mode-map - (let ((map (make-sparse-keymap))) - (define-key map [remap next-line] 'scroll-lock-next-line) - (define-key map [remap previous-line] 'scroll-lock-previous-line) - (define-key map [remap forward-paragraph] 'scroll-lock-forward-paragraph) - (define-key map [remap backward-paragraph] 'scroll-lock-backward-paragraph) - (define-key map [S-down] 'scroll-lock-next-line-always-scroll) - map) - "Keymap for Scroll Lock mode.") +(defvar-keymap scroll-lock-mode-map + :doc "Keymap for Scroll Lock mode." + "<remap> <next-line>" #'scroll-lock-next-line + "<remap> <previous-line>" #'scroll-lock-previous-line + "<remap> <forward-paragraph>" #'scroll-lock-forward-paragraph + "<remap> <backward-paragraph>" #'scroll-lock-backward-paragraph + "S-<down>" #'scroll-lock-next-line-always-scroll) (defvar-local scroll-lock-preserve-screen-pos-save scroll-preserve-screen-position "Used for saving the state of `scroll-preserve-screen-position'.") |