summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2014-12-14 08:39:08 (GMT)
committer Nicolas Goaziou <mail@nicolasgoaziou.fr>2014-12-14 08:39:08 (GMT)
commit89a0acc75eda785a92c99efc9b617b89e8327f8b (patch)
treed0145f1d116f62de4b295381a1d66d7d623fe315
parentd0c14a12fd14d9f6992de37fc28e8ebb45055b00 (diff)
downloadorg-mode-maint.zip
org-mode-maint.tar.gz
ob-core: Source blocks are case-insensitivemaint
* 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 <genovese@cmu.edu> <http://permalink.gmane.org/gmane.emacs.orgmode/93454>
-rw-r--r--lisp/ob-core.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 045eb74..a6ffcc4 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)