forked from mirrors/org-mode
Include the final newline when narrowing to a subtree
This commit is contained in:
parent
55e74f361e
commit
60bf447608
|
@ -1,3 +1,7 @@
|
||||||
|
2009-09-18 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org.el (org-sort-entries-or-items): Include the final newline.
|
||||||
|
|
||||||
2009-09-17 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-09-17 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
* org.el (org-closest-date): Fix issue with past preference.
|
* org.el (org-closest-date): Fix issue with past preference.
|
||||||
|
|
|
@ -5651,7 +5651,7 @@ frame is not changed."
|
||||||
(outline-up-heading 1 t)))
|
(outline-up-heading 1 t)))
|
||||||
(setq beg (point)
|
(setq beg (point)
|
||||||
heading (org-get-heading))
|
heading (org-get-heading))
|
||||||
(org-end-of-subtree t) (setq end (point)))
|
(org-end-of-subtree t t) (setq end (point)))
|
||||||
(if (and (buffer-live-p org-last-indirect-buffer)
|
(if (and (buffer-live-p org-last-indirect-buffer)
|
||||||
(not (eq org-indirect-buffer-display 'new-frame))
|
(not (eq org-indirect-buffer-display 'new-frame))
|
||||||
(not arg))
|
(not arg))
|
||||||
|
@ -6420,7 +6420,7 @@ If yes, remember the marker and the distance to BEG."
|
||||||
(save-match-data
|
(save-match-data
|
||||||
(narrow-to-region
|
(narrow-to-region
|
||||||
(progn (org-back-to-heading t) (point))
|
(progn (org-back-to-heading t) (point))
|
||||||
(progn (org-end-of-subtree t) (point))))))
|
(progn (org-end-of-subtree t t) (point))))))
|
||||||
|
|
||||||
(defun org-clone-subtree-with-time-shift (n &optional shift)
|
(defun org-clone-subtree-with-time-shift (n &optional shift)
|
||||||
"Clone the task (subtree) at point N times.
|
"Clone the task (subtree) at point N times.
|
||||||
|
|
Loading…
Reference in New Issue