Mercurial > emacs
diff lisp/emacs-lisp/autoload.el @ 22242:00ce0bf9b723
(generate-file-autoloads): Set
print-escape-nonascii when printing autoload form.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 25 May 1998 20:32:19 +0000 |
parents | ea83fc4c4f77 |
children | 7db7ffb27feb |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Mon May 25 20:31:58 1998 +0000 +++ b/lisp/emacs-lisp/autoload.el Mon May 25 20:32:19 1998 +0000 @@ -240,7 +240,8 @@ (elt (cdr p))) (setcdr p nil) (princ "\n(" outbuf) - (let ((print-escape-newlines t)) + (let ((print-escape-newlines t) + (print-escape-nonascii t)) (mapcar (function (lambda (elt) (prin1 elt outbuf) (princ " " outbuf))) @@ -269,11 +270,13 @@ 1) outbuf)) (terpri outbuf))) - (let ((print-escape-newlines t)) + (let ((print-escape-newlines t) + (print-escape-nonascii t)) (print autoload outbuf))) (if (eq (car autoload-1) 'progn) ;; Print the rest of the form - (let ((print-escape-newlines t)) + (let ((print-escape-newlines t) + (print-escape-nonascii t)) (mapcar (function (lambda (elt) (print elt outbuf))) (cddr autoload-1)))))