Browse Source

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.
Bastien Guerry 13 years ago
parent
commit
b62b49bc2b
2 changed files with 2 additions and 2 deletions
  1. 1 1
      lisp/org-exp.el
  2. 1 1
      lisp/org-publish.el

+ 1 - 1
lisp/org-exp.el

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

+ 1 - 1
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)))
       (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))))