From ffc50f2aabbe1eb98a45e0a4394dbb8aa7531012 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sat, 15 Apr 2000 11:33:45 +0000 Subject: [PATCH] (gud-jdb-build-source-files-list): Change file-exists-p to file-directory-p. --- lisp/ChangeLog | 5 +++++ lisp/gud.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * gud.el (gud-jdb-build-source-files-list): Change file-exists-p + to file-directory-p. + 2000-04-14 Gerd Moellmann * 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. -- 2.39.5