# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896128339 0
# Node ID 00ce0bf9b7233fbe7c98ca977b7b1a02c6af7187
# Parent  0a93e911af6b36adbc93b7a2d7ddd75107bca3e2
(generate-file-autoloads): Set
print-escape-nonascii when printing autoload form.

diff -r 0a93e911af6b -r 00ce0bf9b723 lisp/emacs-lisp/autoload.el
--- 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)))))