[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] fix in org-publish-update-timestamp
From: |
Richard KLINDA |
Subject: |
[Orgmode] fix in org-publish-update-timestamp |
Date: |
Fri, 29 May 2009 15:59:22 +0200 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) XEmacs/21.4 (Instant Classic, linux) |
I use the ~ character to denote my home directory in
org-publish-project-alist (:base-directory and :publishing-directory),
like:
,----
| (setq org-publish-project-alist
| (list
| '("foo" . (:base-directory "~/doc/foo/" ...
`----
When directories are given this way and ORG-PUBLISH-UPDATE-TIMESTAMP
uses the touch command to update the timestamp, it doesn't work because
Emacs should expand the ~/ into the home directory via EXPAND-FILE-NAME.
See the attached patch, Carsten please include this, thanks.
diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index c6c7421..399fdd3 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -233,7 +233,7 @@ If there is no timestamp, create one."
(if (and (fboundp 'set-file-times)
(not newly-created-timestamp))
(set-file-times timestamp-file)
- (call-process "touch" nil 0 nil timestamp-file))))
+ (call-process "touch" nil 0 nil (expand-file-name timestamp-file)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Mapping files to project names
--
Richard
- [Orgmode] fix in org-publish-update-timestamp,
Richard KLINDA <=