ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -1,5 +1,8 @@
2008-02-05 Carsten Dominik <dominik@science.uva.nl> 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 * org.el (org-update-checkbox-count): Revamped to deal with
hierarchical beckboxes. This was a patch from Miguel hierarchical beckboxes. This was a patch from Miguel
A. Figueroa-Villanueva. A. Figueroa-Villanueva.

5
org-publish.el
View File

@ -291,14 +291,13 @@ files."
;;;; Timestamp-related functions ;;;; Timestamp-related functions
(defun org-publish-timestamp-filename (filename) (defun org-publish-timestamp-filename (filename)
"Return path to timestamp file for 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))) (setq filename (replace-match "_" nil t filename)))
(concat org-publish-timestamp-directory filename ".timestamp")) (concat org-publish-timestamp-directory filename ".timestamp"))
(defun org-publish-needed-p (filename) (defun org-publish-needed-p (filename)
"Check whether file should be published. "Check whether file should be published.
If org-publish-use-timestamps-flag is set to nil, this function always If org-publish-use-timestamps-flag is set to nil, this function always