From mboxrd@z Thu Jan 1 00:00:00 1970 From: Michael Gilbert Subject: Re: Re: Refile error - Kill is not a (set of) trees Date: Sat, 15 Aug 2009 00:45:10 -0700 Message-ID: <778C6960-66C2-4AA1-B000-90E1E56071E8@gilbert.org> References: <876220CB-CCCA-4756-A924-29F0E50C3C3C@gmail.com> <3CE9E7E9-825D-4CF6-A734-F750A20F1E8D@gilbert.org> <53DD6892-68AA-4123-BF02-8C7FDB306215@gmail.com> <87y6pyom48.fsf@gmail.com> <4BBAC14E-D035-4BD9-AECD-2E1D2FCF66F1@gilbert.org> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: multipart/mixed; boundary="===============1878329020==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1McEYc-0000cI-8f for emacs-orgmode@gnu.org; Sat, 15 Aug 2009 04:24:10 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1McEYb-0000c6-9i for emacs-orgmode@gnu.org; Sat, 15 Aug 2009 04:24:09 -0400 Received: from [199.232.76.173] (port=55876 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1McEYb-0000c3-27 for emacs-orgmode@gnu.org; Sat, 15 Aug 2009 04:24:09 -0400 Received: from [74.94.69.218] (port=63560 helo=peach.gilbert.org) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1McEYa-0000QL-7a for emacs-orgmode@gnu.org; Sat, 15 Aug 2009 04:24:08 -0400 Received: from [10.1.10.190] (unknown [10.1.10.190]) by peach.gilbert.org (Postfix) with ESMTP id 6A3EA7E35221 for ; Sat, 15 Aug 2009 00:45:10 -0700 (PDT) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --===============1878329020== Content-Type: multipart/alternative; boundary=Apple-Mail-3--715312974 --Apple-Mail-3--715312974 Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit 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 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 > > > >> >> 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 to yank anyway") signal(error ("The kill is not a (set of) tree(s) - please use to yank anyway")) ad-Orig-error("%s" "The kill is not a (set of) tree(s) - please use to yank anyway") apply(ad-Orig-error ("%s" "The kill is not a (set of) tree(s) - please use 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 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 --Apple-Mail-3--715312974 Content-Type: text/html; charset=US-ASCII Content-Transfer-Encoding: quoted-printable
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




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)
 &nbs= p;(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-in= teractively(org-refile nil = nil)


-- = Michael



= --Apple-Mail-3--715312974-- --===============1878329020== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --===============1878329020==--