Re: [Orgmode] [PATCH] Always run org-insert-heading-hook when creating headlines

[Carsten Dominik]

Hi Bernt,

this patch does not work, it calls the hook also after inserting a new  
item.

Please fix it by first reverting, and then call the hook also inside  
the if clause, right after (insert "\n") - you need progn then, of  
course.

Thanks.

- Carsten

On Sep 26, 2010, at 4:15 PM, Bernt Hansen wrote:

> * lisp/org.el (org-insert-heading): Run org-insert-heading-hook when  
> creating
> the first heading in a file
>
> The org-insert-heading-hook was skipped when creating the first
> heading in a new org file.
> ---
>
> I use an hook which creates an inactive timestamp for new headings.   
> This was reported
> by k-man on the mailing list stating it doesn't work for empty org  
> files when creating
> the first heading.
>
> I use the following hook:
>
> (defun bh/insert-inactive-timestamp ()
>  (interactive)
>  (org-insert-time-stamp nil t t nil nil nil))
>
> (defun bh/insert-heading-inactive-timestamp ()
>  (save-excursion
>    (org-return)
>    (org-cycle)
>    (bh/insert-inactive-timestamp)))
>
> (add-hook 'org-insert-heading-hook 'bh/insert-heading-inactive- 
> timestamp)
>
> -Bernt
>
> lisp/org.el |    4 ++--
> 1 files changed, 2 insertions(+), 2 deletions(-)
>
> diff --git a/lisp/org.el b/lisp/org.el
> index 75ee798..667a4e4 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -6752,8 +6752,8 @@ This is important for non-interactive uses of  
> the command."
>         (when (and org-insert-heading-respect-content hide-previous)
>           (save-excursion
>             (goto-char previous-pos)
> -           (hide-subtree)))
> -       (run-hooks 'org-insert-heading-hook)))))
> +           (hide-subtree))))))
> +  (run-hooks 'org-insert-heading-hook))
>
> (defun org-get-heading (&optional no-tags)
>   "Return the heading of the current entry, without the stars."
> --
> 1.7.3
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode