diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/info-xref.el | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 45096e52ec0..c73b1d6a372 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | 2011-01-16 Glenn Morris <rgm@gnu.org> | 1 | 2011-01-16 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * info-xref.el (info-xref-docstrings): Replace cl function. | 3 | * info-xref.el (info-xref-docstrings): Replace cl function. |
| 4 | Also skip directories. | ||
| 4 | 5 | ||
| 5 | 2011-01-16 Kevin Ryde <user42@zip.com.au> | 6 | 2011-01-16 Kevin Ryde <user42@zip.com.au> |
| 6 | 7 | ||
diff --git a/lisp/info-xref.el b/lisp/info-xref.el index cdeba932eda..e317b10bcd6 100644 --- a/lisp/info-xref.el +++ b/lisp/info-xref.el | |||
| @@ -493,6 +493,7 @@ the sources handy." | |||
| 493 | (setq filename-list | 493 | (setq filename-list |
| 494 | (dolist (file filename-list (nreverse newlist)) | 494 | (dolist (file filename-list (nreverse newlist)) |
| 495 | (or (info-xref-lock-file-p file) | 495 | (or (info-xref-lock-file-p file) |
| 496 | (file-directory-p file) | ||
| 496 | (push file newlist)))) | 497 | (push file newlist)))) |
| 497 | (unless filename-list | 498 | (unless filename-list |
| 498 | (error "No files: %S" pattern)) | 499 | (error "No files: %S" pattern)) |