diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-10-07 16:10:31 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-10-07 16:10:31 +0000 |
| commit | ab2baced6e2ff40e2d5913259e0cb4a736f38b7b (patch) | |
| tree | d85613a17fd9c7202e2b7d1e70888743a3d6d1eb /lisp/emacs-lisp | |
| parent | 09094f2893027678380b946a9cd618da4d6e4f9a (diff) | |
| download | emacs-ab2baced6e2ff40e2d5913259e0cb4a736f38b7b.tar.gz emacs-ab2baced6e2ff40e2d5913259e0cb4a736f38b7b.tar.bz2 emacs-ab2baced6e2ff40e2d5913259e0cb4a736f38b7b.zip | |
(batch-update-autoloads): Remove useless use of concat.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 5 |
1 files changed, 3 insertions, 2 deletions
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) |