From 10fba5d08c8e3a312c58ed3b4229086079c1af2c Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Sat, 17 Dec 2005 02:08:46 +0000
Subject: [PATCH] muse-colors: Fix QuickStart display bug.

* lisp/muse-colors.el (muse-colors-verbatim): Move past last delimiting
  equal sign, since we don't need to look at the area in-between.  This
  fixes a display bug involving =<verbatim><example></verbatim>=.
git-archimport-id: mwolson@gnu.org--2005/muse--rel--3.02--patch-35
---
 ChangeLog           | 15 +++++++++++++++
 lisp/muse-colors.el |  6 ++++--
 2 files changed, 19 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 677a08e..1291f68 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,21 @@
 # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--rel--3.02
 #
 
+2005-12-17 02:08:46 GMT	Michael Olson <mwolson@gnu.org>	patch-35
+
+    Summary:
+      muse-colors: Fix QuickStart display bug.
+    Revision:
+      muse--rel--3.02--patch-35
+
+    * lisp/muse-colors.el (muse-colors-verbatim): Move past last delimiting
+      equal sign, since we don't need to look at the area in-between.  This
+      fixes a display bug involving =<verbatim><example></verbatim>=.
+
+    modified files:
+     ChangeLog lisp/muse-colors.el
+
+
 2005-12-16 21:30:52 GMT	Michael Olson <mwolson@gnu.org>	patch-34
 
     Summary:
diff --git a/lisp/muse-colors.el b/lisp/muse-colors.el
index acbac64..3e66404 100644
--- a/lisp/muse-colors.el
+++ b/lisp/muse-colors.el
@@ -300,7 +300,7 @@ whether progress messages should be displayed to the user."
                 (eq (char-syntax (char-before start)) ?\ )
                 (memq (char-before start)
                       '(?\- ?\[ ?\< ?\( ?\' ?\` ?\" ?\n)))
-        (save-excursion
+        (let ((pos (point)))
           (skip-chars-forward "^=\n" end)
           (when (eq (char-after) ?\n)
             (setq multiline t)
@@ -312,6 +312,7 @@ whether progress messages should be displayed to the user."
                       (not (eq (char-after (point)) ?=))
                       (and (not (eobp))
                            (eq (char-syntax (char-after (1+ (point)))) ?w)))
+            (setq pos (min (1+ (point)) (point-max)))
             (add-text-properties start (1+ start) '(invisible muse))
             (add-text-properties (1+ start) (point) '(face muse-verbatim-face))
             (add-text-properties (point)
@@ -320,7 +321,8 @@ whether progress messages should be displayed to the user."
             (when multiline
               (add-text-properties
                start (min (1+ (point)) (point-max))
-               '(font-lock-multiline t)))))))))
+               '(font-lock-multiline t))))
+          (goto-char pos))))))
 
 (defcustom muse-colors-markup
   `(;; make emphasized text appear emphasized
-- 
2.11.4.GIT