diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-17 20:02:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-17 20:02:15 +0000 |
| commit | d0cb5e047d1ae957f4698cd42d9d10011130c060 (patch) | |
| tree | c875e120206b8be14d95cf2fc04833d485618df9 /lisp/emacs-lisp | |
| parent | 2eb1d6a2a2bd29464f56567a9dc8d63fbfaa2ab2 (diff) | |
| download | emacs-d0cb5e047d1ae957f4698cd42d9d10011130c060.tar.gz emacs-d0cb5e047d1ae957f4698cd42d9d10011130c060.tar.bz2 emacs-d0cb5e047d1ae957f4698cd42d9d10011130c060.zip | |
(generate-file-autoloads): Warn if we put a line
in loaddefs.el that is long enough to cause trouble.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 2c88f2e0bec..e2d7e156d8c 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -234,6 +234,17 @@ are used." (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))) |