Fix org-publish file timestamps for Windows.

This was a patch by Tokuya Kameshima.
This commit is contained in:
Carsten Dominik 2008-02-05 17:21:34 +01:00
parent 71b08c4c5e
commit f6dc99bd9b
2 changed files with 5 additions and 3 deletions

View File

@ -1,5 +1,8 @@
2008-02-05 Carsten Dominik <dominik@science.uva.nl>
* org-publish.el (org-publish-timestamp-filename): Protect ":" in
file name path under windows.
* org.el (org-update-checkbox-count): Revamped to deal with
hierarchical beckboxes. This was a patch from Miguel
A. Figueroa-Villanueva.

View File

@ -291,14 +291,13 @@ files."
;;;; Timestamp-related functions
(defun org-publish-timestamp-filename (filename)
"Return path to timestamp file for filename FILENAME."
(while (string-match "~\\|/" filename)
(while (string-match (if (eq system-type 'windows-nt) "~\\|/\\|:" "~\\|/")
filename)
(setq filename (replace-match "_" nil t filename)))
(concat org-publish-timestamp-directory filename ".timestamp"))
(defun org-publish-needed-p (filename)
"Check whether file should be published.
If org-publish-use-timestamps-flag is set to nil, this function always