Procházet zdrojové kódy

org-publish.el: Use (case-fold-search t) when looking for #+INCLUDE:.

* org-publish.el (org-publish-cache-file-needs-publishing):
Use (case-fold-search t) when looking for #+INCLUDE:.
Bastien Guerry před 13 roky
rodič
revize
d592b07d51
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  1. 2 1
      lisp/org-publish.el

+ 2 - 1
lisp/org-publish.el

@@ -1115,13 +1115,14 @@ so that the file including them will be republished as well."
   (let* ((key (org-publish-timestamp-filename filename pub-dir pub-func))
 	 (pstamp (org-publish-cache-get key))
 	 (visiting (find-buffer-visiting filename))
+	 (case-fold-search t)
 	 included-files-ctime buf)
 
     (when (equal (file-name-extension filename) "org")
       (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))))