tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

ob-core: Source blocks are case-insensitive

Browse source 
* 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>
This commit is contained in:
Nicolas Goaziou 2014-12-14 09:39:08 +01:00
parent d0c14a12fd
commit 89a0acc75e
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ob-core.el
View file

@ -996,7 +996,8 @@ beg-body --------- point at the beginning of the body
end-body --------- point at the end of the body" end-body --------- point at the end of the body"
(declare (indent 1)) (declare (indent 1))
(let ((tempvar (make-symbol "file"))) (let ((tempvar (make-symbol "file")))
`(let* ((,tempvar ,file) `(let* ((case-fold-search t)
(,tempvar ,file)
(visited-p (or (null ,tempvar) (visited-p (or (null ,tempvar)
(get-file-buffer (expand-file-name ,tempvar)))) (get-file-buffer (expand-file-name ,tempvar))))
(point (point)) to-be-removed) (point (point)) to-be-removed)
@ -1035,7 +1036,8 @@ If FILE is nil evaluate BODY forms on source blocks in current
buffer." buffer."
(declare (indent 1)) (declare (indent 1))
(let ((tempvar (make-symbol "file"))) (let ((tempvar (make-symbol "file")))
`(let* ((,tempvar ,file) `(let* ((case-fold-search t)
(,tempvar ,file)
(visited-p (or (null ,tempvar) (visited-p (or (null ,tempvar)
(get-file-buffer (expand-file-name ,tempvar)))) (get-file-buffer (expand-file-name ,tempvar))))
(point (point)) to-be-removed) (point (point)) to-be-removed)