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

31
lisp/org.el
View File

@ -20352,21 +20352,22 @@ and :keyword."
(push (list :table-table) clist))) (push (list :table-table) clist)))
(goto-char p) (goto-char p)
;; New the "medium" contexts: clocktables, source blocks (let ((case-fold-search t))
(cond ((org-in-clocktable-p) ;; New the "medium" contexts: clocktables, source blocks
(push (list :clocktable (cond ((org-in-clocktable-p)
(and (or (looking-at "#\\+BEGIN: clocktable") (push (list :clocktable
(search-backward "#+BEGIN: clocktable" nil t)) (and (or (looking-at "#\\+BEGIN: clocktable")
(match-beginning 0)) (search-backward "#+BEGIN: clocktable" nil t))
(and (re-search-forward "#\\+END:?" nil t) (match-beginning 0))
(match-end 0))) clist)) (and (re-search-forward "#\\+END:?" nil t)
((org-in-src-block-p) (match-end 0))) clist))
(push (list :src-block ((org-in-src-block-p)
(and (or (looking-at "#\\+BEGIN_SRC") (push (list :src-block
(search-backward "#+BEGIN_SRC" nil t)) (and (or (looking-at "#\\+BEGIN_SRC")
(match-beginning 0)) (search-backward "#+BEGIN_SRC" nil t))
(and (search-forward "#+END_SRC" nil t) (match-beginning 0))
(match-beginning 0))) clist))) (and (search-forward "#+END_SRC" nil t)
(match-beginning 0))) clist))))
(goto-char p) (goto-char p)
;; Now the small context ;; Now the small context