From ab2baced6e2ff40e2d5913259e0cb4a736f38b7b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 7 Oct 2009 16:10:31 +0000 Subject: [PATCH] (batch-update-autoloads): Remove useless use of concat. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/autoload.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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) -- 2.39.2