andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the Scroll key binding on Windows

Browse source 
* lisp/bindings.el (global-map): Fix the binding on Windows
(bug#38007).

* lisp/scroll-lock.el (scroll-lock-mode): The event is `scroll' on
Windows, not `Scroll_Lock'.
This commit is contained in:
Lars Ingebrigtsen 2022-02-07 04:57:27 +01:00
parent cb09a1120e
commit de419bba04
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/bindings.el
View file

@ -1160,7 +1160,9 @@ if `inhibit-field-text-motion' is non-nil."
;(define-key global-map [delete] 'backward-delete-char)
;; natural bindings for terminal keycaps --- defined in X keysym order
(define-key global-map [Scroll_Lock] 'scroll-lock-mode)
(define-key global-map
(if (eq system-type 'windows-nt) [scroll] [Scroll_Lock])
#'scroll-lock-mode)
(define-key global-map [C-S-backspace] 'kill-whole-line)
(define-key global-map [home] 'move-beginning-of-line)
(define-key global-map [C-home] 'beginning-of-buffer)

2
lisp/scroll-lock.el
View file

@ -55,7 +55,7 @@ will scroll the buffer by the respective amount of lines instead
and point will be kept vertically fixed relative to window
boundaries during scrolling.
Note that the default key binding to Scroll_Lock will not work on
Note that the default key binding to `scroll' will not work on
MS-Windows systems if `w32-scroll-lock-modifier' is non-nil."
:lighter " ScrLck"
:keymap scroll-lock-mode-map