summaryrefslogtreecommitdiff
path: root/lisp/gud.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-05-12 02:14:13 +0000
committerRichard M. Stallman <rms@gnu.org>1994-05-12 02:14:13 +0000
commitd23efc449d01aafb0a90fa97a3a0c2d85e81a607 (patch)
tree626af90011bcce355bca3c00127e5483a2006b67 /lisp/gud.el
parent8244ac354a51d72624abb42392de8c8873134468 (diff)
downloademacs-d23efc449d01aafb0a90fa97a3a0c2d85e81a607.tar.gz
(sdb): Handle tags-file-name as nil.
Diffstat (limited to 'lisp/gud.el')
-rw-r--r--lisp/gud.el4
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."
nil nil
'(gud-sdb-history . 1))))
(if (and gud-sdb-needs-tags
- (not (and (boundp 'tags-file-name) (file-exists-p tags-file-name))))
+ (not (and (boundp 'tags-file-name)
+ (stringp tags-file-name)
+ (file-exists-p tags-file-name))))
(error "The sdb support requires a valid tags table to work."))
(gud-overload-functions '((gud-massage-args . gud-sdb-massage-args)
(gud-marker-filter . gud-sdb-marker-filter)