From: Glenn Morris <rgm@gnu.org>
Date: Sun, 16 Jan 2011 02:34:57 +0000 (-0800)
Subject: * lisp/info-xref.el (info-xref-docstrings): Also skip directories.
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~1322^2~230^2~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5c7913c2d2461aebe795b60c725e60d6520143e;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45096e52ec0..c73b1d6a372 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-01-16  Glenn Morris  <rgm@gnu.org>
 
 	* info-xref.el (info-xref-docstrings): Replace cl function.
+	Also skip directories.
 
 2011-01-16  Kevin Ryde  <user42@zip.com.au>
 
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."
      (setq filename-list
            (dolist (file filename-list (nreverse newlist))
              (or (info-xref-lock-file-p file)
+                 (file-directory-p file)
                  (push file newlist))))
      (unless filename-list
        (error "No files: %S" pattern))