diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-04-14 13:27:48 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-04-14 13:27:48 +0000 |
| commit | 90757bb354514d76a5c9ed42d0432a1f6c38c1ba (patch) | |
| tree | 31a1de58e3fc9c80d70c2808e932c79efb4723c0 /lisp/gud.el | |
| parent | c1355e1fb481abbb1dba9f8d5229960252b2d43f (diff) | |
| download | emacs-90757bb354514d76a5c9ed42d0432a1f6c38c1ba.tar.gz emacs-90757bb354514d76a5c9ed42d0432a1f6c38c1ba.tar.bz2 emacs-90757bb354514d76a5c9ed42d0432a1f6c38c1ba.zip | |
(gud-jdb-build-source-files-list): Check that directory
exists before calling directory-files.
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 () |