Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/scroll-lock.el (scroll-lock-mode-map): Prefer defvar-keymap.

Browse source
This commit is contained in:
Stefan Kangas 2022-05-10 23:13:19 +02:00
parent 9971a309aa
commit 4299bf6da7
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/scroll-lock.el
View file

@ -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'.")