diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-07 04:57:27 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-07 04:58:49 +0100 |
commit | de419bba04601b163def31308d63c51ed90b1458 (patch) | |
tree | ba17af5dcc1dfc0f077db0f4f86b746afa282f90 /lisp/bindings.el | |
parent | cb09a1120e94bda3f4ddad644bbd1a1f1f9641f7 (diff) | |
download | emacs-de419bba04601b163def31308d63c51ed90b1458.tar.gz |
Fix the Scroll key binding on Windows
* 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'.
Diffstat (limited to 'lisp/bindings.el')
-rw-r--r-- | lisp/bindings.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 26b17035ef9..8ae8c3d60ef 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -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) |