fix in org-publish-update-timestamp

From: Richard KLINDA <rklinda@gmail.com>
To: emacs-orgmode@gnu.org
Subject: fix in org-publish-update-timestamp
Date: Fri, 29 May 2009 15:59:22 +0200	[thread overview]
Message-ID: <87d49shux1.fsf@gmail.com> (raw)

[-- Attachment #1: Type: text/plain, Size: 522 bytes --]

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.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: touch-fix.patch --]
[-- Type: text/x-diff, Size: 568 bytes --]

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


[-- Attachment #3: Type: text/plain, Size: 13 bytes --]


-- 
Richard

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
