Mercurial > emacs
changeset 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 | 0a93e911af6b |
| children | ec7420aa37f3 |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
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)))))