From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 14 Oct 2002 01:32:25 +0000 (+0000)
Subject: (autoload-print-form): Cleanup.
X-Git-Tag: ttn-vms-21-2-B4~12843
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7dab57b625b1de0e88bf3fab56665e5f05f779ad;p=emacs.git

(autoload-print-form): Cleanup.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 27b24e64210..3b6e7d46bdb 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -184,10 +184,9 @@ markers before we call `read'."
 	    (princ "\n(" outbuf)
 	    (let ((print-escape-newlines t)
 		  (print-escape-nonascii t))
-	      (mapcar (lambda (elt)
-			(prin1 elt outbuf)
-			(princ " " outbuf))
-		      form))
+	      (dolist (elt form)
+		(prin1 elt outbuf)
+		(princ " " outbuf)))
 	    (princ "\"\\\n" outbuf)
 	    (let ((begin (with-current-buffer outbuf (point))))
 	      (princ (substring (prin1-to-string (car elt)) 1)