From 7dab57b625b1de0e88bf3fab56665e5f05f779ad Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 14 Oct 2002 01:32:25 +0000 Subject: [PATCH] (autoload-print-form): Cleanup. --- lisp/emacs-lisp/autoload.el | 7 +++---- 1 file 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) -- 2.39.2