From edfbc438fd141f457585f4f36e77cbd95dfa3a8f Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Fri, 19 Aug 2005 16:55:39 +0000
Subject: [PATCH] muse-html: Add muse-xhtml-extension.

* lisp/muse-html.el (muse-xhtml-extension): New option that specifies the
  default file extension for publishing XHTML files.  Thanks to Trent
  Buck for the suggestion.
  ("xhtml"): Use it.
git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-204
---
 ChangeLog         | 16 ++++++++++++++++
 lisp/muse-html.el |  6 ++++++
 2 files changed, 22 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index f9ef409..2c33356 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,22 @@
 # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0
 #
 
+2005-08-19 16:55:39 GMT	Michael Olson <mwolson@gnu.org>	patch-204
+
+    Summary:
+      muse-html: Add muse-xhtml-extension.
+    Revision:
+      muse--main--1.0--patch-204
+
+    * lisp/muse-html.el (muse-xhtml-extension): New option that specifies the
+      default file extension for publishing XHTML files.  Thanks to Trent
+      Buck for the suggestion.
+      ("xhtml"): Use it.
+
+    modified files:
+     ChangeLog lisp/muse-html.el
+
+
 2005-08-19 16:24:08 GMT	Michael Olson <mwolson@gnu.org>	patch-203
 
     Summary:
diff --git a/lisp/muse-html.el b/lisp/muse-html.el
index 7ba3d6a..82e21fe 100644
--- a/lisp/muse-html.el
+++ b/lisp/muse-html.el
@@ -49,6 +49,11 @@ See `muse-html' for more information."
   :type 'string
   :group 'muse-html)
 
+(defcustom muse-xhtml-extension ".html"
+  "Default file extension for publishing XHTML files."
+  :type 'string
+  :group 'muse-html)
+
 (defcustom muse-html-style-sheet
   "<style type=\"text/css\">
 body {
@@ -641,6 +646,7 @@ if not escaped."
                      :browser   'muse-html-browse-file)
 
   (muse-derive-style "xhtml" "html"
+                     :suffix    'muse-xhtml-extension
                      :strings   'muse-xhtml-markup-strings
                      :header    'muse-xhtml-header
                      :footer    'muse-xhtml-footer))
-- 
2.11.4.GIT