mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:37:47 +00:00
Code Releases Activity

org-publish: Fix get `included-file' logic

Browse source 
* 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:
aman 2015-12-31 00:26:55 +01:00 committed by Nicolas Goaziou
parent 6d0af59744
commit 0c14fa6499
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/ox-publish.el
View file

@ -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