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

to file-directory-p.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c065665425b..bbb382cbc6b 100644
--- 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 0d629aa7aac..719f2f6b0aa 100644
--- 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.