>From 4e18d9141c509b03cc5579517547f6e7e73088f3 Mon Sep 17 00:00:00 2001 From: Rasmus Date: Fri, 27 May 2016 16:46:14 +0200 Subject: [PATCH 1/6] ox-publish: Tiny refactor * lisp/ox-publish.el: (org-publish-compare-directory-files): (org-publish-get-base-files-1): Change test. * lisp/ox-publish.el (org-publish-initialize-cache): Tiny fix. --- lisp/ox-publish.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 8ccba99..d60562b 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -467,7 +467,7 @@ matching the regexp SKIP-DIR when recursing through BASE-DIR." (and skip-file (string-match skip-file fnd)) (not (file-exists-p (file-truename f))) (not (string-match match fnd))) - (cl-pushnew f org-publish-temp-files))))))) + (cl-pushnew f org-publish-temp-files :test #'file-equal-p))))))) (defun org-publish-get-base-files (project &optional exclude-regexp) "Return a list of all files in PROJECT. @@ -511,7 +511,7 @@ matching filenames." (setq org-publish-temp-files nil) (when org-publish-sitemap-requested (cl-pushnew (expand-file-name (concat base-dir sitemap-filename)) - org-publish-temp-files)) + org-publish-temp-files :test #'file-equal-p)) (org-publish-get-base-files-1 base-dir recurse match ;; FIXME distinguish exclude regexp ;; for skip-file and skip-dir? @@ -1172,7 +1172,7 @@ If FREE-CACHE, empty the cache." (if cexists (load-file cache-file) (setq org-publish-cache - (make-hash-table :test 'equal :weakness nil :size 100)) + (make-hash-table :test #'equal :weakness nil :size 100)) (org-publish-cache-set ":project:" project-name) (org-publish-cache-set ":cache-file:" cache-file)) (unless cexists (org-publish-write-cache-file nil)))) -- 2.8.3