[Orgmode] [PATCH] Let orgtbl export the last table line with a different ending.

[Jason Riedy]

If the last line ends with the default :lend in LaTeX (\\),
a horizontal line placed after the table will have too much
preceeding vertical space.

Signed-off-by: Jason Riedy <address@hidden>
---
   Yeah, this is the cheap version.  The "better" version
   would break the loop into header and body pieces and allow
   a :hllend.  But right now I'm splicing all my tables for
   other reasons.

 org.el   |    7 ++++---
 org.texi |    5 +++--
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/org.el b/org.el
index 476cee8..a4e0e43 100644
--- a/org.el
+++ b/org.el
@@ -11771,6 +11771,7 @@ Valid parameters are
 
 :lstart     String to start a new table line.
 :lend       String to end a table line
+:llend      String to end the last line of a table
 :sep        Separator between two fields
 :lfmt       Format for entire line, with enough %s to capture all fields.
             If this is present, :lstart, :lend, and :sep are ignored.
@@ -11832,7 +11833,7 @@ directly by `orgtbl-send-table'.  See manual."
          (push (concat
                 (org-get-param p h i :lstart :hlstart)
                 (mapconcat 'identity line (org-get-param p h i :sep :hsep))
-                (org-get-param p h i :lend :hlend))
+                (org-get-param p h i (if table :lend :llend) :hlend))
                rtn))))
 
     (unless splicep
@@ -11869,7 +11870,7 @@ this function is called."
          (list
           :tstart (concat "\\begin{tabular}{" alignment "}")
           :tend "\\end{tabular}"
-          :lstart "" :lend " \\\\" :sep " & "
+          :lstart "" :lend " \\\\" :llend "" :sep " & "
           :efmt "%s\\,(%s)" :hline "\\hline")))
     (orgtbl-to-generic table (org-combine-plists params2 params))))
 
@@ -11934,7 +11935,7 @@ this function is called."
          (list
           :tstart (concat "@multitable @columnfractions " colfrac)
           :tend "@end multitable"
-          :lstart "@item " :lend "" :sep " @tab "
+          :lstart "@item " :lend "" :llend "" :sep " @tab "
           :hlstart "@headitem ")))
     (orgtbl-to-generic table (org-combine-plists params2 params))))
 
diff --git a/org.texi b/org.texi
index fab72ec..daad533 100644
--- a/org.texi
+++ b/org.texi
@@ -8228,7 +8228,7 @@ generic translator.  Here is the entire code:
           (list
            :tstart (concat "address@hidden@address@hidden" alignment "@}")
            :tend "address@hidden@}"
-           :lstart "" :lend " \\\\" :sep " & "
+           :lstart "" :lend " \\\\" :llend "" :sep " & "
            :efmt "%s\\,(%s)" :hline "\\hline")))
     (orgtbl-to-generic table (org-combine-plists params2 params))))
 @end group
@@ -8256,7 +8256,8 @@ a single line!):
 
 @example
 #+ORGTBL: SEND test orgtbl-to-generic :tstart "!BTBL!" :tend "!ETBL!"
-                              :lstart "!BL! " :lend " !EL!" :sep "\t"
+                              :lstart "!BL! " :lend " !EL!" :llend " !EL!"
+                              :sep "\t"
 @end example
 
 @noindent
-- 
1.5.4.3