diff options
author | Pierre Neidhardt <ambrevar@gmail.com> | 2017-12-29 22:04:34 +0100 |
---|---|---|
committer | Pierre Neidhardt <ambrevar@gmail.com> | 2017-12-29 22:06:59 +0100 |
commit | f586070b598b1a19842212686e88df346f1ebc1f (patch) | |
tree | 8f5b4e9b02a9247d34cd9b9122adf7d5f8dbb643 | |
parent | 1ba1707f398b541baee516a9314b1ae1cc2f5bae (diff) |
Define all mode-maps with defvar instead of defconst
-rw-r--r-- | lisp/emms-browser.el | 4 | ||||
-rw-r--r-- | lisp/emms-mark.el | 2 | ||||
-rw-r--r-- | lisp/emms-metaplaylist-mode.el | 2 | ||||
-rw-r--r-- | lisp/emms-playlist-mode.el | 2 | ||||
-rw-r--r-- | lisp/emms-show-all.el | 2 |
5 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emms-browser.el b/lisp/emms-browser.el index 1f4981a..8aaa601 100644 --- a/lisp/emms-browser.el +++ b/lisp/emms-browser.el @@ -438,7 +438,7 @@ Called once for each directory." (defvar emms-browser-current-filter-name nil "The name of the current filter in place, if any.") -(defconst emms-browser-mode-map +(defvar emms-browser-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "q") 'emms-browser-bury-buffer) (define-key map (kbd "/") 'emms-isearch-buffer) @@ -484,7 +484,7 @@ Called once for each directory." map) "Keymap for `emms-browser-mode'.") -(defconst emms-browser-search-mode-map +(defvar emms-browser-search-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map emms-browser-mode-map) (define-key map (kbd "q") 'emms-browser-kill-search) diff --git a/lisp/emms-mark.el b/lisp/emms-mark.el index 696fe2d..de9d346 100644 --- a/lisp/emms-mark.el +++ b/lisp/emms-mark.el @@ -238,7 +238,7 @@ this function collects the result of FUNC." ;;}}} ;;{{{ mode stuff -(defconst emms-mark-mode-map +(defvar emms-mark-mode-map (let ((map (make-sparse-keymap))) (define-key map "W" 'emms-mark-copy-marked-tracks) (define-key map "K" 'emms-mark-kill-marked-tracks) diff --git a/lisp/emms-metaplaylist-mode.el b/lisp/emms-metaplaylist-mode.el index 4f84a01..819cffb 100644 --- a/lisp/emms-metaplaylist-mode.el +++ b/lisp/emms-metaplaylist-mode.el @@ -78,7 +78,7 @@ ;;; Keymap ;;; -------------------------------------------------------- -(defconst emms-metaplaylist-mode-map +(defvar emms-metaplaylist-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map text-mode-map) (define-key map (kbd "n") 'next-line) diff --git a/lisp/emms-playlist-mode.el b/lisp/emms-playlist-mode.el index b042ab8..3d65914 100644 --- a/lisp/emms-playlist-mode.el +++ b/lisp/emms-playlist-mode.el @@ -112,7 +112,7 @@ This is true for every invocation of `emms-playlist-mode-go'." ;;; Keys ;;; -------------------------------------------------------- -(defconst emms-playlist-mode-map +(defvar emms-playlist-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map text-mode-map) (define-key map (kbd "C-x C-s") 'emms-playlist-save) diff --git a/lisp/emms-show-all.el b/lisp/emms-show-all.el index 79af217..8613b68 100644 --- a/lisp/emms-show-all.el +++ b/lisp/emms-show-all.el @@ -45,7 +45,7 @@ "Major mode for `emms-show-all' \\{emms-show-all-mode-map}") -(defconst emms-show-all-mode-map +(defvar emms-show-all-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map text-mode-map) (define-key map (kbd "q") 'emms-show-all-mode-bury-buffer) |