ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org.el: Use case-folding when trying to match clocktables and source blocks contexts 

* org.el (org-context): Use case-folding when trying to match
clocktables and source blocks contexts.
This commit is contained in:
Bastien Guerry 2012-08-19 08:26:35 +02:00
parent 62064c73fc
commit 788f7da285
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
View File

@ -20352,6 +20352,7 @@ and :keyword."
(push (list :table-table) clist))) (push (list :table-table) clist)))
(goto-char p) (goto-char p)
(let ((case-fold-search t))
;; New the "medium" contexts: clocktables, source blocks ;; New the "medium" contexts: clocktables, source blocks
(cond ((org-in-clocktable-p) (cond ((org-in-clocktable-p)
(push (list :clocktable (push (list :clocktable
@ -20366,7 +20367,7 @@ and :keyword."
(search-backward "#+BEGIN_SRC" nil t)) (search-backward "#+BEGIN_SRC" nil t))
(match-beginning 0)) (match-beginning 0))
(and (search-forward "#+END_SRC" nil t) (and (search-forward "#+END_SRC" nil t)
(match-beginning 0))) clist))) (match-beginning 0))) clist))))
(goto-char p) (goto-char p)
;; Now the small context ;; Now the small context