summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/autoload.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2010-10-21 20:32:46 -0700
committerGlenn Morris <rgm@gnu.org>2010-10-21 20:32:46 -0700
commit69b55131535a1e35952ab5c1d35695c68814ae61 (patch)
tree39b48b4b47017c3137ee6e69e6d35e8ba1a54590 /lisp/emacs-lisp/autoload.el
parent1a71dc4933266d80b229b9ef43919c6da93a822c (diff)
downloademacs-69b55131535a1e35952ab5c1d35695c68814ae61.tar.gz
emacs-69b55131535a1e35952ab5c1d35695c68814ae61.tar.bz2
emacs-69b55131535a1e35952ab5c1d35695c68814ae61.zip
Small autoloads fix.
* lisp/emacs-lisp/autoload.el (batch-update-autoloads): Update for src/Makefile no longer being pre-processed.
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
-rw-r--r--lisp/emacs-lisp/autoload.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 30c384aff91..532d68245d8 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -778,16 +778,17 @@ Calls `update-directory-autoloads' on the command line arguments."
(with-temp-buffer
(insert-file-contents mfile)
(when (re-search-forward "^shortlisp= " nil t)
- (setq lim (line-end-position))
- (while (re-search-forward "\\.\\./lisp/\\([^ ]+\\.el\\)c?\\>"
- lim t)
+ (while (and (not lim)
+ (re-search-forward "\\.\\./lisp/\\([^ ]+\\.el\\)c?\\>"
+ nil t))
(push (expand-file-name (match-string 1) ldir)
- autoload-excludes))))))))
+ autoload-excludes)
+ (skip-chars-forward " \t")
+ (if (eolp) (setq lim t)))))))))
(let ((args command-line-args-left))
(setq command-line-args-left nil)
(apply 'update-directory-autoloads args)))
(provide 'autoload)
-;; arch-tag: 00244766-98f4-4767-bf42-8a22103441c6
;;; autoload.el ends here