Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(format-deannotate-region): Fixed bug that created

Browse source 
double marking of multi-annotation text-properties (eg, bold-italic).
This commit is contained in:
Richard M. Stallman 1996-02-01 00:19:50 +00:00
parent 4b3d19094a
commit 059a4a904f
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/format.el
View file

@ -500,8 +500,21 @@ to write these unknown annotations back into the file."
(assoc r open-ans))
ans))
nil ; multiple ans not satisfied
;; Yes, use the current property name &
;; value. Set loop variables to nil so loop
;; Yes, all set.
;; If there are multiple annotations going
;; into one text property, adjust the
;; begin points of the other annotations
;; so that we don't get double marking.
(let ((to-reset ans)
this-one)
(while to-reset
(setq this-one
(assoc (car to-reset)
(cdr open-ans)))
(if this-one
(setcdr this-one (list loc)))
(setq to-reset (cdr to-reset))))
;; Set loop variables to nil so loop
;; will exit.
(setq alist nil aalist nil matched t
;; pop annotation off stack.