Make use of `org-insert-heading' instead of inserting the * character
* lisp/org-agenda.el (org-agenda-insert-diary-as-top-level): Make use of `org-insert-heading' instead of inserting the * character Therefore, the hooks associated to the insertion of a heading will be triggered. Since those hooks may cause the creation of some metadata. `org-end-of-meta-data' is used afterward.
This commit is contained in:
parent
b5d9f4be4d
commit
2ebb14d746
|
@ -9488,7 +9488,10 @@ a timestamp can be added there."
|
||||||
(widen)
|
(widen)
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(or (bolp) (insert "\n"))
|
(or (bolp) (insert "\n"))
|
||||||
(insert "* " text "\n")
|
(org-insert-heading)
|
||||||
|
(insert text)
|
||||||
|
(org-end-of-meta-data)
|
||||||
|
(unless (bolp) (insert "\n"))
|
||||||
(if org-adapt-indentation (org-indent-to-column 2)))
|
(if org-adapt-indentation (org-indent-to-column 2)))
|
||||||
|
|
||||||
(defun org-agenda-insert-diary-make-new-entry (text)
|
(defun org-agenda-insert-diary-make-new-entry (text)
|
||||||
|
|
Loading…
Reference in New Issue