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
This commit is contained in:
parent
6d0af59744
commit
0c14fa6499
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue