(gud-jdb-build-source-files-list): Change file-exists-p

to file-directory-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c065665..bbb382c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-15  Gerd Moellmann  <gerd@gnu.org>
+
+       * gud.el (gud-jdb-build-source-files-list): Change file-exists-p
+       to file-directory-p.
+
 2000-04-14  Gerd Moellmann  <gerd@gnu.org>
 
        * gud.el (gud-jdb-build-source-files-list): Check that directory

diff --git a/lisp/gud.el b/lisp/gud.el
index 0d629aa..719f2f6 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1562,7 +1562,7 @@ The file names should be absolute, or relative to the current directory.")
 ;; given as the regular expression "\\.java$" .
 (defun gud-jdb-build-source-files-list (path extn)
   (apply 'nconc (mapcar (lambda (d)
-                         (when (files-exists-p d)
+                         (when (files-directory-p d)
                            (directory-files d t extn nil)) path))))
 
 ;; Move point past whitespace.