(mh-make-seq, mh-seq-name): Use defsubst.

2 files changed, 14 insertions, 4 deletions

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index d538ddc94ef..79e44c96256 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,13 @@
+2008-02-06  Richard Stallman  <rms@gnu.org>
+
+        * mh-seq.el (mh-make-seq, mh-seq-name): Use defsubst.
+
+        * mh-acros.el (mh-do-in-gnu-emacs, mh-do-in-xemacs)
+        (with-mh-folder-updating, mh-in-show-buffer)
+        (mh-iterate-on-messages-in-region, mh-iterate-on-range):
+        (mh-do-at-event-location): Add debug decls.
+        (mh-seq-msgs): Use defsubst.
+        
 2008-02-05  Juanma Barranquero  <lekktu@gmail.com>
 
         * mh-e.el (mh-scan-format-file-check, mh-adaptive-cmd-note-flag-check):
diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el
index 87c59cd8136..fd64d8a6902 100644
--- a/lisp/mh-e/mh-seq.el
+++ b/lisp/mh-e/mh-seq.el
@@ -53,13 +53,13 @@
 
 ;;; Macros
 
-(defmacro mh-make-seq (name msgs)
+(defsubst mh-make-seq (name msgs)
   "Create sequence NAME with the given MSGS."
-  (list 'cons name msgs))
+  (cons name msgs))
 
-(defmacro mh-seq-name (sequence)
+(defsubst mh-seq-name (sequence)
   "Extract sequence name from the given SEQUENCE."
-  (list 'car sequence))
+  (car sequence))