(sdb): Handle tags-file-name as nil.

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)