From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 8 Jun 2008 21:47:08 +0000 (+0000)
Subject: (mh-alias-read-address-map): Define within defvar.
X-Git-Tag: emacs-pretest-23.0.90~4991
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b4093c022450f5fd3bac9010b48602461b6956a;p=emacs.git

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

diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el
index 8eeaaa7f55e..ef96a90c5ab 100644
--- a/lisp/mh-e/mh-alias.el
+++ b/lisp/mh-e/mh-alias.el
@@ -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"