diff options
| -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 594f88a4f2c..421bb15b337 100644 --- a/lisp/gud.el +++ b/lisp/gud.el | |||
| @@ -404,7 +404,9 @@ and source-file directory for your debugger." | |||
| 404 | nil nil | 404 | nil nil |
| 405 | '(gud-sdb-history . 1)))) | 405 | '(gud-sdb-history . 1)))) |
| 406 | (if (and gud-sdb-needs-tags | 406 | (if (and gud-sdb-needs-tags |
| 407 | (not (and (boundp 'tags-file-name) (file-exists-p tags-file-name)))) | 407 | (not (and (boundp 'tags-file-name) |
| 408 | (stringp tags-file-name) | ||
| 409 | (file-exists-p tags-file-name)))) | ||
| 408 | (error "The sdb support requires a valid tags table to work.")) | 410 | (error "The sdb support requires a valid tags table to work.")) |
| 409 | (gud-overload-functions '((gud-massage-args . gud-sdb-massage-args) | 411 | (gud-overload-functions '((gud-massage-args . gud-sdb-massage-args) |
| 410 | (gud-marker-filter . gud-sdb-marker-filter) | 412 | (gud-marker-filter . gud-sdb-marker-filter) |