From 8d1ada5345b7192b2ee3cb7286b1f54738a70d8a Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Thu, 16 Mar 2006 17:01:12 +0000 Subject: [PATCH] (mh-list-to-string-1): Use dolist. --- lisp/mh-e/ChangeLog | 2 ++ lisp/mh-e/mh-e.el | 28 ++++++++++++++-------------- 2 files changed, 16 insertions(+), 14 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index f9c392724ae..6bec45ec143 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,5 +1,7 @@ 2006-03-16 Bill Wohler + * mh-e.el (mh-list-to-string-1): Use dolist. + * mh-compat.el (mh-image-load-path-for-library): Prefer user's images. diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index 0b8961470a7..84e569bab81 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -427,20 +427,20 @@ gnus-version) (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)) -- 2.39.2