diff options
| author | Chong Yidong | 2008-02-14 01:00:23 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-02-14 01:00:23 +0000 |
| commit | bebb740e117f36730f723346cf8b53ca5fb0178c (patch) | |
| tree | 0e89e04475b2ae928dbda13e2d1738db6fc229b1 | |
| parent | b3eb2b9c33bc772e1a53a7c709fd9a53ff5522be (diff) | |
| download | emacs-bebb740e117f36730f723346cf8b53ca5fb0178c.tar.gz emacs-bebb740e117f36730f723346cf8b53ca5fb0178c.zip | |
(org-publish-timestamp-filename): Replace colon characters in filename too.
| -rw-r--r-- | lisp/textmodes/org-publish.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/textmodes/org-publish.el b/lisp/textmodes/org-publish.el index 0a8e9019827..2b0777638c5 100644 --- a/lisp/textmodes/org-publish.el +++ b/lisp/textmodes/org-publish.el | |||
| @@ -294,7 +294,7 @@ files." | |||
| 294 | 294 | ||
| 295 | (defun org-publish-timestamp-filename (filename) | 295 | (defun org-publish-timestamp-filename (filename) |
| 296 | "Return path to timestamp file for filename FILENAME." | 296 | "Return path to timestamp file for filename FILENAME." |
| 297 | (while (string-match "~\\|/" filename) | 297 | (while (string-match "~\\|/\\|:/" filename) |
| 298 | (setq filename (replace-match "_" nil t filename))) | 298 | (setq filename (replace-match "_" nil t filename))) |
| 299 | (concat org-publish-timestamp-directory filename ".timestamp")) | 299 | (concat org-publish-timestamp-directory filename ".timestamp")) |
| 300 | 300 | ||