From ed87d38a9ad10541944083ed086ab609414b5449 Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Tue, 27 Dec 2005 03:20:11 +0000
Subject: [PATCH] Implement <quote> tag.

* lisp/muse-publish.el (muse-publish-markup-tags)
  (muse-publish-quote-tag): Implement <quote> tag, which does a
  blockquote.  This is an alternative to indenting text, in that the
  quote can span several paragraphs.  The paragraph detection routine for
  HTML has not yet been tested with several paragraphs inside a quote.
git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-324
---
 ChangeLog            | 17 +++++++++++++++++
 lisp/muse-publish.el |  7 +++++++
 2 files changed, 24 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 0915591..15a7807 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
 # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0
 #
 
+2005-12-27 03:20:11 GMT	Michael Olson <mwolson@gnu.org>	patch-324
+
+    Summary:
+      Implement <quote> tag.
+    Revision:
+      muse--main--1.0--patch-324
+
+    * lisp/muse-publish.el (muse-publish-markup-tags)
+      (muse-publish-quote-tag): Implement <quote> tag, which does a
+      blockquote.  This is an alternative to indenting text, in that the
+      quote can span several paragraphs.  The paragraph detection routine for
+      HTML has not yet been tested with several paragraphs inside a quote.
+
+    modified files:
+     ChangeLog lisp/muse-publish.el
+
+
 2005-12-26 22:26:56 GMT	Michael Olson <mwolson@gnu.org>	patch-323
 
     Summary:
diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el
index 173f2de..7f762ba 100644
--- a/lisp/muse-publish.el
+++ b/lisp/muse-publish.el
@@ -249,6 +249,7 @@ current style."
     ("verse"    t   nil muse-publish-verse-tag)
     ("example"  t   nil muse-publish-example-tag)
     ("code"     t   nil muse-publish-code-tag)
+    ("quote"    t   nil muse-publish-quote-tag)
     ("literal"  t   nil muse-publish-mark-read-only)
     ("verbatim" t   nil muse-publish-verbatim-tag)
     ("lisp"     t   nil muse-publish-lisp-tag)
@@ -1240,6 +1241,12 @@ the cadr is the page name, and the cddr is the anchor."
   (add-text-properties beg end '(noemphasis t))
   nil)
 
+(defun muse-publish-quote-tag (beg end)
+  (goto-char end)
+  (muse-insert-markup (muse-markup-text 'end-quote))
+  (goto-char beg)
+  (muse-insert-markup (muse-markup-text 'begin-quote)))
+
 (defun muse-publish-code-tag (beg end)
   (muse-publish-escape-specials beg end nil 'literal)
   (goto-char beg)
-- 
2.11.4.GIT