# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877044715 0
# Node ID 3a72c0f0ad69c72e166adcfadf3bfc97eb9ce9c1
# Parent  92b4edaf64821a988cbc00e82fb6e21e4ecf843e
(format-deannotate-region): In case of unmatched tags,
avoid using nil where end position is expected.

diff -r 92b4edaf6482 -r 3a72c0f0ad69 lisp/format.el
--- 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)