From f586070b598b1a19842212686e88df346f1ebc1f Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <ambrevar@gmail.com>
Date: Fri, 29 Dec 2017 22:04:34 +0100
Subject: Define all mode-maps with defvar instead of defconst

---
 lisp/emms-browser.el           | 4 ++--
 lisp/emms-mark.el              | 2 +-
 lisp/emms-metaplaylist-mode.el | 2 +-
 lisp/emms-playlist-mode.el     | 2 +-
 lisp/emms-show-all.el          | 2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'lisp')

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)
-- 
cgit v1.2.3