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" |