diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-10-14 01:32:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-10-14 01:32:25 +0000 |
| commit | 7dab57b625b1de0e88bf3fab56665e5f05f779ad (patch) | |
| tree | 9f10099ea297444a31e75e51b0658e8717a7f9b9 /lisp/emacs-lisp/autoload.el | |
| parent | 65247564667db48f8395316cb6c9b63cb6094e6a (diff) | |
| download | emacs-7dab57b625b1de0e88bf3fab56665e5f05f779ad.tar.gz emacs-7dab57b625b1de0e88bf3fab56665e5f05f779ad.tar.bz2 emacs-7dab57b625b1de0e88bf3fab56665e5f05f779ad.zip | |
(autoload-print-form): Cleanup.
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) |