diff options
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 7 |
1 files changed, 3 insertions, 4 deletions
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) |