Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 105504:a4b36898ee9a
(batch-update-autoloads): Fix last change to not error out of search
for "^lisp=" fails.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 07 Oct 2009 09:58:11 +0000 |
| parents | e3e540de3898 |
| children | 4adf54462047 |
comparison
equal
deleted
inserted
replaced
| 105503:33c51c8b86b5 | 105504:a4b36898ee9a |
|---|---|
| 689 (mfile (expand-file-name "../src/Makefile" ldir)) | 689 (mfile (expand-file-name "../src/Makefile" ldir)) |
| 690 lim) | 690 lim) |
| 691 (when (file-readable-p mfile) | 691 (when (file-readable-p mfile) |
| 692 (with-temp-buffer | 692 (with-temp-buffer |
| 693 (insert-file-contents mfile) | 693 (insert-file-contents mfile) |
| 694 (when (re-search-forward "^lisp= ") | 694 (when (re-search-forward "^lisp= " nil t) |
| 695 (setq lim (line-end-position)) | 695 (setq lim (line-end-position)) |
| 696 (while (re-search-forward "\\${lispsource}\\([^ ]*\\)\\.elc?" lim t) | 696 (while (re-search-forward "\\${lispsource}\\([^ ]*\\)\\.elc?" lim t) |
| 697 (push (concat (expand-file-name (match-string 1) ldir) ".el") | 697 (push (concat (expand-file-name (match-string 1) ldir) ".el") |
| 698 autoload-excludes))))))) | 698 autoload-excludes))))))) |
| 699 (let ((args command-line-args-left)) | 699 (let ((args command-line-args-left)) |