From: Richard M. Stallman Date: Mon, 25 May 1998 20:32:19 +0000 (+0000) Subject: (generate-file-autoloads): Set X-Git-Tag: emacs-20.3~835 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3eb6864cde223adb1e6b34b0f36f1aa04ce80aa5;p=emacs.git (generate-file-autoloads): Set print-escape-nonascii when printing autoload form. --- diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 9744709bc55..95a510d1351 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -240,7 +240,8 @@ are used." (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 @@ are used." 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)))))