diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-07-21 13:45:48 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-07-21 13:45:56 +0200 |
commit | 71f654a18254233d5ff67eb0b84529713ce16f03 (patch) | |
tree | 1879a23b88e79713d006c223bbc818e297345414 | |
parent | 74a4f971080d4750fff6bac0ca0166f1d8823e41 (diff) | |
download | org-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.el | 3 |
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 |