Mercurial > emacs

changeset 47867:f91cebb0f333

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(autoload-print-form): Cleanup.
author Richard M. Stallman <rms@gnu.org>
date Mon, 14 Oct 2002 01:32:25 +0000
parents 5177877a5328
children 10e55e51ecdc
files lisp/emacs-lisp/autoload.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el	Mon Oct 14 01:31:35 2002 +0000
+++ b/lisp/emacs-lisp/autoload.el	Mon Oct 14 01:32:25 2002 +0000
@@ -184,10 +184,9 @@
 	    (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)