From 640b8c407640ecc0b623c645974f434d4bdd076c Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 10 Aug 2012 12:41:13 +0200 Subject: [PATCH] org-publish.el (org-publish-cache-ctime-of-src): Simplify. * org-publish.el (org-publish-cache-ctime-of-src): Simplify. --- lisp/org-publish.el | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/lisp/org-publish.el b/lisp/org-publish.el index cfd81f0fe..2921c3f19 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -1185,17 +1185,11 @@ Returns value on success, else nil." (error "%s" "`org-publish-cache-set' called, but no cache present")) (puthash key value org-publish-cache)) -(defun org-publish-cache-ctime-of-src (filename) +(defun org-publish-cache-ctime-of-src (f) "Get the FILENAME ctime as an integer." - (let* ((symlink-maybe (or (file-symlink-p filename) filename)) - (src-attr (file-attributes (if (file-name-absolute-p symlink-maybe) - symlink-maybe - (expand-file-name - symlink-maybe - (file-name-directory filename)))))) - (+ - (lsh (car (nth 5 src-attr)) 16) - (cadr (nth 5 src-attr))))) + (let ((attr (file-attributes (expand-file-name (or (file-symlink-p f) f))))) + (+ (lsh (car (nth 5 attr)) 16) + (cadr (nth 5 attr))))) (provide 'org-publish) -- 2.11.4.GIT