mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

Fix site-map creation in org-publish.

Browse Source 
The creation of an automatic site map in org-publish with the
:auto-index and :index-filename parameter does exclude the index
file name from being added to the index.  There was a bug which would
exclude this file name also in all subdirectories in a project. This
patch switches the comparison from looking at file names only to
looking at the complete path.
This commit is contained in:
Carsten Dominik 2008-11-25 07:18:36 +01:00
parent aacbb2756c
commit 4e4bdf3646
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-11-25 Carsten Dominik <carsten.dominik@gmail.com>
* org-publish.el (org-publish-org-index): Only exclude the index
file in the main directory from being added to the site-map.
2008-11-24 Carsten Dominik <carsten.dominik@gmail.com>
* org-table.el (orgtbl-ret): Fix RET at beginning-of-buffer.

3
lisp/org-publish.el
View File

@ -631,7 +631,8 @@ Default for INDEX-FILENAME is 'index.org'."
(link (file-relative-name file dir))
(oldlocal localdir))
;; index shouldn't index itself
(unless (string= fn ifn)
(unless (equal (file-truename index-filename)
(file-truename file))
(if (eq index-style 'list)
(message "Generating list-style index for %s" index-title)
(message "Generating tree-style index for %s" index-title)