From: hmurata <hmurata>
Date: Thu, 15 Jul 2004 11:39:10 +0000 (+0000)
Subject: * elmo-util.el (elmo-set-work-buf): Define edebug spec and indent
X-Git-Tag: wl-2_11_31~65
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=746b2ec272c3135de59f47d6f4b0629250cfef64;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-set-work-buf): Define edebug spec and indent
style.
(elmo-bind-directory): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 94af965..b8387f1 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-util.el (elmo-set-work-buf): Define edebug spec and indent
+	style.
+	(elmo-bind-directory): Ditto.
+
 2004-07-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* elmo.el (elmo-folder-append-messages): Note on return value.
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index ed74f45..ce885a7 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -76,11 +76,18 @@
        (erase-buffer)
        (,@ body))))
 
+(put 'elmo-set-work-buf 'lisp-indent-function 0)
+(def-edebug-spec elmo-set-work-buf t)
+
 (defmacro elmo-bind-directory (dir &rest body)
   "Set current directory DIR and execute BODY."
   (` (let ((default-directory (file-name-as-directory (, dir))))
        (,@ body))))
 
+(put 'elmo-bind-directory 'lisp-indent-function 1)
+(def-edebug-spec elmo-bind-directory
+  (form &rest form))
+
 (defun elmo-object-load (filename &optional mime-charset no-err)
   "Load OBJECT from the file specified by FILENAME.
 File content is decoded with MIME-CHARSET."