From 0dde8858aebea5d441e0156d7649f766706d45d7 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 17 Feb 2008 09:43:09 +0000 Subject: [PATCH] * wl-message.el (wl-message-buffer-cache-buffer-get) (wl-message-buffer-cache-folder-get) (wl-message-buffer-cache-message-get) (wl-message-buffer-cache-entry-make) (wl-message-buffer-cache-hit): New backquote style. --- wl/ChangeLog | 6 ++++++ wl/wl-message.el | 12 ++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index aa474e2..9d6c0f9 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,11 @@ 2008-02-17 TAKAHASHI Kaoru + * wl-message.el (wl-message-buffer-cache-buffer-get) + (wl-message-buffer-cache-folder-get) + (wl-message-buffer-cache-message-get) + (wl-message-buffer-cache-entry-make) + (wl-message-buffer-cache-hit): New backquote style. + * wl-folder.el (wl-folder-buffer-group-p): Use quote instead of backquote. (wl-folder-unread-regex, wl-folder-entity-exists-p) diff --git a/wl/wl-message.el b/wl/wl-message.el index 81338cb..1584414 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -85,21 +85,21 @@ With association ((\"folder\" message \"message-id\") . cache-buffer).") (defmacro wl-message-buffer-cache-buffer-get (entry) - (` (cdr (, entry)))) + `(cdr ,entry)) (defmacro wl-message-buffer-cache-folder-get (entry) - (` (car (car (, entry))))) + `(car (car ,entry))) (defmacro wl-message-buffer-cache-message-get (entry) - (` (cdr (car (, entry))))) + `(cdr (car ,entry))) (defmacro wl-message-buffer-cache-entry-make (key buf) - (` (cons (, key) (, buf)))) + `(cons ,key ,buf)) (defmacro wl-message-buffer-cache-hit (key) "Return value assosiated with key." - (` (wl-message-buffer-cache-buffer-get - (assoc (, key) wl-message-buffer-cache)))) + `(wl-message-buffer-cache-buffer-get + (assoc ,key wl-message-buffer-cache))) (defun wl-message-buffer-cache-sort (entry) "Move ENTRY to the top of `wl-message-buffer-cache'." -- 1.7.10.4