ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make the column mandatory after #+include:. 

* org-publish.el (org-publish-cache-file-needs-publishing):
Make the column mandatory after #+include:.

* org-exp.el (org-export-handle-include-files): Ditto.
This commit is contained in:
Bastien Guerry 2012-05-23 01:26:45 +02:00
parent 4721052ec6
commit b62b49bc2b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-exp.el
View File

@ -2412,7 +2412,7 @@ TYPE must be a string, any of:
(let ((case-fold-search t) (let ((case-fold-search t)
params file markup lang start end prefix prefix1 switches all minlevel currentlevel addlevel lines) params file markup lang start end prefix prefix1 switches all minlevel currentlevel addlevel lines)
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "^#\\+include:?[ \t]+\\(.*\\)" nil t) (while (re-search-forward "^#\\+include:[ \t]+\\(.*\\)" nil t)
(setq params (read (concat "(" (match-string 1) ")")) (setq params (read (concat "(" (match-string 1) ")"))
prefix (org-get-and-remove-property 'params :prefix) prefix (org-get-and-remove-property 'params :prefix)
prefix1 (org-get-and-remove-property 'params :prefix1) prefix1 (org-get-and-remove-property 'params :prefix1)

2
lisp/org-publish.el
View File

@ -1122,7 +1122,7 @@ so that the file including them will be republished as well."
(setq buf (find-file (expand-file-name filename))) (setq buf (find-file (expand-file-name filename)))
(with-current-buffer buf (with-current-buffer buf
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "^#\\+include:?[ \t]+\"\\([^\t\n\r\"]*\\)\"[ \t]*.*$" nil t) (while (re-search-forward "^#\\+include:[ \t]+\"\\([^\t\n\r\"]*\\)\"[ \t]*.*$" nil t)
(let* ((included-file (expand-file-name (match-string 1)))) (let* ((included-file (expand-file-name (match-string 1))))
(add-to-list 'included-files-ctime (add-to-list 'included-files-ctime
(org-publish-cache-ctime-of-src included-file) t)))) (org-publish-cache-ctime-of-src included-file) t))))