Mercurial > emacs
diff lisp/emacs-lisp/autoload.el @ 47867:f91cebb0f333
(autoload-print-form): Cleanup.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 14 Oct 2002 01:32:25 +0000 (2002-10-14) |
| parents | a0d27828cf39 |
| children | c102d9848214 |
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)