[Emacs-commit] emacs/lisp/mh-e mh-alias.el

[John Paul Wallington]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     John Paul Wallington <jpw>      08/06/08 21:47:08

Modified files:
        lisp/mh-e      : mh-alias.el 

Log message:
        (mh-alias-read-address-map): Define within defvar.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-alias.el?cvsroot=emacs&r1=1.36&r2=1.37

Patches:
Index: mh-alias.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-alias.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- mh-alias.el 6 May 2008 03:56:45 -0000       1.36
+++ mh-alias.el 8 Jun 2008 21:47:08 -0000       1.37
@@ -43,13 +43,11 @@
   "Alist of aliases extracted from passwd file and their expansions.")
 (defvar mh-alias-tstamp nil
   "Time aliases were last loaded.")
-(defvar mh-alias-read-address-map nil)
-(unless mh-alias-read-address-map
-  (setq mh-alias-read-address-map
-        (copy-keymap minibuffer-local-completion-map))
-  (define-key mh-alias-read-address-map
-    "," 'mh-alias-minibuffer-confirm-address)
-  (define-key mh-alias-read-address-map " " 'self-insert-command))
+(defvar mh-alias-read-address-map
+  (let ((map (copy-keymap minibuffer-local-completion-map)))
+    (define-key map "," 'mh-alias-minibuffer-confirm-address)
+    (define-key map " " 'self-insert-command)
+    map))
 
 (defvar mh-alias-system-aliases
   '("/etc/nmh/MailAliases" "/etc/mh/MailAliases"