From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 Feb 1996 00:19:50 +0000 (+0000)
Subject: (format-deannotate-region): Fixed bug that created
X-Git-Tag: emacs-19.34~1408
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=059a4a904fbf63a77b2c727b9458b9012bfa22eb;p=emacs.git

(format-deannotate-region): Fixed bug that created
double marking of multi-annotation text-properties (eg, bold-italic).
---

diff --git a/lisp/format.el b/lisp/format.el
index 2a66b56846a..929be66cdef 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -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.