emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] capture template property :kill-buffer does not let me refile


From: Rodrigo Amestica
Subject: Re: [O] capture template property :kill-buffer does not let me refile
Date: Wed, 06 Nov 2013 10:17:45 -0500
User-agent: Wanderlust/2.15.9 (Almost Unreal) Emacs/24.3 Mule/6.0 (HANACHIRUSATO)

At Wed, 06 Nov 2013 14:42:25 +0100,
Bastien wrote:
> 
> [1  <text/plain (7bit)>]
> Hi Rodrigo,
> 
> Rodrigo Amestica <address@hidden> writes:
> 
> > based on 'printf' type logging I have found one solution that looks to me 
> > like a
> > bug fix in org-capture-refile. But I'm obviously far from guessing any side
> > effect that I could be missing.
> >
> > In org-capture-refile if I move org-capture-finalize after the
> > save-window-excursion form then the :kill-buffer option works as expected
> > without interfering with the refile operation.
> >
> > I meant to say a bug fix because to me it sounds more reasonable to call
> > org-capture-finalize really when finished, in this specific case after 
> > refile.
> >
> > Does that make sense?
> 
> Yes it does -- I attach a patch, can you confirm it is what you did
> and it does what you want?

yes, that's what I did and it works as I expected. 

many thanks,
 Rodrigo

> 
> Also, I'd be glad if a few others could test the patch so that we can
> make more sure there are no side-effects -- I could not think of any.
> 
> Thanks,
> 
> [2 org-capture-refile.patch <text/x-diff (7bit)>]
> diff --git a/lisp/org-capture.el b/lisp/org-capture.el
> index 871382d..b832798 100644
> --- a/lisp/org-capture.el
> +++ b/lisp/org-capture.el
> @@ -787,14 +787,14 @@ already gone.  Any prefix argument will be passed to 
> the refile command."
>    (let ((pos (point))
>       (base (buffer-base-buffer (current-buffer)))
>       (org-refile-for-capture t))
> -    (org-capture-finalize)
>      (save-window-excursion
>        (with-current-buffer (or base (current-buffer))
>       (save-excursion
>         (save-restriction
>           (widen)
>           (goto-char pos)
> -         (call-interactively 'org-refile)))))))
> +         (call-interactively 'org-refile)))))
> +    (org-capture-finalize)))
>  
>  (defun org-capture-kill ()
>    "Abort the current capture process."
> [3  <text/plain (7bit)>]
> 
> -- 
>  Bastien



reply via email to

[Prev in Thread] Current Thread [Next in Thread]