From 746b2ec272c3135de59f47d6f4b0629250cfef64 Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 15 Jul 2004 11:39:10 +0000 Subject: [PATCH] * elmo-util.el (elmo-set-work-buf): Define edebug spec and indent style. (elmo-bind-directory): Ditto. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-util.el | 7 +++++++ 2 files changed, 13 insertions(+) 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 + + * elmo-util.el (elmo-set-work-buf): Define edebug spec and indent + style. + (elmo-bind-directory): Ditto. + 2004-07-12 Yoichi NAKAYAMA * 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." -- 1.7.10.4