(generate-file-autoloads): Warn if we put a line

in loaddefs.el that is long enough to cause trouble.

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