mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 08:31:35 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/info-xref.el (info-xref-docstrings): Also skip directories.

Browse source
This commit is contained in:
Glenn Morris 2011-01-15 18:34:57 -08:00
parent e9bffc61f2
commit e5c7913c2d
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -1,6 +1,7 @@
2011-01-16 Glenn Morris <rgm@gnu.org> 2011-01-16 Glenn Morris <rgm@gnu.org>
* info-xref.el (info-xref-docstrings): Replace cl function. * info-xref.el (info-xref-docstrings): Replace cl function.
Also skip directories.
2011-01-16 Kevin Ryde <user42@zip.com.au> 2011-01-16 Kevin Ryde <user42@zip.com.au>

1
lisp/info-xref.el
View file

@ -493,6 +493,7 @@ the sources handy."
(setq filename-list (setq filename-list
(dolist (file filename-list (nreverse newlist)) (dolist (file filename-list (nreverse newlist))
(or (info-xref-lock-file-p file) (or (info-xref-lock-file-p file)
(file-directory-p file)
(push file newlist)))) (push file newlist))))
(unless filename-list (unless filename-list
(error "No files: %S" pattern)) (error "No files: %S" pattern))