From dd66390cc6d391295896e18a6d6823af5fba2daf Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 11 Feb 2008 07:17:12 +0000 Subject: [PATCH] * wl-addrbook.el (wl-addrbook-hashtb): Use quote instead of backquote. (wl-alias-next, wl-alias-get): New backquote style. --- utils/ChangeLog | 6 ++++++ utils/wl-addrbook.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/utils/ChangeLog b/utils/ChangeLog index 4412fc5..6423b88 100644 --- a/utils/ChangeLog +++ b/utils/ChangeLog @@ -1,3 +1,9 @@ +2008-02-11 TAKAHASHI Kaoru + + * wl-addrbook.el (wl-addrbook-hashtb): Use quote instead of + backquote. + (wl-alias-next, wl-alias-get): New backquote style. + 2007-11-10 Katsumi Yamaoka * ptexinfmt.el (texinfo-copying-text, texinfo-copying) diff --git a/utils/wl-addrbook.el b/utils/wl-addrbook.el index bbca3ae..5a8c3a9 100644 --- a/utils/wl-addrbook.el +++ b/utils/wl-addrbook.el @@ -100,8 +100,8 @@ If nil, the old 'user' entry remains.") ;; hash table for wl-addrbook-alist (defmacro wl-addrbook-hashtb () - (` (or wl-addrbook-hashtb - (setq wl-addrbook-hashtb (elmo-make-hash 1021))))) + '(or wl-addrbook-hashtb + (setq wl-addrbook-hashtb (elmo-make-hash 1021)))) (defsubst wl-addrbook-get-record-by-addr (addr &optional alist) (elmo-get-hash-val (downcase addr) (wl-addrbook-hashtb))) @@ -180,10 +180,10 @@ If nil, the old 'user' entry remains.") ;; (defmacro wl-alias-get (key) - (` (wl-addrbook-alias-get (, key) wl-addrbook-alist))) + `(wl-addrbook-alias-get ,key wl-addrbook-alist)) (defmacro wl-alias-next (key) - (` (wl-addrbook-alias-next (, key) wl-addrbook-alist))) + `(wl-addrbook-alias-next ,key wl-addrbook-alist)) (defalias 'wl-addrbook-alias-hit 'wl-addrbook-get-record-by-alias) -- 1.7.10.4