From 3eb6864cde223adb1e6b34b0f36f1aa04ce80aa5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 25 May 1998 20:32:19 +0000 Subject: [PATCH] (generate-file-autoloads): Set print-escape-nonascii when printing autoload form. --- lisp/emacs-lisp/autoload.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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))))) -- 2.39.2