Commit 3eb6864c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(generate-file-autoloads): Set

print-escape-nonascii when printing autoload form.
parent f10f6948
...@@ -240,7 +240,8 @@ are used." ...@@ -240,7 +240,8 @@ are used."
(elt (cdr p))) (elt (cdr p)))
(setcdr p nil) (setcdr p nil)
(princ "\n(" outbuf) (princ "\n(" outbuf)
(let ((print-escape-newlines t)) (let ((print-escape-newlines t)
(print-escape-nonascii t))
(mapcar (function (lambda (elt) (mapcar (function (lambda (elt)
(prin1 elt outbuf) (prin1 elt outbuf)
(princ " " outbuf))) (princ " " outbuf)))
...@@ -269,11 +270,13 @@ are used." ...@@ -269,11 +270,13 @@ are used."
1) 1)
outbuf)) outbuf))
(terpri outbuf))) (terpri outbuf)))
(let ((print-escape-newlines t)) (let ((print-escape-newlines t)
(print-escape-nonascii t))
(print autoload outbuf))) (print autoload outbuf)))
(if (eq (car autoload-1) 'progn) (if (eq (car autoload-1) 'progn)
;; Print the rest of the form ;; Print the rest of the form
(let ((print-escape-newlines t)) (let ((print-escape-newlines t)
(print-escape-nonascii t))
(mapcar (function (lambda (elt) (mapcar (function (lambda (elt)
(print elt outbuf))) (print elt outbuf)))
(cddr autoload-1))))) (cddr autoload-1)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment