(batch-update-autoloads): Remove useless use of concat.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 939d34646ab3437fe6c618b6977eb43200fd981b..7bcd06f8be8559a16de3aa89055d3baf7452828e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-07  Glenn Morris  <rgm@gnu.org>
+
+       * emacs-lisp/autoload.el (batch-update-autoloads): Remove useless use of
+       concat.
+
 2009-10-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * files-x.el (read-file-local-variable): Include some

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 7a0a43631deb3ef33c62e5bb84364951bf393eef..56d3e32f99661dfd61f935e6b4e4f815ca2aca55 100644 (file)
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -693,8 +693,9 @@ Calls `update-directory-autoloads' on the command line arguments."
          (insert-file-contents mfile)
          (when (re-search-forward "^lisp= " nil t)
            (setq lim (line-end-position))
-           (while (re-search-forward "\\${lispsource}\\([^ ]*\\)\\.elc?" lim t)
-             (push (concat (expand-file-name (match-string 1) ldir) ".el")
+           (while (re-search-forward "\\${lispsource}\\([^ ]+\\.el\\)c?\\>"
+                                     lim t)
+             (push (expand-file-name (match-string 1) ldir)
                    autoload-excludes)))))))
   (let ((args command-line-args-left))
     (setq command-line-args-left nil)