mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 09:16:27 +00:00
Code Releases Activity

Fix a small issue with the sitemap code

Browse source
This commit is contained in:
Carsten Dominik 2010-04-22 15:14:16 +02:00
parent c206caf969
commit 16c0dd7f69
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -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.

7
lisp/org-publish.el
View file

@ -618,10 +618,9 @@ 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")))
(setq sitemap-sort-folders nil))
;; 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))
(while (setq file (pop files))