Skip to content

GitLab

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
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 3 deletions
lisp/emacs-lisp/autoload.el
View file @ 3eb6864c
......@@ -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