docbook: Fix paragraph detection bug after <verse> tags

* lisp/muse-docbook.el (muse-docbook-markup-paragraph): Fix bug involving paragraphs after literallayout markup, which is used in <verse> tags. Thanks to Shunsuke OKANO for the report.
alexott · Aug 19, 2007 · 39e89d5 · 39e89d5
1 parent 7819e8e
commit 39e89d5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/ChangeLog b/ChangeLog
@@ -2,6 +2,10 @@
 
 	* examples/mwolson: Update my example settings.
 
+	* lisp/muse-docbook.el (muse-docbook-markup-paragraph): Fix bug
+	involving paragraphs after literallayout markup, which is used in
+	<verse> tags.  Thanks to Shunsuke OKANO for the report.
+
 	* lisp/muse-html.el (muse-html-src-tag): Use
 	muse-delete-and-extract-region.
 

diff --git a/lisp/muse-docbook.el b/lisp/muse-docbook.el
@@ -221,7 +221,8 @@ found in `muse-docbook-encoding-map'."
                       "<\\(/?\\)\\(para\\|footnote\\|literallayout\\)[ >]"
                       nil t)
                      (cond ((string= (match-string 2) "literallayout")
-                            (throw 'bail-out t))
+                            (and (not (string= (match-string 1) "/"))
+                                 (throw 'bail-out t)))
                            ((string= (match-string 2) "para")
                             (and
                              (not (string= (match-string 1) "/"))