From 86ed9dfaac6651de20400fa5daa21a565a4b5508 Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Wed, 5 Apr 2006 18:47:54 +0000
Subject: [PATCH] Fix a couple of compiler warnings.

* muse-publish.el, muse-wiki.el: Fix a couple of compiler warnings.
git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-92
---
 ChangeLog.2006       | 13 +++++++++++++
 lisp/muse-publish.el |  6 +++---
 lisp/muse-wiki.el    |  3 +++
 3 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/ChangeLog.2006 b/ChangeLog.2006
index 49aefb2..cfef942 100644
--- a/ChangeLog.2006
+++ b/ChangeLog.2006
@@ -2,6 +2,19 @@
 # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2006/muse--main--1.0
 #
 
+2006-04-05 18:47:54 GMT	Michael Olson <mwolson@gnu.org>	patch-92
+
+    Summary:
+      Fix a couple of compiler warnings.
+    Revision:
+      muse--main--1.0--patch-92
+
+    * muse-publish.el, muse-wiki.el: Fix a couple of compiler warnings.
+
+    modified files:
+     ChangeLog.2006 lisp/muse-publish.el lisp/muse-wiki.el
+
+
 2006-04-05 18:45:01 GMT	Michael Olson <mwolson@gnu.org>	patch-91
 
     Summary:
diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el
index 69dfae8..e9e0ce9 100644
--- a/lisp/muse-publish.el
+++ b/lisp/muse-publish.el
@@ -681,6 +681,9 @@ the file is published no matter what."
   (setq muse-publishing-last-position nil)
   (delete-region (match-beginning 0) (match-end 0)))
 
+(defsubst muse-publishing-directive (name)
+  (cdr (assoc name muse-publishing-directives)))
+
 (defun muse-publish-markup-anchor ()
   (unless (get-text-property (match-end 1) 'noemphasis)
     (let ((text (muse-markup-text 'anchor (match-string 2))))
@@ -1423,9 +1426,6 @@ This is usually applied to extended links."
 
 ;; Miscellaneous helper functions
 
-(defsubst muse-publishing-directive (name)
-  (cdr (assoc name muse-publishing-directives)))
-
 (defun muse-publish-strip-tags (string)
   "Remove all tags from the string."
   (while (string-match "<.*?>" string)
diff --git a/lisp/muse-wiki.el b/lisp/muse-wiki.el
index 1606933..90a41a8 100644
--- a/lisp/muse-wiki.el
+++ b/lisp/muse-wiki.el
@@ -141,6 +141,9 @@ If you want this replacement to happen, you must add
   :type 'regexp
   :group 'muse-wiki)
 
+(eval-when-compile
+  (defvar muse-wiki-interwiki-alist))
+
 (defun muse-wiki-update-interwiki-regexp ()
   "Update the value of `muse-wiki-interwiki-regexp' based on
 `muse-wiki-interwiki-alist' and `muse-project-alist'."
-- 
2.11.4.GIT