From: Michael Olson <mwolson@gnu.org>
Date: Thu, 1 Nov 2007 04:40:55 +0000 (+0000)
Subject: remember.el (remember-mode-map): Define and initialize in one step.
X-Git-Tag: emacs-pretest-23.0.90~9908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80f0c18f73f7c0559b957942d0e83d60d5a9434d;p=emacs.git

remember.el (remember-mode-map): Define and initialize in one step.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 015ebd9f9db..10df4e1211d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,7 @@
 	remember-buffer to emphasize that this does not have any
 	functional overlap with the `remember' function.
 	(remember-destroy): Remove autoload cookie.
+	(remember-mode-map): Define and initialize in one step.
 
 2007-11-01  Glenn Morris  <rgm@gnu.org>
 
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index e6274b2b56b..9f8ad0aa9c7 100644
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -452,13 +452,12 @@ application."
 
 ;;; Internal Functions:
 
-(defvar remember-mode-map ()
+(defvar remember-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\C-x\C-s" 'remember-finalize)
+    (define-key map "\C-c\C-c" 'remember-finalize)
+    (define-key map "\C-c\C-k" 'remember-destroy))
   "Keymap used in Remember mode.")
-(when (not remember-mode-map)
-  (setq remember-mode-map (make-sparse-keymap))
-  (define-key remember-mode-map "\C-x\C-s" 'remember-finalize)
-  (define-key remember-mode-map "\C-c\C-c" 'remember-finalize)
-  (define-key remember-mode-map "\C-c\C-k" 'remember-destroy))
 
 (defun remember-mode ()
   "Major mode for output from \\[remember].