Mercurial > emacs
changeset 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 | b5a4f7db03c7 |
| children | 3fe65c32616b |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Sat Sep 17 19:49:03 1994 +0000 +++ b/lisp/emacs-lisp/autoload.el Sat Sep 17 20:02:15 1994 +0000 @@ -234,6 +234,17 @@ (terpri outbuf) (insert ";;; Generated autoloads from " (autoload-trim-file-name file) "\n") + ;; Warn if we put a line in loaddefs.el + ;; that is long enough to cause trouble. + (while (< (point) output-end) + (let ((beg (point))) + (end-of-line) + (if (> (- (point) beg) 900) + (progn + (message "A line is too long--over 900 characters") + (sleep-for 2) + (goto-char output-end)))) + (forward-line 1)) (goto-char output-end) (insert generate-autoload-section-trailer))) (message "Generating autoloads for %s...done" file)))