diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-11-03 12:21:56 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-11-03 12:21:56 +0100 |
| commit | b5f075aa05244b7b05c207d0c7c01b442876cd88 (patch) | |
| tree | 8beb5cc64a533385975fb8dc76f7b20a0ef7570d | |
| parent | 8860fe2938661a18d1ffb7b6bbef5f7ad4fa9d67 (diff) | |
| download | org-mode-b5f075aa05244b7b05c207d0c7c01b442876cd88.tar.gz | |
ox-texinfo: Fix spurious blank lines in detailed menu.
* lisp/ox-texinfo.el (org-texinfo--build-menu): Prevent spurious blank
lines in detailed menu.
| -rw-r--r-- | lisp/ox-texinfo.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index c67675e..3df4ced 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -1185,19 +1185,19 @@ is an integer, build the menu recursively, down to this depth." (cond ((not level) (org-texinfo--format-entries (org-texinfo--menu-entries scope info) info)) - ((zerop level) nil) + ((zerop level) "\n") (t - (org-element-normalize-string - (mapconcat - (lambda (h) - (let ((entries (org-texinfo--menu-entries h info))) - (when entries - (concat - (format "%s\n\n%s\n" - (org-export-data (org-export-get-alt-title h info) info) - (org-texinfo--format-entries entries info)) - (org-texinfo--build-menu h info (1- level)))))) - (org-texinfo--menu-entries scope info) "\n"))))) + (mapconcat + (lambda (h) + (let ((entries (org-texinfo--menu-entries h info))) + (when entries + (concat + (format "%s\n\n%s\n" + (org-export-data (org-export-get-alt-title h info) info) + (org-texinfo--format-entries entries info)) + (org-texinfo--build-menu h info (1- level)))))) + (org-texinfo--menu-entries scope info) + "")))) (defun org-texinfo--format-entries (entries info) "Format all direct menu entries in SCOPE, as a string. |