From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 16 Oct 1997 23:31:55 +0000 (+0000)
Subject: (format-deannotate-region): In case of unmatched tags,
X-Git-Tag: emacs-20.3~2986
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b140219122afb652c3e8943b019c06119c3f6ac;p=emacs.git

(format-deannotate-region): In case of unmatched tags,
avoid using nil where end position is expected.
---

diff --git a/lisp/format.el b/lisp/format.el
index 5dff28edd3c..c2a096f09d6 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -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)