From: Glenn Morris Date: Wed, 7 Oct 2009 16:10:31 +0000 (+0000) Subject: (batch-update-autoloads): Remove useless use of concat. X-Git-Tag: emacs-pretest-23.1.90~882 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab2baced6e2ff40e2d5913259e0cb4a736f38b7b;p=emacs.git (batch-update-autoloads): Remove useless use of concat. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 939d34646ab..7bcd06f8be8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-10-07 Glenn Morris + + * emacs-lisp/autoload.el (batch-update-autoloads): Remove useless use of + concat. + 2009-10-07 Stefan Monnier * files-x.el (read-file-local-variable): Include some diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 7a0a43631de..56d3e32f996 100644 --- 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)