Define the prefix-map as a global variable

This commit is contained in:
ziggy
2023-12-13 10:00:16 -05:00
committed by Seth Ladygo
parent 67047df970
commit 1bac80a0ee

View File

@ -185,9 +185,8 @@ If t, ask for confirmation."
:type 'boolean :type 'boolean
:group 'eyebrowse) :group 'eyebrowse)
(defvar eyebrowse-mode-map (defvar eyebrowse-mode-prefix-map
(let ((map (make-sparse-keymap)) (let ((prefix-map (make-sparse-keymap)))
(prefix-map (make-sparse-keymap)))
(define-key prefix-map (kbd "<") 'eyebrowse-prev-window-config) (define-key prefix-map (kbd "<") 'eyebrowse-prev-window-config)
(define-key prefix-map (kbd ">") 'eyebrowse-next-window-config) (define-key prefix-map (kbd ">") 'eyebrowse-next-window-config)
(define-key prefix-map (kbd "'") 'eyebrowse-last-window-config) (define-key prefix-map (kbd "'") 'eyebrowse-last-window-config)
@ -206,7 +205,13 @@ If t, ask for confirmation."
(define-key prefix-map (kbd "9") 'eyebrowse-switch-to-window-config-9) (define-key prefix-map (kbd "9") 'eyebrowse-switch-to-window-config-9)
(define-key prefix-map (kbd "c") 'eyebrowse-create-window-config) (define-key prefix-map (kbd "c") 'eyebrowse-create-window-config)
(define-key prefix-map (kbd "C-c") 'eyebrowse-create-window-config) (define-key prefix-map (kbd "C-c") 'eyebrowse-create-window-config)
(define-key map eyebrowse-keymap-prefix prefix-map) prefix-map)
"Initial prefix key map for `eyebrowse-mode'."
)
(defvar eyebrowse-mode-map
(let ((map (make-sparse-keymap)))
(define-key map eyebrowse-keymap-prefix eyebrowse-mode-prefix-map)
map) map)
"Initial key map for `eyebrowse-mode'.") "Initial key map for `eyebrowse-mode'.")