XEmacs wiki fix.

* lisp/muse-wiki.el (muse-wiki-colors-wikiword): Use `muse-match-string-no-properties' so XEmacs doesn't complain. git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-119
alexott · Jul 9, 2005 · 8da5ff9 · 8da5ff9
1 parent 9e2c8fe
commit 8da5ff9
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -2,6 +2,20 @@
 # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0
 #
 
+2005-07-09 20:24:40 GMT	Michael Olson <mwolson@gnu.org>	patch-119
+
+    Summary:
+      XEmacs wiki fix.
+    Revision:
+      muse--main--1.0--patch-119
+
+    * lisp/muse-wiki.el (muse-wiki-colors-wikiword): Use
+      `muse-match-string-no-properties' so XEmacs doesn't complain.
+
+    modified files:
+     ChangeLog lisp/muse-wiki.el
+
+
 2005-07-09 08:53:33 GMT	Michael Olson <mwolson@gnu.org>	patch-118
 
     Summary:

diff --git a/lisp/muse-wiki.el b/lisp/muse-wiki.el
@@ -235,12 +235,12 @@ called manually."
            (while (> (match-end 0) cur)
              (flyspell-unhighlight-at cur)
              (setq cur (1+ cur)))))
-       (let ((link (match-string-no-properties 1))
+       (let ((link (muse-match-string-no-properties 1))
              (face (muse-link-face (match-string 1))))
          (when face
            (add-text-properties (match-beginning 1) (match-end 0)
                                 (muse-link-properties
-                                 (match-string-no-properties 1) face)))))
+                                 (muse-match-string-no-properties 1) face)))))
 
      (defun muse-wiki-colors-nop-tag (beg end)
        (when (and muse-wiki-hide-nop-tag