Mercurial > emacs
comparison lisp/gud.el @ 13681:13887c128ad2
(gud-sdb-marker-filter): start may be nil, so check it
with numberp before using it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 01 Dec 1995 18:19:34 +0000 |
| parents | 283d4d3e5460 |
| children | d00c8f107a39 |
comparison
equal
deleted
inserted
replaced
| 13680:1dad0ef18160 | 13681:13887c128ad2 |
|---|---|
| 452 | 452 |
| 453 ;; If we have an incomplete line, store it in gud-marker-acc. | 453 ;; If we have an incomplete line, store it in gud-marker-acc. |
| 454 ;; Otherwise clear gud-marker-acc. to avoid an | 454 ;; Otherwise clear gud-marker-acc. to avoid an |
| 455 ;; unnecessary concat when this function runs next. | 455 ;; unnecessary concat when this function runs next. |
| 456 (setq gud-marker-acc | 456 (setq gud-marker-acc |
| 457 (if (= start (length gud-marker-acc)) | 457 (if (and (numberp start) (= start (length gud-marker-acc))) |
| 458 (substring gud-marker-acc start) | 458 (substring gud-marker-acc start) |
| 459 nil))) | 459 nil))) |
| 460 string) | 460 string) |
| 461 | 461 |
| 462 (defun gud-sdb-find-file (f) | 462 (defun gud-sdb-find-file (f) |