diff options
| author | Karl Heuer | 1997-10-16 23:31:55 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-10-16 23:31:55 +0000 |
| commit | 0b140219122afb652c3e8943b019c06119c3f6ac (patch) | |
| tree | 9e919196117ee89f6ede94eeebb413c3449634cf /lisp | |
| parent | ac1f790ac66dbdbb23375a7f44761d9d026fe3ff (diff) | |
| download | emacs-0b140219122afb652c3e8943b019c06119c3f6ac.tar.gz emacs-0b140219122afb652c3e8943b019c06119c3f6ac.zip | |
(format-deannotate-region): In case of unmatched tags,
avoid using nil where end position is expected.
Diffstat (limited to 'lisp')
| -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." | |||
| 636 | ;; Store as value of text-property `unknown'. | 636 | ;; Store as value of text-property `unknown'. |
| 637 | (let ((extents top-extents) | 637 | (let ((extents top-extents) |
| 638 | (start (car (car top-extents))) | 638 | (start (car (car top-extents))) |
| 639 | (loc (cdr (car top-extents)))) | 639 | (loc (or (cdr (car top-extents)) loc))) |
| 640 | (while extents | 640 | (while extents |
| 641 | (setq open-ans (cdr open-ans) | 641 | (setq open-ans (cdr open-ans) |
| 642 | todo (cons (list start loc 'unknown top-name) | 642 | todo (cons (list start loc 'unknown top-name) |