diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-25 20:32:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-25 20:32:19 +0000 |
| commit | 3eb6864cde223adb1e6b34b0f36f1aa04ce80aa5 (patch) | |
| tree | 6aec69301a44e72a1079f2f3c7f17eab47de6815 /lisp | |
| parent | f10f69485658113e1d1595466fc21f92c8579f2e (diff) | |
| download | emacs-3eb6864cde223adb1e6b34b0f36f1aa04ce80aa5.tar.gz | |
(generate-file-autoloads): Set
print-escape-nonascii when printing autoload form.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 9744709bc55..95a510d1351 100644 --- 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))))) |