Mercurial > emacs
comparison lisp/gud.el @ 7461:1ce5d720b347
(sdb): Handle tags-file-name as nil.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 12 May 1994 02:14:13 +0000 |
parents | 5c2347e34b31 |
children | 347191d7ca7d |
comparison
equal
deleted
inserted
replaced
7460:dc5c72c57c70 | 7461:1ce5d720b347 |
---|---|
402 (car gud-sdb-history) | 402 (car gud-sdb-history) |
403 "sdb ") | 403 "sdb ") |
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) |
411 (gud-find-file . gud-sdb-find-file) | 413 (gud-find-file . gud-sdb-find-file) |
412 )) | 414 )) |