|
From: | Michael Gilbert |
Subject: | Re: [Orgmode] Re: Refile error - Kill is not a (set of) trees |
Date: | Sat, 15 Aug 2009 00:45:10 -0700 |
On Aug 15,2009, at 12:04 AM, Carsten Dominik wrote:
Yes, just a copy error here in my email. The original file has the star.
No. I think that is meant to move it DOWN to the bottom entry.
Huh. This is so strange. Wish we could reproduce this OYM.
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 |
[Prev in Thread] | Current Thread | [Next in Thread] |