alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Silence byte-compiler warnings, improve code style

Browse Source
This commit is contained in:
Vasilij Schneidermann
2018-05-14 21:19:40 +02:00
parent ad94b5bed7
commit ec7e110220
1 changed files with 24 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
eyebrowse.el
View File

@ -174,8 +174,8 @@ If t, ask for confirmation."
:group 'eyebrowse)
(defvar eyebrowse-mode-map
(let ((map (make-sparse-keymap)))
(let ((prefix-map (make-sparse-keymap)))
(let ((map (make-sparse-keymap))
(prefix-map (make-sparse-keymap)))
(define-key prefix-map (kbd "<") 'eyebrowse-prev-window-config)
(define-key prefix-map (kbd ">") 'eyebrowse-next-window-config)
(define-key prefix-map (kbd "'") 'eyebrowse-last-window-config)
@ -194,7 +194,7 @@ If t, ask for confirmation."
(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-c") 'eyebrowse-create-window-config)
(define-key map eyebrowse-keymap-prefix prefix-map))
(define-key map eyebrowse-keymap-prefix prefix-map)
map)
"Initial key map for `eyebrowse-mode'.")
@ -547,6 +547,8 @@ The specific behaviour is tmux-like."
(slot (eyebrowse-free-slot slots)))
(eyebrowse-switch-to-window-config slot)))
(defvar evil-motion-state-map)
;;;###autoload
(defun eyebrowse-setup-evil-keys ()
"Set up key bindings specific to Evil.
@ -622,7 +624,7 @@ is detected, extra key bindings will be set up with
(keymap
(let ((map (make-sparse-keymap)))
(define-key map (kbd "<mode-line><mouse-1>")
(lambda (e)
(lambda (_e)
(interactive "e")
(eyebrowse-switch-to-window-config slot)))
map))