diff options
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))) |