From 6b4093c022450f5fd3bac9010b48602461b6956a Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sun, 8 Jun 2008 21:47:08 +0000 Subject: [PATCH] (mh-alias-read-address-map): Define within defvar. --- lisp/mh-e/mh-alias.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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" -- 2.39.2