From d0cb5e047d1ae957f4698cd42d9d10011130c060 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Sep 1994 20:02:15 +0000 Subject: [PATCH] (generate-file-autoloads): Warn if we put a line in loaddefs.el that is long enough to cause trouble. --- lisp/emacs-lisp/autoload.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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))) -- 2.39.5