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

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/03/16 17:01:12

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

Log message:
        (mh-list-to-string-1): Use dolist.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-e.el.diff?tr1=1.82&tr2=1.83&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.183&tr2=1.184&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.183 emacs/lisp/mh-e/ChangeLog:1.184
--- emacs/lisp/mh-e/ChangeLog:1.183     Thu Mar 16 17:00:02 2006
+++ emacs/lisp/mh-e/ChangeLog   Thu Mar 16 17:01:12 2006
@@ -1,5 +1,7 @@
 2006-03-16  Bill Wohler  <address@hidden>
 
+       * mh-e.el (mh-list-to-string-1): Use dolist.
+
        * mh-compat.el (mh-image-load-path-for-library): Prefer user's
        images.
 
Index: emacs/lisp/mh-e/mh-e.el
diff -u emacs/lisp/mh-e/mh-e.el:1.82 emacs/lisp/mh-e/mh-e.el:1.83
--- emacs/lisp/mh-e/mh-e.el:1.82        Wed Mar 15 17:03:58 2006
+++ emacs/lisp/mh-e/mh-e.el     Thu Mar 16 17:01:12 2006
@@ -427,20 +427,20 @@
 
 (defun mh-list-to-string-1 (l)
   "Flatten the list L and make every element of the new list into a string."
-  (let ((new-list nil))
-    (while l
-      (cond ((null (car l)))
-            ((symbolp (car l))
-             (setq new-list (cons (symbol-name (car l)) new-list)))
-            ((numberp (car l))
-             (setq new-list (cons (int-to-string (car l)) new-list)))
-            ((equal (car l) ""))
-            ((stringp (car l)) (setq new-list (cons (car l) new-list)))
-            ((listp (car l))
-             (setq new-list (nconc (mh-list-to-string-1 (car l))
-                                   new-list)))
-            (t (error "Bad element in `mh-list-to-string': %s" (car l))))
-      (setq l (cdr l)))
+  (let (new-list)
+    (dolist (element l)
+      (cond ((null element))
+            ((symbolp element)
+             (push (symbol-name element) new-list))
+            ((numberp element)
+             (push (int-to-string element) new-list))
+            ((equal element ""))
+            ((stringp element)
+             (push element new-list))
+            ((listp element)
+             (setq new-list (nconc (mh-list-to-string-1 element) new-list)))
+            (t
+             (error "Bad element: %s" element))))
     new-list))