mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

Make sure narrowing to subtree does not swallow headings

Browse Source 
Jan Bcker writes:

> Consider the following situation:
>
> * A
>  Some text.
> * B
>
> - Place the cursor on A, press C-x n w (org-narrow-to-subtree).
> - Go to the very end of the buffer and insert "xyz".
> - C-x n w (widen).
>
> You end up with:
>
> * A
>  Some Text
> xyz* B
This commit is contained in:
Carsten Dominik 2010-01-22 11:21:55 +01:00
parent 2e53d9b137
commit 4fc5ac29c6
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2010-01-18 Jan Böcker <jan.boecker@jboecker.de>
* org.el (org-narrow-to-subtree): Position the end of the narrowed
region before the line with the next heading, to prevent the user
from prepending text to the next headline.
2010-01-20 Stephen Eglen <stephen@gnu.org>
* org-agenda.el (org-get-time-of-day): Use

8
lisp/org.el
View File

@ -6023,7 +6023,9 @@ frame is not changed."
(outline-up-heading 1 t)))
(setq beg (point)
heading (org-get-heading))
(org-end-of-subtree t t) (setq end (point)))
(org-end-of-subtree t t)
(if (org-on-heading-p) (backward-char 1))
(setq end (point)))
(if (and (buffer-live-p org-last-indirect-buffer)
(not (eq org-indirect-buffer-display 'new-frame))
(not arg))
@ -6830,7 +6832,9 @@ If yes, remember the marker and the distance to BEG."
(save-match-data
(narrow-to-region
(progn (org-back-to-heading t) (point))
(progn (org-end-of-subtree t t) (point))))))
(progn (org-end-of-subtree t t)
(if (org-on-heading-p) (backward-char 1))
(point))))))
(defun org-clone-subtree-with-time-shift (n &optional shift)
"Clone the task (subtree) at point N times.