|
@@ -1119,13 +1119,14 @@ If FREE-CACHE, empty the cache."
|
|
|
(defun org-e-publish-cache-file-needs-publishing
|
|
|
(filename &optional pub-dir pub-func)
|
|
|
"Check the timestamp of the last publishing of FILENAME.
|
|
|
-Return `t', if the file needs publishing. The function also
|
|
|
-checks if any included files have been more recently published,
|
|
|
-so that the file including them will be republished as well."
|
|
|
+Non-nil if the file needs publishing. The function also checks
|
|
|
+if any included files have been more recently published, so that
|
|
|
+the file including them will be republished as well."
|
|
|
(unless org-e-publish-cache
|
|
|
(error
|
|
|
"`org-e-publish-cache-file-needs-publishing' called, but no cache present"))
|
|
|
- (let* ((key (org-e-publish-timestamp-filename filename pub-dir pub-func))
|
|
|
+ (let* ((case-fold-search t)
|
|
|
+ (key (org-e-publish-timestamp-filename filename pub-dir pub-func))
|
|
|
(pstamp (org-e-publish-cache-get key))
|
|
|
(visiting (find-buffer-visiting filename))
|
|
|
included-files-ctime buf)
|
|
@@ -1135,7 +1136,7 @@ so that the file including them will be republished as well."
|
|
|
(with-current-buffer buf
|
|
|
(goto-char (point-min))
|
|
|
(while (re-search-forward
|
|
|
- "^#\\+INCLUDE:[ \t]+\"?\\([^ \t\n\r\"]*\\)\"?[ \t]*.*$" nil t)
|
|
|
+ "^#\\+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) t))))
|