From: Richard M. Stallman Date: Wed, 6 Feb 2008 17:49:56 +0000 (+0000) Subject: (mh-make-seq, mh-seq-name): Use defsubst. X-Git-Tag: emacs-pretest-22.1.91~58 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27c335693403393b7c38be96e85bf6629972ed2b;p=emacs.git (mh-make-seq, mh-seq-name): Use defsubst. --- 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 + + * 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 * 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))