mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-12 06:39:54 +00:00
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:
parent
62064c73fc
commit
788f7da285
31
lisp/org.el
31
lisp/org.el
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue