From: kaoru <kaoru>
Date: Sun, 17 Feb 2008 09:20:25 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-get-entity-id): New backquote style.
X-Git-Tag: wl-2_15_6-fixes~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=efda6cc8bb46cb99a9ff1feb5c294a3bfba52575;p=elisp%2Fwanderlust.git

* wl-fldmgr.el (wl-fldmgr-get-entity-id): New backquote style.
(wl-fldmgr-assign-id): Ditto.
(wl-fldmgr-delete-line): Use quote instead of backquote.
(wl-fldmgr-make-indent): Use `string-to-char' instead of `? '.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index dfbe33d..227cee9 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2008-02-17  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-fldmgr.el (wl-fldmgr-get-entity-id): New backquote style.
+	(wl-fldmgr-assign-id): Ditto.
+	(wl-fldmgr-delete-line): Use quote instead of backquote.
+	(wl-fldmgr-make-indent): Use `string-to-char' instead of `? '.
+
 	* wl-draft.el (wl-smtp-extension-bind, wl-draft-sent-message-p)
 	(wl-draft-set-sent-message): New backquote style.
 	(wl-draft-body-goto-top, wl-draft-body-goto-bottom)
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 821e144..a505606 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -107,27 +107,27 @@
 ;;
 
 (defmacro wl-fldmgr-delete-line ()
-  (` (delete-region (save-excursion (beginning-of-line)
-				    (point))
-		    (save-excursion (end-of-line)
-				    (+ 1 (point))))))
+  '(delete-region (save-excursion (beginning-of-line)
+				  (point))
+		  (save-excursion (end-of-line)
+				  (+ 1 (point)))))
 
 (defmacro wl-fldmgr-make-indent (level)
-  (` (concat " " (make-string (* 2 (, level)) ? ))))
+  `(concat " " (make-string (* 2 ,level) ,(string-to-char " "))))
 
 (defmacro wl-fldmgr-get-entity-id (&optional entity)
-  (` (get-text-property (if (, entity)
-			    0
-			  (point))
-			'wl-folder-entity-id
-			(, entity))))
+  `(get-text-property (if ,entity
+			  0
+			(point))
+		      'wl-folder-entity-id
+		      ,entity))
 
 (defmacro wl-fldmgr-assign-id (entity &optional id)
-  (` (let ((entity-id (or (, id) wl-folder-entity-id)))
-       (put-text-property 0 (length (, entity))
-			  'wl-folder-entity-id
-			  entity-id
-			  (, entity)))))
+  `(let ((entity-id (or ,id wl-folder-entity-id)))
+     (put-text-property 0 (length ,entity)
+			'wl-folder-entity-id
+			entity-id
+			,entity)))
 
 (defsubst wl-fldmgr-read-string (str)
   (if (string-match "\n" str)