summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-07-21 13:45:48 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2011-07-21 13:45:56 +0200
commit71f654a18254233d5ff67eb0b84529713ce16f03 (patch)
tree1879a23b88e79713d006c223bbc818e297345414
parent74a4f971080d4750fff6bac0ca0166f1d8823e41 (diff)
downloadorg-mode-71f654a18254233d5ff67eb0b84529713ce16f03.tar.gz
org-macs: org-with-limited-levels also change org-outline-regexp-at-bol
* lisp/org-macs.el (org-with-limited-levels): also modify, when appropriate, `org-outline-regexp-at-bol'
-rw-r--r--lisp/org-macs.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 265ea5f..b8ee6b5 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -347,7 +347,8 @@ point nowhere."
(defmacro org-with-limited-levels (&rest body)
"Execute BODY with limited number of outline levels."
- `(let* ((org-outline-regexp (org-get-limited-outline-regexp)))
+ `(let* ((org-outline-regexp (org-get-limited-outline-regexp))
+ (org-outline-regexp-at-bol (concat "^" org-outline-regexp)))
,@body))
(defvar org-outline-regexp) ; defined in org.el