Mercurial > hg > xemacs-beta

comparison lisp/utils/autoload.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 0132846995bd
children 85ec50267440
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
317 (when (< output-end (point)) 317 (when (< output-end (point))
318 (setq output-end (point-marker))) 318 (setq output-end (point-marker)))
319 (while (< (point) output-end) 319 (while (< (point) output-end)
320 (let ((beg (point))) 320 (let ((beg (point)))
321 (end-of-line) 321 (end-of-line)
322 (if (> (- (point) beg) 900) 322 ;; Emacs -- I still haven't figured this one out.
323 (progn 323 ;; (if (> (- (point) beg) 900)
324 (message "A line is too long--over 900 characters") 324 ;; (progn
325 (sleep-for 2) 325 ;; (message "A line is too long--over 900 characters")
326 (goto-char output-end)))) 326 ;; (sleep-for 2)
327 ;; (goto-char output-end)))
328 )
327 (forward-line 1)) 329 (forward-line 1))
328 (goto-char output-end) 330 (goto-char output-end)
329 (insert generate-autoload-section-trailer))) 331 (insert generate-autoload-section-trailer)))
330 (or noninteractive ; XEmacs: only need one line in -batch mode. 332 (or noninteractive ; XEmacs: only need one line in -batch mode.
331 (message "Generating autoloads for %s...done" file)))) 333 (message "Generating autoloads for %s...done" file))))