From 3d4c81531b43e0652c3a4e0dd19f2ce92b33f53a Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Thu, 14 Jun 2007 01:07:02 +0000 Subject: [PATCH] muse-coiors: Fix reverse order in markup rules 2007-06-13 Michael Olson * lisp/muse-colors.el (muse-configure-highlighting): Fix bug where markup rules were being interpreted in reverse order. This should make implicit interwiki links work properly again. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-347 --- ChangeLog | 6 ++++++ lisp/muse-colors.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 38da893..7732f62 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-06-13 Michael Olson + + * lisp/muse-colors.el (muse-configure-highlighting): Fix bug where + markup rules were being interpreted in reverse order. This should + make implicit interwiki links work properly again. + 2007-06-12 Michael Olson * README: Document new etc/ directory. diff --git a/lisp/muse-colors.el b/lisp/muse-colors.el index 2983763..42e15f9 100644 --- a/lisp/muse-colors.el +++ b/lisp/muse-colors.el @@ -243,11 +243,12 @@ whether progress messages should be displayed to the user." (when value (setq rules (cons rule rules)) (setq regexps (cons value regexps))))) + (setq rules (nreverse rules) + regexps (nreverse regexps)) (setq muse-colors-regexp (concat "\\(" (mapconcat #'identity regexps "\\|") "\\)") muse-colors-vector (make-vector 128 nil)) - (setq rules (nreverse rules)) (while rules (if (eq (cadr (car rules)) t) (let ((i 0) (l 128)) -- 2.11.4.GIT