From: kaoru <kaoru>
Date: Mon, 11 Feb 2008 07:17:12 +0000 (+0000)
Subject: * wl-addrbook.el (wl-addrbook-hashtb): Use quote instead of backquote.
X-Git-Tag: wl-2_15_6-fixes~59
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dd66390cc6d391295896e18a6d6823af5fba2daf;p=elisp%2Fwanderlust.git

* wl-addrbook.el (wl-addrbook-hashtb): Use quote instead of backquote.
(wl-alias-next, wl-alias-get): New backquote style.
---

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  <kaoru@kaisei.org>
+
+	* 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  <yamaoka@jpl.org>
 
 	* 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)