procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(generate-file-autoloads): Set

Browse source 
print-escape-nonascii when printing autoload form.
This commit is contained in:
Richard M. Stallman 1998-05-25 20:32:19 +00:00
parent f10f694856
commit 3eb6864cde
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/autoload.el
View file

@ -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)))))