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

(generate-file-autoloads): Bind float-output-format.

Browse source 
Bind print-escape-newlines.
This commit is contained in:
Richard M. Stallman 1993-07-21 22:37:55 +00:00
parent 1110dff341
commit 0a933d4b4f
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -109,7 +109,7 @@ are used."
(substring name 0 (match-beginning 0))
name)))
(print-length nil)
(floating-output-format "%20e")
(float-output-format "%.20e")
(done-any nil)
(visited (get-file-buffer file))
output-end)
@ -167,10 +167,11 @@ are used."
(elt (cdr p)))
(setcdr p nil)
(princ "\n(" outbuf)
(mapcar (function (lambda (elt)
(prin1 elt outbuf)
(princ " " outbuf)))
autoload)
(let ((print-escape-newlines t))
(mapcar (function (lambda (elt)
(prin1 elt outbuf)
(princ " " outbuf)))
autoload))
(princ "\"\\\n" outbuf)
(princ (substring
(prin1-to-string (car elt)) 1)