[Emacs-commit] emacs/lisp/mh-e mh-seq.el [EMACS_22_BASE]

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Richard M. Stallman <rms>       08/02/06 17:49:49

Modified files:
        lisp/mh-e      : mh-seq.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-seq.el?cvsroot=emacs&only_with_tag=EMACS_22_BASE&r1=1.33.2.2&r2=1.33.2.3

Patches:
Index: mh-seq.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-seq.el,v
retrieving revision 1.33.2.2
retrieving revision 1.33.2.3
diff -u -b -r1.33.2.2 -r1.33.2.3
--- mh-seq.el   7 Jan 2008 01:52:41 -0000       1.33.2.2
+++ mh-seq.el   6 Feb 2008 17:49:49 -0000       1.33.2.3
@@ -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))