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

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index d538ddc94ef6223b2bc51c02ca955c0261eb328c..79e44c96256fef743907fc14dc3fbea27048e2ec 100644 (file)
--- 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 87c59cd81369306191480167fd89873140ebe387..fd64d8a6902bd830aa7f378eefede7283526065b 100644 (file)
--- 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))
 
 \f