From ec7e11022032348ee23a3586a1306871f9d28b25 Mon Sep 17 00:00:00 2001 From: Vasilij Schneidermann Date: Mon, 14 May 2018 21:19:40 +0200 Subject: [PATCH] Silence byte-compiler warnings, improve code style --- eyebrowse.el | 46 ++++++++++++++++++++++++---------------------- 1 file changed, 24 insertions(+), 22 deletions(-) diff --git a/eyebrowse.el b/eyebrowse.el index 5445c22..d83fa29 100644 --- a/eyebrowse.el +++ b/eyebrowse.el @@ -174,27 +174,27 @@ If t, ask for confirmation." :group 'eyebrowse) (defvar eyebrowse-mode-map - (let ((map (make-sparse-keymap))) - (let ((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) - (define-key prefix-map (kbd "\"") 'eyebrowse-close-window-config) - (define-key prefix-map (kbd ",") 'eyebrowse-rename-window-config) - (define-key prefix-map (kbd ".") 'eyebrowse-switch-to-window-config) - (define-key prefix-map (kbd "0") 'eyebrowse-switch-to-window-config-0) - (define-key prefix-map (kbd "1") 'eyebrowse-switch-to-window-config-1) - (define-key prefix-map (kbd "2") 'eyebrowse-switch-to-window-config-2) - (define-key prefix-map (kbd "3") 'eyebrowse-switch-to-window-config-3) - (define-key prefix-map (kbd "4") 'eyebrowse-switch-to-window-config-4) - (define-key prefix-map (kbd "5") 'eyebrowse-switch-to-window-config-5) - (define-key prefix-map (kbd "6") 'eyebrowse-switch-to-window-config-6) - (define-key prefix-map (kbd "7") 'eyebrowse-switch-to-window-config-7) - (define-key prefix-map (kbd "8") 'eyebrowse-switch-to-window-config-8) - (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)) + (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) + (define-key prefix-map (kbd "\"") 'eyebrowse-close-window-config) + (define-key prefix-map (kbd ",") 'eyebrowse-rename-window-config) + (define-key prefix-map (kbd ".") 'eyebrowse-switch-to-window-config) + (define-key prefix-map (kbd "0") 'eyebrowse-switch-to-window-config-0) + (define-key prefix-map (kbd "1") 'eyebrowse-switch-to-window-config-1) + (define-key prefix-map (kbd "2") 'eyebrowse-switch-to-window-config-2) + (define-key prefix-map (kbd "3") 'eyebrowse-switch-to-window-config-3) + (define-key prefix-map (kbd "4") 'eyebrowse-switch-to-window-config-4) + (define-key prefix-map (kbd "5") 'eyebrowse-switch-to-window-config-5) + (define-key prefix-map (kbd "6") 'eyebrowse-switch-to-window-config-6) + (define-key prefix-map (kbd "7") 'eyebrowse-switch-to-window-config-7) + (define-key prefix-map (kbd "8") 'eyebrowse-switch-to-window-config-8) + (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) 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 "") - (lambda (e) + (lambda (_e) (interactive "e") (eyebrowse-switch-to-window-config slot))) map))