|
@@ -1229,7 +1229,7 @@ If FREE-CACHE, empty the cache."
|
|
|
(setq org-publish-cache nil))
|
|
|
|
|
|
(defun org-publish-cache-file-needs-publishing
|
|
|
- (filename &optional pub-dir pub-func base-dir)
|
|
|
+ (filename &optional pub-dir pub-func base-dir)
|
|
|
"Check the timestamp of the last publishing of FILENAME.
|
|
|
Return non-nil if the file needs publishing. Also check if
|
|
|
any included files have been more recently published, so that
|
|
@@ -1254,8 +1254,10 @@ the file including them will be republished as well."
|
|
|
(let ((value (org-element-property :value element)))
|
|
|
(and value
|
|
|
(string-match "^\\(\".+?\"\\|\\S-+\\)" value)
|
|
|
- (org-remove-double-quotes
|
|
|
- (match-string 1 value)))))))
|
|
|
+ ;; Ignore search suffix.
|
|
|
+ (car (split-string
|
|
|
+ (org-remove-double-quotes
|
|
|
+ (match-string 1 value)))))))))
|
|
|
(when included-file
|
|
|
(add-to-list 'included-files-ctime
|
|
|
(org-publish-cache-ctime-of-src
|