Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 4215:ccb1fb62bba6
(generate-file-autoloads): Bind float-output-format.
Bind print-escape-newlines.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Jul 1993 22:37:55 +0000 |
| parents | 1e1a395e4718 |
| children | 434ef4c2fda7 |
comparison
equal
deleted
inserted
replaced
| 4214:7c9552ef98fa | 4215:ccb1fb62bba6 |
|---|---|
| 107 (load-name (let ((name (file-name-nondirectory file))) | 107 (load-name (let ((name (file-name-nondirectory file))) |
| 108 (if (string-match "\\.elc?$" name) | 108 (if (string-match "\\.elc?$" name) |
| 109 (substring name 0 (match-beginning 0)) | 109 (substring name 0 (match-beginning 0)) |
| 110 name))) | 110 name))) |
| 111 (print-length nil) | 111 (print-length nil) |
| 112 (floating-output-format "%20e") | 112 (float-output-format "%.20e") |
| 113 (done-any nil) | 113 (done-any nil) |
| 114 (visited (get-file-buffer file)) | 114 (visited (get-file-buffer file)) |
| 115 output-end) | 115 output-end) |
| 116 | 116 |
| 117 ;; If the autoload section we create here uses an absolute | 117 ;; If the autoload section we create here uses an absolute |
| 165 (let* ((p (nthcdr (1- doc-string-elt) | 165 (let* ((p (nthcdr (1- doc-string-elt) |
| 166 autoload)) | 166 autoload)) |
| 167 (elt (cdr p))) | 167 (elt (cdr p))) |
| 168 (setcdr p nil) | 168 (setcdr p nil) |
| 169 (princ "\n(" outbuf) | 169 (princ "\n(" outbuf) |
| 170 (mapcar (function (lambda (elt) | 170 (let ((print-escape-newlines t)) |
| 171 (prin1 elt outbuf) | 171 (mapcar (function (lambda (elt) |
| 172 (princ " " outbuf))) | 172 (prin1 elt outbuf) |
| 173 autoload) | 173 (princ " " outbuf))) |
| 174 autoload)) | |
| 174 (princ "\"\\\n" outbuf) | 175 (princ "\"\\\n" outbuf) |
| 175 (princ (substring | 176 (princ (substring |
| 176 (prin1-to-string (car elt)) 1) | 177 (prin1-to-string (car elt)) 1) |
| 177 outbuf) | 178 outbuf) |
| 178 (if (null (cdr elt)) | 179 (if (null (cdr elt)) |