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 )) |