[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/autoload.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/07 16:10:38

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: autoload.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16384&r2=1.16385
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/autoload.el?cvsroot=emacs&r1=1.148&r2=1.149

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16384
retrieving revision 1.16385
diff -u -b -r1.16384 -r1.16385
--- ChangeLog   7 Oct 2009 14:33:31 -0000       1.16384
+++ ChangeLog   7 Oct 2009 16:10:31 -0000       1.16385
@@ -1,3 +1,8 @@
+2009-10-07  Glenn Morris  <address@hidden>
+
+       * emacs-lisp/autoload.el (batch-update-autoloads): Remove useless use of
+       concat.
+
 2009-10-07  Stefan Monnier  <address@hidden>
 
        * files-x.el (read-file-local-variable): Include some

Index: emacs-lisp/autoload.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/autoload.el,v
retrieving revision 1.148
retrieving revision 1.149
diff -u -b -r1.148 -r1.149
--- emacs-lisp/autoload.el      7 Oct 2009 09:58:11 -0000       1.148
+++ emacs-lisp/autoload.el      7 Oct 2009 16:10:37 -0000       1.149
@@ -693,8 +693,9 @@
          (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)