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)
  (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