From 0b140219122afb652c3e8943b019c06119c3f6ac Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 16 Oct 1997 23:31:55 +0000 Subject: [PATCH] (format-deannotate-region): In case of unmatched tags, avoid using nil where end position is expected. --- lisp/format.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2