diff options
author | Nick Gunn <nick@ausimian.net> | 2015-11-23 10:50:03 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-11-23 10:53:42 +0100 |
commit | 773e0e9c72e6419bf21827b83227577a43609734 (patch) | |
tree | 277893e67f5cb15534154164ec5c476cd68368f1 | |
parent | d537a371be51130b0d9693f4175245648424334a (diff) | |
download | org-mode-773e0e9c72e6419bf21827b83227577a43609734.tar.gz |
ox-publish: Handle includes with searches
* lisp/ox-publish.el (org-publish-cache-file-needs-publishing): Ignore
any link search suffix on an include so that the path represents
a valid file during the publishing check.
TINYCHANGE
-rw-r--r-- | lisp/ox-publish.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 20cacf9..6dbe55f 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -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 |