summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-03-20 09:10:53 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2011-03-20 09:10:53 +0100
commit74169a8029b72e80eda1f68579e17752c85c4fd3 (patch)
treed303c132a160d12edb79d36ba8743e39a324dc3f
parenteab89fd82bc2c0b6998afede3edf1b17fe09b05e (diff)
downloadorg-mode-74169a8029b72e80eda1f68579e17752c85c4fd3.tar.gz
org-list: org-drawer-regexp is nil outside Org buffers
* lisp/org-list.el (org-in-item-p): re-build org-drawer-regexp, whatever the major mode is.
-rw-r--r--lisp/org-list.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el
index b29089d..5356330 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -419,6 +419,9 @@ This checks `org-list-ending-method'."
(let* ((case-fold-search t)
(context (org-list-context))
(lim-up (car context))
+ (drawers-re (concat "^[ \t]*:\\("
+ (mapconcat 'regexp-quote org-drawers "\\|")
+ "\\):[ \t]*$"))
(inlinetask-re (and (featurep 'org-inlinetask)
(org-inlinetask-outline-regexp)))
(item-re (org-item-re))
@@ -468,7 +471,7 @@ This checks `org-list-ending-method'."
((looking-at "^[ \t]*#\\+end_")
(re-search-backward "^[ \t]*#\\+begin_" nil t))
((looking-at "^[ \t]*:END:")
- (re-search-backward org-drawer-regexp nil t)
+ (re-search-backward drawers-re nil t)
(beginning-of-line))
((and inlinetask-re (looking-at inlinetask-re))
(org-inlinetask-goto-beginning)