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

to file-directory-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c065665425b4b4dcde867a3cb2b1c76092a807f7..bbb382cbc6bb9213a4f5519debd74b6279362cdc 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 0d629aa7aac97b511f50179fe921e380d11000cc..719f2f6b0aae5bfdf650998188b57f906052c9ad 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.