From 23b3162cdecacbc9fb353f5ecb936839b0757a21 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sun, 2 Dec 2001 13:20:01 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-get-entity-id): Ignore nemacs (rewrite with new backquote style). (wl-folder-get-entity-from-buffer): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 17 ++++++----------- 2 files changed, 12 insertions(+), 11 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 3ad2b8b..a1b0a75 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2001-12-02 Yuuichi Teranishi + + * wl-folder.el (wl-folder-get-entity-id): Ignore nemacs (rewrite + with new backquote style). + (wl-folder-get-entity-from-buffer): Ditto. + 2001-12-02 Hiroya Murata * wl-version.el (nemacs-version): Eliminated. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 6c97427..188bd68 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -250,19 +250,14 @@ entity (or hashtb wl-folder-entity-id-name-hashtb)))) (defmacro wl-folder-get-entity-id (entity) - (` (or (get-text-property 0 - 'wl-folder-entity-id - (, entity)) - (, entity)))) ;; for nemacs + `(get-text-property 0 'wl-folder-entity-id ,entity)) (defmacro wl-folder-get-entity-from-buffer (&optional getid) - (` (let ((id (get-text-property (point) - 'wl-folder-entity-id))) - (if (not id) ;; for nemacs - (wl-folder-get-realname (wl-folder-folder-name)) - (if (, getid) - id - (wl-folder-get-folder-name-by-id id)))))) + `(let ((id (get-text-property (point) + 'wl-folder-entity-id))) + (if ,getid + id + (wl-folder-get-folder-name-by-id id)))) (defmacro wl-folder-entity-exists-p (entity &optional hashtb) (` (let ((sym (intern-soft (, entity) -- 1.7.10.4