diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-16 23:31:55 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-16 23:31:55 +0000 |
| commit | 0b140219122afb652c3e8943b019c06119c3f6ac (patch) | |
| tree | 9e919196117ee89f6ede94eeebb413c3449634cf | |
| parent | ac1f790ac66dbdbb23375a7f44761d9d026fe3ff (diff) | |
| download | emacs-0b140219122afb652c3e8943b019c06119c3f6ac.tar.gz | |
(format-deannotate-region): In case of unmatched tags,
avoid using nil where end position is expected.
| -rw-r--r-- | lisp/format.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |