|
@@ -348,6 +348,7 @@ point nowhere."
|
|
(defmacro org-with-limited-levels (&rest body)
|
|
(defmacro org-with-limited-levels (&rest body)
|
|
"Execute BODY with limited number of outline levels."
|
|
"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))
|
|
|
|
+ (outline-regexp org-outline-regexp)
|
|
(org-outline-regexp-at-bol (concat "^" org-outline-regexp)))
|
|
(org-outline-regexp-at-bol (concat "^" org-outline-regexp)))
|
|
,@body))
|
|
,@body))
|
|
|
|
|