Fix stumpwm ‘*user-keybindings*’ definition

This commit is contained in:
Tom Willemse 2023-07-22 23:06:12 -07:00
parent be28e41bb1
commit a086212b67

View file

@ -152,7 +152,8 @@ after it has been unlocked."
(defvar *user-bindings* (defvar *user-bindings*
(let ((m (make-sparse-keymap))) (let ((m (make-sparse-keymap)))
(define-key m (kbd "s") '*screenshot-bindings*))) (define-key m (kbd "s") '*screenshot-bindings*)
m))
(define-key *top-map* (kbd "s-c") '*user-bindings*) (define-key *top-map* (kbd "s-c") '*user-bindings*)