From: Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com>
Date: Mon, 25 Feb 2013 17:25:45 +0000 (-0500)
Subject: ox-texinfo.el: Fix node listing description formatting
X-Git-Tag: release_8.0-pre~180
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/be9d3bc3a708ad3e82c7548ed9021690ce17921d

ox-texinfo.el: Fix node listing description formatting

* lisp/ox-texinfo.el (org-texinfo--format-menu): Ensure two spaces
  after :: before including description.  Also adjusted logic to
  insert description on desired column (by accounting for added text
  when inserting node.
---

diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index 44d466f03..a0b913d01 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -625,12 +625,15 @@ of the longest menu entry."
                            (desc    (nth 2 name))
                            (length  (nth 0 name))
 			   (column  (max
+				     ;;6 is "* " ":: " for inserted text
 				     length
-				     org-texinfo-node-description-column))
+				     (-
+				      org-texinfo-node-description-column
+				      6)))
 			   (spacing (- column length)
 				    ))
                       (if (> length -1)
-                          (concat "* " title ":: "
+                          (concat "* " title "::  "
                                   (make-string spacing ?\s)
                                   (if desc
                                       (concat desc)))