From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Re: Refile error - Kill is not a (set of) trees Date: Sat, 15 Aug 2009 12:57:03 +0200 Message-ID: <35CBA90B-89C5-4856-A165-0B9B87F08076@gmail.com> 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> <778C6960-66C2-4AA1-B000-90E1E56071E8@gilbert.org> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1McGwk-0000dn-MP for emacs-orgmode@gnu.org; Sat, 15 Aug 2009 06:57:14 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1McGwg-0000db-1p for emacs-orgmode@gnu.org; Sat, 15 Aug 2009 06:57:14 -0400 Received: from [199.232.76.173] (port=56602 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1McGwf-0000dY-Rm for emacs-orgmode@gnu.org; Sat, 15 Aug 2009 06:57:09 -0400 Received: from ey-out-1920.google.com ([74.125.78.145]:4738) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1McGwf-0006f1-5Q for emacs-orgmode@gnu.org; Sat, 15 Aug 2009 06:57:09 -0400 Received: by ey-out-1920.google.com with SMTP id 5so587596eyb.24 for ; Sat, 15 Aug 2009 03:57:08 -0700 (PDT) In-Reply-To: <778C6960-66C2-4AA1-B000-90E1E56071E8@gilbert.org> 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: Michael Gilbert Cc: emacs-orgmode@gnu.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 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 to yank anyway") > signal(error ("The kill is not a (set of) tree(s) - please use insertchar> 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 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