Browse Source

Fix org-publish file timestamps for Windows.
This was a patch by Tokuya Kameshima.

Carsten Dominik 17 years ago
parent
commit
f6dc99bd9b
2 changed files with 5 additions and 3 deletions
  1. 3 0
      ChangeLog
  2. 2 3
      org-publish.el

+ 3 - 0
ChangeLog

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

+ 2 - 3
org-publish.el

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