From 42a2794d3fdc078ed9dd5dd60e6894421963bcd1 Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Thu, 17 Nov 2005 01:22:42 +0000
Subject: [PATCH] Apply LaTeX table underlining from patch-259.

* AUTHORS: Update.

* lisp/muse-latex.el (muse-latex-markup-table): Implement underlining of
  table headers and overlining table footers, as suggested by Trent Buck.
git-archimport-id: mwolson@gnu.org--2005/muse--rel--3.02--patch-3
---
 AUTHORS            | 12 ++++++++++--
 lisp/muse-latex.el |  8 ++++++--
 2 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/AUTHORS b/AUTHORS
index 99b2fc6..155542b 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -8,6 +8,9 @@ John Wiegley: Original author
 
 Michael Olson: Current maintainer
 
+Trent Buck: Contributor,
+            muse-latex.el: 4 lines changed
+
 Sacha Chua: Contributor -- documentation
             (assigned past and future changes)
 
@@ -38,13 +41,18 @@ Dale P. Smith: Contributor
 John Sullivan: Contributor -- documentation
                (employed by FSF)
 
+Ganesh Swami: Original author of muse-latex2png.el
+              (assignment pending)
+
 Gary Vaughan: Original author of emacs-wiki-blosxom.el, which was the
               basis for muse-blosxom.el
               (assigned past and future changes)
 
-Sergey Vlasov: Contributor (3 lines changed in muse-colors.el)
+Sergey Vlasov: Contributor,
+               muse-colors.el: 3 lines changed
 
-Lan Yufeng: Contributor (1 line changed in muse-colors.el)
+Lan Yufeng: Contributor,
+            muse-colors.el: 1 line changed
 
 
 Contributed software
diff --git a/lisp/muse-latex.el b/lisp/muse-latex.el
index d27a895..fa5cd54 100644
--- a/lisp/muse-latex.el
+++ b/lisp/muse-latex.el
@@ -281,12 +281,16 @@ If the anchor occurs at the end of a line, ignore it."
                   (match-string 1)
                 (delete-region (match-beginning 0) (match-end 0))))
          (fields (split-string str "\\s-*|+\\s-*"))
-         ;; FIXME: `type' isn't used
          (type (and (string-match "\\s-*\\(|+\\)\\s-*" str)
                     (length (match-string 1 str)))))
     (insert "\\begin{tabular}{" (make-string (length fields) ?l) "}\n")
+    (when (= type 3)
+      (insert "\\hline\n"))
     (insert (mapconcat 'identity fields " & "))
-    (insert " \\\\\n\\end{tabular}")))
+    (insert " \\\\\n")
+    (when (= type 2)
+      (insert "\\hline\n"))
+    (insert "\\end{tabular}")))
 
 (defun muse-latex-fixup-dquotes ()
   "Fixup double quotes."
-- 
2.11.4.GIT