mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-agenda.el (org-agenda-insert-diary-make-new-entry): Fix ordering 

* org-agenda.el (org-agenda-insert-diary-make-new-entry):
Fix ordering.

TINYCHANGE
This commit is contained in:
Nikolai Weibull 2014-07-28 16:22:04 +02:00 committed by Bastien Guerry
parent 3d7a9f8517
commit 5512bedee6
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org-agenda.el
View File

@ -9486,20 +9486,21 @@ a timestamp can be added there."
(if org-adapt-indentation (org-indent-to-column 2)))
(defun org-agenda-insert-diary-make-new-entry (text)
"Make a new entry with TEXT as the first child of the current subtree.
Position the point in the line right after the new heading so
that a timestamp can be added there."
"Make new entry as last child of current entry.
Add TEXT as headline, and position the cursor in the second line so that
a timestamp can be added there."
(let ((org-show-following-heading t)
(org-show-siblings t)
(org-show-hierarchy-above t)
(org-show-entry-below t)
(has-children (save-excursion (org-goto-first-child)))
col)
(outline-next-heading)
(org-back-over-empty-lines)
(or (looking-at "[ \t]*$")
(progn (insert "\n") (backward-char 1)))
(org-insert-heading nil t)
(org-do-demote)
(org-insert-heading 16 t)
(unless has-children
(org-do-demote))
(setq col (current-column))
(insert text "\n")
(if org-adapt-indentation (org-indent-to-column col))