Mercurial > emacs
changeset 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 | 92b4edaf6482 |
| children | 1d51bc7c2563 |
| files | lisp/format.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/format.el Thu Oct 16 23:25:57 1997 +0000 +++ b/lisp/format.el Thu Oct 16 23:31:55 1997 +0000 @@ -636,7 +636,7 @@ ;; Store as value of text-property `unknown'. (let ((extents top-extents) (start (car (car top-extents))) - (loc (cdr (car top-extents)))) + (loc (or (cdr (car top-extents)) loc))) (while extents (setq open-ans (cdr open-ans) todo (cons (list start loc 'unknown top-name)