Mercurial > emacs
comparison lisp/format.el @ 20087:3a72c0f0ad69
(format-deannotate-region): In case of unmatched tags,
avoid using nil where end position is expected.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 16 Oct 1997 23:31:55 +0000 |
| parents | 51b56762f98b |
| children | 3e5822a3448d |
comparison
equal
deleted
inserted
replaced
| 20086:92b4edaf6482 | 20087:3a72c0f0ad69 |
|---|---|
| 634 (if (not matched) | 634 (if (not matched) |
| 635 ;; Didn't find any match for the annotation: | 635 ;; Didn't find any match for the annotation: |
| 636 ;; Store as value of text-property `unknown'. | 636 ;; Store as value of text-property `unknown'. |
| 637 (let ((extents top-extents) | 637 (let ((extents top-extents) |
| 638 (start (car (car top-extents))) | 638 (start (car (car top-extents))) |
| 639 (loc (cdr (car top-extents)))) | 639 (loc (or (cdr (car top-extents)) loc))) |
| 640 (while extents | 640 (while extents |
| 641 (setq open-ans (cdr open-ans) | 641 (setq open-ans (cdr open-ans) |
| 642 todo (cons (list start loc 'unknown top-name) | 642 todo (cons (list start loc 'unknown top-name) |
| 643 todo) | 643 todo) |
| 644 unknown-ans (cons name unknown-ans) | 644 unknown-ans (cons name unknown-ans) |