Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix args-out-of-range error in format.el

Browse source 
* lisp/format.el (format-deannotate-region): Ignore todo items
with FROM > TO.  (Bug#47277)
This commit is contained in:
Eli Zaretskii 2021-03-20 10:48:07 +02:00
parent 31544bc908
commit 729eae14eb
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/format.el
View file

@ -747,13 +747,17 @@ to write these unknown annotations back into the file."
(if (numberp val) ; add to ambient value if numeric
(format-property-increment-region from to prop val 0)
(put-text-property
from to prop
(cond ((get prop 'format-list-valued) ; value gets consed onto
; list-valued properties
(let ((prev (get-text-property from prop)))
(cons val (if (listp prev) prev (list prev)))))
(t val))))) ; normally, just set to val.
;; Kludge alert: ignore items with reversed order of
;; FROM and TO. They seem to be redundant anyway, and
;; in one case I've seen them refer to EOB.
(when (<= from to)
(put-text-property
from to prop
(cond ((get prop 'format-list-valued) ; value gets consed onto
; list-valued properties
(let ((prev (get-text-property from prop)))
(cons val (if (listp prev) prev (list prev)))))
(t val)))))) ; normally, just set to val.
(setq todo (cdr todo)))
(if unknown-ans