* lisp/org.el (org-narrow-to-subtree): ensure `org-back-to-heading' will move point to a real heading and not an inline task by wraping function into a org-with-limited-levels macro. --- lisp/org.el | 11 ++++++----- 1 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el index a26a3ca..6e1be76 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7566,11 +7566,12 @@ If yes, remember the marker and the distance to BEG." (interactive) (save-excursion (save-match-data - (narrow-to-region - (progn (org-back-to-heading t) (point)) - (progn (org-end-of-subtree t t) - (if (and (org-on-heading-p) (not (eobp))) (backward-char 1)) - (point)))))) + (org-with-limited-levels + (narrow-to-region + (progn (org-back-to-heading t) (point)) + (progn (org-end-of-subtree t t) + (if (and (org-on-heading-p) (not (eobp))) (backward-char 1)) + (point))))))) (defun org-narrow-to-block () "Narrow buffer to the current block." -- 1.7.4.1 _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode