Re: BUG - Can not refile to the last task

[Carsten Dominik <dominik@uva.nl>]

Fixed, thanks.

- Carsten

On Sep 19, 2008, at 10:17 PM, Bernt Hansen wrote:

> Hi Carsten,
>
> I found another one... but this was broken in 6.06b as well
>
> I can't refile a task to the last task in the file unless another task
> follows it.
>
> I normally refile to level 1 entries.  If you have a file like this
>
> ,----
> | * First Task
> | ** Refile me
> | * Other stuff
> | * Last Task
> `----
>
> then you can't refile (C-c C-w) the 'Refile me' task to 'Last Task'.
>
> The workaround is just to create something after * Last Task like *  
> Junk
> so you can refile to Last Task - then just delete * Junk.
>
> I get the following error:
>
> ,----
> | Debugger entered--Lisp error: (wrong-type-argument integer-or- 
> marker-p nil)
> |   goto-char(nil)
> |   (save-restriction (widen) (goto-char pos) (looking-at outline- 
> regexp) (setq level (org-get-valid-level ... 1)) (goto-char (if  
> reversed ... ...)) (bookmark-set "org-refile-last-stored") (org- 
> paste-subtree level))
> |   (save-excursion (save-restriction (widen) (goto-char pos)  
> (looking-at outline-regexp) (setq level ...) (goto-char ...)  
> (bookmark-set "org-refile-last-stored") (org-paste-subtree level)))
> |   (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 ...)) (org-copy-subtree 1 nil t) (save-excursion (set- 
> buffer ...) (setq reversed ...) (save-excursion ...)) (org-cut- 
> subtree) (setq org-markers-to-move nil) (message "Entry refiled to  
> \"%s\"" (car it)))
> |   (progn (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (setq  
> nbuf (or ... ...)) (if goto (progn ... ... ...) (org-copy-subtree 1  
> nil t) (save-excursion ... ... ...) (org-cut-subtree) (setq org- 
> markers-to-move nil) (message "Entry refiled to \"%s\"" ...)))
> |   (if (setq it (org-refile-get-location ... default-buffer))  
> (progn (setq file ... re ... pos ...) (setq nbuf ...) (if  
> goto ... ... ... ... ... ...)))
> |   (when (setq it (org-refile-get-location ... default-buffer))  
> (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (setq nbuf  
> (or ... ...)) (if goto (progn ... ... ...) (org-copy-subtree 1 nil  
> t) (save-excursion ... ... ...) (org-cut-subtree) (setq org-markers- 
> to-move nil) (message "Entry refiled to \"%s\"" ...)))
> |   (if (equal goto (quote ...)) (org-refile-goto-last-stored) (when  
> (setq it ...) (setq file ... re ... pos ...) (setq nbuf ...) (if  
> goto ... ... ... ... ... ...)))
> |   (let* ((cbuf ...) (filename ...) pos it nbuf file re level  
> reversed) (if (equal goto ...) (org-refile-goto-last-stored)  
> (when ... ... ... ...)))
> |   org-refile(nil)
> |   call-interactively(org-refile)
> |   recursive-edit()
> |   byte-code("Æ\x10	@Ç=ƒ!ÈÉÊ\"ˆËÉ!‰\x1aA@)¢Ì=ƒ!ÈÍÊ\"ˆÎ\v!ˆÏ ˆÐ	!ˆ\fƒcÑed\"
> VƒWebˆÒ
> ¥yˆ`\x1e^[dbˆÒ
> ¥
> Zyˆ\x0e^[`|ˆ)ÓcˆebˆÔÕÖ \"ˆ× ˆÔØ!ˆÙÊ\x1e\x1c\x1e\x1dÔØ!ˆŠÚ ˆ+Ù‡" [unread-command-char  
> debugger-args x debugger-buffer noninteractive debugger-batch-max- 
> lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to- 
> buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n"  
> message "%s" buffer-string kill-emacs "" nil recursive-edit  
> middlestart buffer-read-only standard-output] 4)
> |   debug(error (wrong-type-argument integer-or-marker-p nil))
> |   org-refile(nil)
> |   call-interactively(org-refile)
> `----
>
> -Bernt