Browse Source

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
Nick Gunn 9 years ago
parent
commit
773e0e9c72
1 changed files with 5 additions and 3 deletions
  1. 5 3
      lisp/ox-publish.el

+ 5 - 3
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