diff lisp/mh-e/mh-alias.el @ 95689:5f60e74ca391

(mh-alias-read-address-map): Define within defvar.
author John Paul Wallington <jpw@pobox.com>
date Sun, 08 Jun 2008 21:47:08 +0000
parents 90c9ebd43589
children a9dc0e7c3f2b
line wrap: on
line diff
--- a/lisp/mh-e/mh-alias.el	Sun Jun 08 21:46:14 2008 +0000
+++ b/lisp/mh-e/mh-alias.el	Sun Jun 08 21:47:08 2008 +0000
@@ -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"