From 89a0acc75eda785a92c99efc9b617b89e8327f8b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 14 Dec 2014 09:39:08 +0100 Subject: [PATCH] ob-core: Source blocks are case-insensitive * lisp/ob-core.el (org-babel-map-src-blocks, org-babel-map-inline-src-blocks): Make sure to ignore case when looking for source blocks. Reported-by: Christopher Genovese --- lisp/ob-core.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 045eb74e0..a6ffcc48b 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -996,7 +996,8 @@ beg-body --------- point at the beginning of the body end-body --------- point at the end of the body" (declare (indent 1)) (let ((tempvar (make-symbol "file"))) - `(let* ((,tempvar ,file) + `(let* ((case-fold-search t) + (,tempvar ,file) (visited-p (or (null ,tempvar) (get-file-buffer (expand-file-name ,tempvar)))) (point (point)) to-be-removed) @@ -1035,7 +1036,8 @@ If FILE is nil evaluate BODY forms on source blocks in current buffer." (declare (indent 1)) (let ((tempvar (make-symbol "file"))) - `(let* ((,tempvar ,file) + `(let* ((case-fold-search t) + (,tempvar ,file) (visited-p (or (null ,tempvar) (get-file-buffer (expand-file-name ,tempvar)))) (point (point)) to-be-removed) -- 2.11.4.GIT