ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2016-12-27 08:33:26 +01:00
parent 517fed8d4d bbbed7aad9
commit 5b8ebe6576
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ox-publish.el
View File

@ -621,7 +621,7 @@ If `:auto-sitemap' is set, publish the sitemap too. If
(or (org-publish-property :sitemap-filename project) (or (org-publish-property :sitemap-filename project)
"sitemap.org"))) "sitemap.org")))
(org-publish-sitemap project sitemap-filename))) (org-publish-sitemap project sitemap-filename)))
;; Publish all files from PROJECT excepted "theindex.org". Its ;; Publish all files from PROJECT except "theindex.org". Its
;; publishing will be deferred until "theindex.inc" is ;; publishing will be deferred until "theindex.inc" is
;; populated. ;; populated.
(let ((theindex (expand-file-name (let ((theindex (expand-file-name
@ -1047,7 +1047,7 @@ publishing directory."
(dotimes (n len) (dotimes (n len)
(insert (insert
(concat (concat
(make-string (* (+ rank n) 2) ? ) " - " (make-string (* (+ rank n) 2) ?\s) " - "
(if (not (= (1- len) n)) (nth (+ rank n) entry) (if (not (= (1- len) n)) (nth (+ rank n) entry)
;; Last term: Link it to TARGET, if possible. ;; Last term: Link it to TARGET, if possible.
(let ((target (nth 2 idx))) (let ((target (nth 2 idx)))