(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 9744709bc55d0143ae25bfe587d0d3608cdca48d..95a510d1351078fd6f0b5cdde006aa8d7be65fdc 100644 (file)
--- 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)))))