diff options
author | Bastien Guerry <bzg@altern.org> | 2012-05-23 01:26:45 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-05-23 01:26:45 +0200 |
commit | b62b49bc2bd87e0dd0bfbcbb654c0c3da32dcef5 (patch) | |
tree | d76e4c9f6add2ad5a67ba361c81fa1d5897d4d91 | |
parent | 4721052ec68bd85f4bffb5039bb89c6dfa1b5cc5 (diff) | |
download | org-mode-b62b49bc2bd87e0dd0bfbcbb654c0c3da32dcef5.tar.gz |
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.
-rw-r--r-- | lisp/org-exp.el | 2 | ||||
-rw-r--r-- | lisp/org-publish.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el index d09e4e2..d1084d7 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -2412,7 +2412,7 @@ TYPE must be a string, any of: (let ((case-fold-search t) params file markup lang start end prefix prefix1 switches all minlevel currentlevel addlevel lines) (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) ")")) prefix (org-get-and-remove-property 'params :prefix) prefix1 (org-get-and-remove-property 'params :prefix1) diff --git a/lisp/org-publish.el b/lisp/org-publish.el index 9ba7159..cfd81f0 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -1122,7 +1122,7 @@ so that the file including them will be republished as well." (setq buf (find-file (expand-file-name filename))) (with-current-buffer buf (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)))) (add-to-list 'included-files-ctime (org-publish-cache-ctime-of-src included-file) t)))) |