diff options
Diffstat (limited to 'lisp/gud.el')
| -rw-r--r-- | lisp/gud.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 () |