Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 8864:65731429a2c1
(generate-file-autoloads): Warn if we put a line
in loaddefs.el that is long enough to cause trouble.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Sep 1994 20:02:15 +0000 |
| parents | bc5dccc5375f |
| children | 6aba36eda051 |
comparison
equal
deleted
inserted
replaced
| 8863:b5a4f7db03c7 | 8864:65731429a2c1 |
|---|---|
| 232 (nth 5 (file-attributes file))) | 232 (nth 5 (file-attributes file))) |
| 233 outbuf) | 233 outbuf) |
| 234 (terpri outbuf) | 234 (terpri outbuf) |
| 235 (insert ";;; Generated autoloads from " | 235 (insert ";;; Generated autoloads from " |
| 236 (autoload-trim-file-name file) "\n") | 236 (autoload-trim-file-name file) "\n") |
| 237 ;; Warn if we put a line in loaddefs.el | |
| 238 ;; that is long enough to cause trouble. | |
| 239 (while (< (point) output-end) | |
| 240 (let ((beg (point))) | |
| 241 (end-of-line) | |
| 242 (if (> (- (point) beg) 900) | |
| 243 (progn | |
| 244 (message "A line is too long--over 900 characters") | |
| 245 (sleep-for 2) | |
| 246 (goto-char output-end)))) | |
| 247 (forward-line 1)) | |
| 237 (goto-char output-end) | 248 (goto-char output-end) |
| 238 (insert generate-autoload-section-trailer))) | 249 (insert generate-autoload-section-trailer))) |
| 239 (message "Generating autoloads for %s...done" file))) | 250 (message "Generating autoloads for %s...done" file))) |
| 240 | 251 |
| 241 (defconst generated-autoload-file "loaddefs.el" | 252 (defconst generated-autoload-file "loaddefs.el" |