mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 05:02:52 +00:00
Make sure narrowing to subtree does not swallow headings
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:
parent
2e53d9b137
commit
4fc5ac29c6
|
@ -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
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Reference in a new issue