From mboxrd@z Thu Jan  1 00:00:00 1970
From: Tokuya Kameshima <kames@fa2.so-net.ne.jp>
Subject: patch to org-public.el for Windows
Date: Tue, 05 Feb 2008 23:00:24 +0900
Message-ID: <ulk5zcxl3.wl%kames@fa2.so-net.ne.jp>
Mime-Version: 1.0 (generated by SEMI 1.14.5 - "Awara-Onsen")
Content-Type: text/plain; charset=US-ASCII
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1JMOMU-0007OY-8a
	for emacs-orgmode@gnu.org; Tue, 05 Feb 2008 09:01:22 -0500
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1JMOMS-0007NU-Cs
	for emacs-orgmode@gnu.org; Tue, 05 Feb 2008 09:01:21 -0500
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1JMOMR-0007Mt-PB
	for emacs-orgmode@gnu.org; Tue, 05 Feb 2008 09:01:19 -0500
Received: from mxfwd.ms.so-net.ne.jp ([202.238.82.247]
	helo=mx51.ms.so-net.ne.jp) by monty-python.gnu.org with esmtps
	(TLS-1.0:DHE_RSA_3DES_EDE_CBC_SHA1:24) (Exim 4.60)
	(envelope-from <kames@fa2.so-net.ne.jp>) id 1JMOMQ-0002CQ-WF
	for emacs-orgmode@gnu.org; Tue, 05 Feb 2008 09:01:19 -0500
Received: from imp.kames.fa2.so-net.ne.jp (pd374dd.tkyoac00.ap.so-net.ne.jp
	[220.211.116.221])
	by mx51.ms.so-net.ne.jp  with ESMTP id m15E07Hl014304
	for <emacs-orgmode@gnu.org>; Tue, 5 Feb 2008 23:00:18 +0900 (JST)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Hi all.

This is a patch to org-public.el for Emacs on Windows.  In Windows
systems, the file names are not allowed to have ":" in it.  So, we
need to convert ":" to "_".

Thanks,
--Tokuya


--- org-publish.el.ORIG Sat Jan 19 15:38:38 2008
+++ org-publish.el      Tue Feb 05 13:55:18 2008
@@ -294,7 +294,8 @@

 (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"))