From 0c14fa649950b905be42c46e751e42633442b9cb Mon Sep 17 00:00:00 2001 From: aman Date: Thu, 31 Dec 2015 00:26:55 +0100 Subject: [PATCH] org-publish: Fix get `included-file' logic * lisp/ox-publish.el (org-publish-cache-file-needs-publishing): According to the syntax of #+INCLUDE statement in *info* page, there's no space between search option and file path. TINYCHANGE --- lisp/ox-publish.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 6dbe55f4a..2ec4137ea 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -1250,14 +1250,18 @@ the file including them will be republished as well." (while (re-search-forward "^[ \t]*#\\+INCLUDE:" nil t) (let* ((element (org-element-at-point)) (included-file - (and (eq (org-element-type element) 'keyword) - (let ((value (org-element-property :value element))) - (and value - (string-match "^\\(\".+?\"\\|\\S-+\\)" value) - ;; Ignore search suffix. - (car (split-string - (org-remove-double-quotes - (match-string 1 value))))))))) + (and (eq (org-element-type element) 'keyword) + (let ((value (org-element-property :value element))) + (and value + (string-match + "\\`\\(\".+?\"\\|\\S-+\\)\\(?:\\s-+\\|$\\)" + value) + (let ((m (match-string 1 value))) + (org-remove-double-quotes + ;; Ignore search suffix. + (if (string-match "\\(::\\(.*?\\)\\)\"?\\'" m) + (substring m 0 (match-beginning 0)) + m)))))))) (when included-file (add-to-list 'included-files-ctime (org-publish-cache-ctime-of-src -- 2.11.4.GIT