]> code.delx.au - gnu-emacs/commitdiff
(format-deannotate-region): In case of unmatched tags,
authorKarl Heuer <kwzh@gnu.org>
Thu, 16 Oct 1997 23:31:55 +0000 (23:31 +0000)
committerKarl Heuer <kwzh@gnu.org>
Thu, 16 Oct 1997 23:31:55 +0000 (23:31 +0000)
avoid using nil where end position is expected.

lisp/format.el

index 5dff28edd3c7b34d4a8689d3801c1f6ebf9dcc37..c2a096f09d631720d1732424ee74dac9bec5b9a5 100644 (file)
@@ -636,7 +636,7 @@ to write these unknown annotations back into the file."
                      ;; 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)