procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
in loaddefs.el that is long enough to cause trouble.
This commit is contained in:
Richard M. Stallman 1994-09-17 20:02:15 +00:00
parent 2eb1d6a2a2
commit d0cb5e047d
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/autoload.el
View file

@ -234,6 +234,17 @@ are used."
(terpri outbuf) (terpri outbuf)
(insert ";;; Generated autoloads from " (insert ";;; Generated autoloads from "
(autoload-trim-file-name file) "\n") (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) (goto-char output-end)
(insert generate-autoload-section-trailer))) (insert generate-autoload-section-trailer)))
(message "Generating autoloads for %s...done" file))) (message "Generating autoloads for %s...done" file)))