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."
(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)))))
......
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