From 90757bb354514d76a5c9ed42d0432a1f6c38c1ba Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 14 Apr 2000 13:27:48 +0000 Subject: [PATCH] (gud-jdb-build-source-files-list): Check that directory exists before calling directory-files. --- lisp/gud.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/gud.el b/lisp/gud.el index 67aa59c7b88..0d629aa7aac 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -1561,7 +1561,9 @@ The file names should be absolute, or relative to the current directory.") ;; which to search for files with extension EXTN. Normally EXTN is ;; given as the regular expression "\\.java$" . (defun gud-jdb-build-source-files-list (path extn) - (apply 'nconc (mapcar (lambda (d) (directory-files d t extn nil)) path))) + (apply 'nconc (mapcar (lambda (d) + (when (files-exists-p d) + (directory-files d t extn nil)) path)))) ;; Move point past whitespace. (defun gud-jdb-skip-whitespace () -- 2.39.5