From 059a4a904fbf63a77b2c727b9458b9012bfa22eb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 Feb 1996 00:19:50 +0000 Subject: [PATCH] (format-deannotate-region): Fixed bug that created double marking of multi-annotation text-properties (eg, bold-italic). --- lisp/format.el | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) 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. -- 2.39.2