From 5792f0687174a23bd5d5b2ab9013ca68520e0457 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 21 Apr 2018 11:06:13 +0200 Subject: [PATCH] ox-md: Tiny refactoring * lisp/ox-md.el (org-md--build-toc): Tiny refactoring. --- lisp/ox-md.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index 1c72eff52..9d7458e70 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -575,10 +575,13 @@ contents according to the current headline." (make-string (* 4 (1- (org-export-get-relative-level headline info))) ?\s)) - (heading-number (org-last - (org-export-get-headline-number headline info))) - (number (if heading-number (format "%s." heading-number) "- ")) - (bullet (concat number (make-string (- 4 (length number)) ?\s))) + (bullet + (if (not (org-export-numbered-headline-p headline info)) "- " + (let ((prefix + (format "%d." (org-last (org-export-get-headline-number + headline info))))) + (concat prefix (make-string (max 1 (- 4 (length prefix))) + ?\s))))) (title (format "[%s](#%s)" (org-export-data-with-backend -- 2.11.4.GIT