diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-09-28 19:00:00 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-09-28 19:00:00 +0200 |
commit | e5488204f3252a0d3465c939cf678a577bde9720 (patch) | |
tree | 9585426ead9bbda6f3763717ed41cf6cf6a27c0b | |
parent | 7360000871e78d856cd938c30639816b12f9b94d (diff) | |
download | org-mode-e5488204f3252a0d3465c939cf678a577bde9720.tar.gz |
org-e-publish: Mirror changes made to org-publish.el
* contrib/lisp/org-e-publish.el (org-e-publish-cache-ctime-of-src):
Change signature.
(org-e-publish-update-timestamp,
org-e-publish-cache-file-needs-publishing): Apply signature change.
See commit f71db4e509c132b917fb5bcf37084f4e5a8504ca.
-rw-r--r-- | contrib/lisp/org-e-publish.el | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/contrib/lisp/org-e-publish.el b/contrib/lisp/org-e-publish.el index d31f81a..913017c 100644 --- a/contrib/lisp/org-e-publish.el +++ b/contrib/lisp/org-e-publish.el @@ -350,7 +350,7 @@ still decide about that independently." "Update publishing timestamp for file FILENAME. If there is no timestamp, create one." (let ((key (org-e-publish-timestamp-filename filename pub-dir pub-func)) - (stamp (org-e-publish-cache-ctime-of-src filename base-dir))) + (stamp (org-e-publish-cache-ctime-of-src filename))) (org-e-publish-cache-set key stamp))) (defun org-e-publish-remove-all-timestamps () @@ -1132,14 +1132,11 @@ the file including them will be republished as well." (while (re-search-forward "^#\\+INCLUDE:[ \t]+\"\\([^\t\n\r\"]*\\)\"[ \t]*.*$" nil t) (let* ((included-file (expand-file-name (match-string 1)))) - (add-to-list - 'included-files-ctime - (org-e-publish-cache-ctime-of-src included-file base-dir) - t)))) - ;; FIXME: don't kill current buffer. + (add-to-list 'included-files-ctime + (org-e-publish-cache-ctime-of-src included-file) t)))) (unless visiting (kill-buffer buf))) (if (null pstamp) t - (let ((ctime (org-e-publish-cache-ctime-of-src filename base-dir))) + (let ((ctime (org-e-publish-cache-ctime-of-src filename))) (or (< pstamp ctime) (when included-files-ctime (not (null (delq nil (mapcar (lambda(ct) (< ctime ct)) @@ -1191,10 +1188,11 @@ Returns value on success, else nil." (error "`org-e-publish-cache-set' called, but no cache present")) (puthash key value org-e-publish-cache)) -(defun org-e-publish-cache-ctime-of-src (f base-dir) - "Get the FILENAME ctime as an integer." +(defun org-e-publish-cache-ctime-of-src (file) + "Get the ctime of FILE as an integer." (let ((attr (file-attributes - (expand-file-name (or (file-symlink-p f) f) base-dir)))) + (expand-file-name (or (file-symlink-p file) file) + (file-name-directory file))))) (+ (lsh (car (nth 5 attr)) 16) (cadr (nth 5 attr))))) |