emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r102040: Small autoloads fix.


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r102040: Small autoloads fix.
Date: Thu, 21 Oct 2010 20:32:46 -0700
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 102040
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2010-10-21 20:32:46 -0700
message:
  Small autoloads fix.
  
  * lisp/emacs-lisp/autoload.el (batch-update-autoloads): Update for
  src/Makefile no longer being pre-processed.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/autoload.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-22 03:17:26 +0000
+++ b/lisp/ChangeLog    2010-10-22 03:32:46 +0000
@@ -1,3 +1,8 @@
+2010-10-22  Glenn Morris  <address@hidden>
+
+       * emacs-lisp/autoload.el (batch-update-autoloads): Update for
+       src/Makefile no longer being pre-processed.
+
 2010-10-22  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/find-func.el (find-library): Use test-completion.

=== modified file 'lisp/emacs-lisp/autoload.el'
--- a/lisp/emacs-lisp/autoload.el       2010-08-29 16:17:13 +0000
+++ b/lisp/emacs-lisp/autoload.el       2010-10-22 03:32:46 +0000
@@ -778,16 +778,17 @@
          (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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]