mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 21:48:39 +00:00
Fix a small issue with the sitemap code
This commit is contained in:
parent
c206caf969
commit
16c0dd7f69
|
@ -14,6 +14,7 @@
|
|||
to the file.
|
||||
(org-publish-index-generate-theindex.inc): Check if there is
|
||||
actually a target and only then add it to the link.
|
||||
(org-publish-projects): Fix a remaining issue with the last commit
|
||||
|
||||
* org-html.el (org-export-as-html): Treat verse as open/close
|
||||
paragraph.
|
||||
|
|
|
@ -618,9 +618,8 @@ If :makeindex is set, also produce a file theindex.org."
|
|||
(preparation-function (plist-get project-plist :preparation-function))
|
||||
(completion-function (plist-get project-plist :completion-function))
|
||||
(files (org-publish-get-base-files project exclude-regexp)) file)
|
||||
(when (and (not (stringp sitemap-sort-folders))
|
||||
(not (string= sitemap-sort-folders "first"))
|
||||
(not (string= sitemap-sort-folders "last")))
|
||||
;; Make sure sitemap-sort-folders' has an accepted value
|
||||
(unless (memq sitemap-sort-folders '(first last))
|
||||
(setq sitemap-sort-folders nil))
|
||||
(when preparation-function (run-hooks 'preparation-function))
|
||||
(if sitemap-p (funcall sitemap-function project sitemap-filename))
|
||||
|
|
Loading…
Reference in a new issue