From a3ac9d80edb483bf212447dbbada6c2da04e5b2e Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 17 Dec 2011 15:07:13 +0100 Subject: [PATCH] Create proper file target for index entries in subdirectories. * org-publish.el (org-publish-index-generate-theindex): Create proper file target for index entries in subdirectories. --- lisp/org-publish.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org-publish.el b/lisp/org-publish.el index 1518efe59..8e32658d0 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -984,7 +984,9 @@ the project." main last-main letter last-letter file sub link tgext) ;; `files' contains the list of relative file names (dolist (file files) - (setq origfile (substring file 1 -1)) + (setq origfile + (concat (file-name-directory file) + (substring (file-name-nondirectory file) 1 -1))) (setq buf (find-file-noselect file)) (with-current-buffer buf (goto-char (point-min))