Re: Re: Refile error - Kill is not a (set of) trees

From: Carsten Dominik <carsten.dominik@gmail.com>
To: Michael Gilbert <mcg@gilbert.org>
Cc: emacs-orgmode@gnu.org
Subject: Re: Re: Refile error - Kill is not a (set of) trees
Date: Sat, 15 Aug 2009 12:57:03 +0200	[thread overview]
Message-ID: <35CBA90B-89C5-4856-A165-0B9B87F08076@gmail.com> (raw)
In-Reply-To: <778C6960-66C2-4AA1-B000-90E1E56071E8@gilbert.org>

On Aug 15, 2009, at 9:45 AM, Michael Gilbert wrote:

>
> On Aug 15,2009, at 12:04 AM, Carsten Dominik wrote:
>
>> Hi Michael,
>>
>> On Aug 15, 2009, at 8:39 AM, Michael Gilbert wrote:
>>
>>>> Carsten Dominik <carsten.dominik@gmail.com> writes:
>>>>
>>>>> could you please do the following:
>>>>>
>>>>> - Run Emacs with a minimal configuration
>>>>> - Make me a test file that will let me reproduce the bug if  
>>>>> possible.
>>>
>>> I followed Chris Mann's example and did the following:
>>>
>>> 1) Create a file `reproduce.org', with the following contents:
>>>
>>> Level1-1
>>
>> Is there a star missing here before Level1-1?
>
> Yes, just a copy error here in my email. The original file has the  
> star.
>
>
>>> ** Level2-1
>>> *** TODO Level3-1
>>>   SCHEDULED: <2009-08-05 Wed>
>>> ** Level2-2
>>> * Level1-2
>>>
>>> 2) Ran emacs clean, with no preferences file.
>>>
>>> 3) Executed this, to make sure I was using the latest orgmode:
>>
>>> (setq load-path (cons "~/Applications/Text/Aquamacs/contrib/org/ 
>>> lisp" load-path))
>>>
>>> Checked to make sure. Yes, it's 6.29trans
>>

How did you check? In Emacs, when looking at an Org file,
with M-x org-version?

>>
>>
>>>
>>> 4) Moved the points to Level3-1. C-c C-w. Attempt to refile to  
>>> Level1-2.
>>
>> So you are refiling en entry to the same position where is was  
>> before?
>> OK, this it not forbidden.
>
> No. I think that is meant to move it DOWN to the bottom entry.
>
>
>>>
>>> 5) "The kill is not a (set of) trees" etc.
>>
>> For me it works just fine.  I just tried in AquaEmacs.
>
> Huh. This is so strange. Wish we could reproduce this OYM.
>
>
>>> Running:
>>>
>>> Aquamacs, Emacs 23.1.1
>>> Org-Mode 6.29trans
>>>
>>>
>>> I am at the end of this. My pile of things to refile is now so  
>>> huge that my agenda is incomprehensible. I really do not know what  
>>> to do here. The error is real. I hope that this reproduction is in  
>>> some way useful. Is there something else I can do? Backtrace?  
>>> Examine the kill-ring?
>>
>> Yes, backtrace, and the content of the kill ring would be  
>> interesting.
>> Backtrace with uncompiled code if possible, press C-u C-c C-x !  
>> before trying to create the bug.
>
> Here's the backtrace:
>
> Debugger entered--Lisp error: (error "The kill is not a (set of)  
> tree(s) - please use <S-insertchar> to yank anyway")
>   signal(error ("The kill is not a (set of) tree(s) - please use <S- 
> insertchar> to yank anyway"))
>   ad-Orig-error("%s" "The kill is not a (set of) tree(s) - please  
> use <S-insertchar> to yank anyway")
>   apply(ad-Orig-error ("%s" "The kill is not a (set of) tree(s) -  
> please use <S-insertchar> to yank anyway"))
>   (setq ad-return-value (apply (quote ad-Orig-error) args))
>   (if aquamacs-ring-bell-on-error-flag (progn (aquamacs-bell) (setq  
> ad-return-value ...)) (setq ad-return-value (apply ... args)))
>   (let (ad-return-value) (if aquamacs-ring-bell-on-error-flag  
> (progn ... ...) (setq ad-return-value ...)) ad-return-value)
>   error("%s" "The kill is not a (set of) tree(s) - please use <S- 
> insertchar> to yank anyway")
>   (if (org-kill-is-subtree-p tree) nil (error "%s" (substitute- 
> command-keys "The kill is not a (set of) tree(s) - please use \\ 
> [yank] to yank anyway")))
>   (unless (org-kill-is-subtree-p tree) (error "%s" (substitute- 
> command-keys "The kill is not a (set of) tree(s) - please use \\ 
> [yank] to yank anyway")))
>   org-paste-subtree(2)
>   (save-restriction (widen) (if pos (progn ... ... ... ...) (setq  
> level 1) (if ... ... ... ...)) (if (not ...) (newline)) (bookmark- 
> set "org-refile-last-stored") (org-paste-subtree level) (if  
> (fboundp ...) (deactivate-mark)) (run-hooks (quote org-after-refile- 
> insert-hook)))
>   (save-excursion (save-restriction (widen) (if pos ... ... ...)  
> (if ... ...) (bookmark-set "org-refile-last-stored") (org-paste- 
> subtree level) (if ... ...) (run-hooks ...)))
>   (save-excursion (set-buffer (setq nbuf ...)) (setq reversed (org- 
> notes-order-reversed-p)) (save-excursion (save- 
> restriction ... ... ... ... ... ... ...)))
>   (if goto (progn (switch-to-buffer nbuf) (goto-char pos) (org-show- 
> context ...)) (if regionp (progn ... ...) (org-copy-subtree 1 nil  
> t)) (save-excursion (set-buffer ...) (setq reversed ...) (save- 
> excursion ...)) (if regionp (delete-region ... ...) (org-cut- 
> subtree)) (when (featurep ...) (org-inlinetask-remove-END-maybe))  
> (setq org-markers-to-move nil) (message "Refiled to \"%s\"" (car it)))
>   (progn (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if  
> (and ... pos ... ...) (error "Cannot refile to position inside the  
> tree or region")) (setq nbuf (or ... ...)) (if goto  
> (progn ... ... ...) (if regionp ... ...) (save- 
> excursion ... ... ...) (if regionp ... ...) (when ... ...) (setq org- 
> markers-to-move nil) (message "Refiled to \"%s\"" ...)))
>   (if (setq it (or rfloc ...)) (progn (setq file ... re ... pos ...)  
> (if ... ...) (setq nbuf ...) (if goto ... ... ... ... ... ... ...)))
>   (when (setq it (or rfloc ...)) (setq file (nth 1 it) re (nth 2 it)  
> pos (nth 3 it)) (if (and ... pos ... ...) (error "Cannot refile to  
> position inside the tree or region")) (setq nbuf (or ... ...)) (if  
> goto (progn ... ... ...) (if regionp ... ...) (save- 
> excursion ... ... ...) (if regionp ... ...) (when ... ...) (setq org- 
> markers-to-move nil) (message "Refiled to \"%s\"" ...)))
>   (if (equal goto (quote ...)) (org-refile-goto-last-stored) (when  
> (setq it ...) (setq file ... re ... pos ...) (if ... ...) (setq  
> nbuf ...) (if goto ... ... ... ... ... ... ...)))
>   (let* ((cbuf ...) (regionp ...) (region-start ...) (region- 
> end ...) (region-length ...) (filename ...) pos it nbuf file re  
> level reversed) (when regionp (goto-char region-start) (or ... ...)  
> (setq region-start ...) (unless ... ...)) (if (equal goto ...) (org- 
> refile-goto-last-stored) (when ... ... ... ... ...)))
>   org-refile(nil)
>   call-interactively(org-refile nil nil)
>
>
> -- Michael
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode