Bug: Before first heading error when rearranging tasks in narrow to subtree [6.33trans (release_6.33f.45.gfe96)]

Bug: Before first heading error when rearranging tasks in narrow to subtree [6.33trans (release_6.33f.45.gfe96)]

[Bernt Hansen]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

,----[ test.org ]
| 
| * Main task
| ** DONE Task 1
| ** DONE Task 2
| ** TODO Task 4
| ** TODO Task 3
| ** TODO Task 5
| * Next task
`----

Put the point on * Main Task
C-x n s to narrow to subtree
C-c C-v to show active TODOs
Put point on TODO Task 4
M-down arrow 
M-up arrow

generates

Debugger entered--Lisp error: (error "before first heading")
  signal(error ("before first heading"))
  error("before first heading")
  outline-back-to-heading()
  hide-entry()
  (if (save-excursion (goto-char ...) (org-invisible-p)) (hide-entry))
  (while (re-search-forward re nil t) (if (save-excursion ... ...) (hide-entry)))
  (progn (goto-char (point-min)) (while (re-search-forward re nil t) (if ... ...)))
  (if re (progn (goto-char ...) (while ... ...)))
  (when re (goto-char (point-min)) (while (re-search-forward re nil t) (if ... ...)))
  (save-restriction (narrow-to-region beg end) (when re (goto-char ...) (while ... ...)) (org-cycle-show-empty-lines (quote overview)) (org-cycle-hide-drawers (quote overview)))
  (save-excursion (save-restriction (narrow-to-region beg end) (when re ... ...) (org-cycle-show-empty-lines ...) (org-cycle-hide-drawers ...)))
  (let* ((beg ...) (end ...) (level ...) (re ...)) (save-excursion (save-restriction ... ... ... ...)))
  org-clean-visibility-after-subtree-move()
  (let ((movfunc ...) (ins-point ...) (cnt ...) beg beg0 end txt folded ne-beg ne-end ne-ins ins-end) (org-back-to-heading) (setq beg0 (point)) (save-excursion (setq ne-beg ...) (setq beg ...)) (save-match-data (save-excursion ... ...) (outline-end-of-subtree)) (outline-next-heading) (setq ne-end (org-back-over-empty-lines)) (setq end (point)) (goto-char beg0) (when (and ... ... ...) (save-excursion ... ... ...)) (while (> cnt 0) (or ... ...) (setq cnt ...)) (if (> arg 0) (progn ... ...)) (setq ne-ins (org-back-over-empty-lines)) (move-marker ins-point (point)) (setq txt (buffer-substring beg end)) (org-save-markers-in-region beg end) (delete-region beg end) (org-remove-empty-overlays-at beg) (or (= beg ...) (outline-flag-region ... beg nil)) (or (bobp) (outline-flag-region ... ... nil)) (
 and (not ...) (looking-at "\n") (forward-char 1)) (let (...) (insert-before-markers txt) (org-reinstall-markers-in-region bbb) (move-marker ins-point bbb)) (or (bolp) (insert "\n")) (setq ins-end (point)) (goto-char ins-point) (org-skip-whitespace) (when (and ... ... ...) (save-excursion ... ...) (insert ...)) (move-marker ins-point nil) (if folded (hide-subtree) (org-show-entry) (show-children) (org-cycle-hide-drawers ...)) (org-clean-visibility-after-subtree-move))
  org-move-subtree-down(-1)
  org-move-subtree-up(1)
  call-interactively(org-move-subtree-up)
  (cond ((run-hook-with-args-until-success ...)) ((org-at-table-p) (org-call-with-arg ... ...)) ((org-on-heading-p) (call-interactively ...)) ((org-at-item-p) (call-interactively ...)) (t (transpose-lines 1) (beginning-of-line -1)))
  org-metaup(nil)
  call-interactively(org-metaup)

-Bernt


Emacs  : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
 of 2008-11-09 on raven, modified by Debian
Package: Org-mode version 6.33trans (release_6.33f.45.gfe96)

Re: Bug: Before first heading error when rearranging tasks in narrow to subtree [6.33trans (release_6.33f.45.gfe96)]

[Carsten Dominik]

Fixed, thanks.

- Carsten

On Nov 27, 2009, at 3:15 AM, Bernt Hansen wrote:

>
> Remember to cover the basics, that is, what you expected to happen and
> what in fact did happen.  You don't know how to make a good report?   
> See
>
>     http://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org-mode mailing list.
> ------------------------------------------------------------------------
>
> ,----[ test.org ]
> |
> | * Main task
> | ** DONE Task 1
> | ** DONE Task 2
> | ** TODO Task 4
> | ** TODO Task 3
> | ** TODO Task 5
> | * Next task
> `----
>
> Put the point on * Main Task
> C-x n s to narrow to subtree
> C-c C-v to show active TODOs
> Put point on TODO Task 4
> M-down arrow
> M-up arrow
>
> generates
>
> Debugger entered--Lisp error: (error "before first heading")
>  signal(error ("before first heading"))
>  error("before first heading")
>  outline-back-to-heading()
>  hide-entry()
>  (if (save-excursion (goto-char ...) (org-invisible-p)) (hide-entry))
>  (while (re-search-forward re nil t) (if (save-excursion ... ...)  
> (hide-entry)))
>  (progn (goto-char (point-min)) (while (re-search-forward re nil t)  
> (if ... ...)))
>  (if re (progn (goto-char ...) (while ... ...)))
>  (when re (goto-char (point-min)) (while (re-search-forward re nil  
> t) (if ... ...)))
>  (save-restriction (narrow-to-region beg end) (when re (goto- 
> char ...) (while ... ...)) (org-cycle-show-empty-lines (quote  
> overview)) (org-cycle-hide-drawers (quote overview)))
>  (save-excursion (save-restriction (narrow-to-region beg end) (when  
> re ... ...) (org-cycle-show-empty-lines ...) (org-cycle-hide- 
> drawers ...)))
>  (let* ((beg ...) (end ...) (level ...) (re ...)) (save-excursion  
> (save-restriction ... ... ... ...)))
>  org-clean-visibility-after-subtree-move()
>  (let ((movfunc ...) (ins-point ...) (cnt ...) beg beg0 end txt  
> folded ne-beg ne-end ne-ins ins-end) (org-back-to-heading) (setq  
> beg0 (point)) (save-excursion (setq ne-beg ...) (setq beg ...))  
> (save-match-data (save-excursion ... ...) (outline-end-of-subtree))  
> (outline-next-heading) (setq ne-end (org-back-over-empty-lines))  
> (setq end (point)) (goto-char beg0) (when (and ... ... ...) (save- 
> excursion ... ... ...)) (while (> cnt 0) (or ... ...) (setq  
> cnt ...)) (if (> arg 0) (progn ... ...)) (setq ne-ins (org-back-over- 
> empty-lines)) (move-marker ins-point (point)) (setq txt (buffer- 
> substring beg end)) (org-save-markers-in-region beg end) (delete- 
> region beg end) (org-remove-empty-overlays-at beg) (or (= beg ...)  
> (outline-flag-region ... beg nil)) (or (bobp) (outline-flag- 
> region ... ... nil)) (and (not ...) (looking-at "\n") (forward-char  
> 1)) (let (...) (insert-before-markers txt) (org-reinstall-markers-in- 
> region bbb) (move-marker ins-point bbb)) (or (bolp) (insert "\n"))  
> (setq ins-end (point)) (goto-char ins-point) (org-skip-whitespace)  
> (when (and ... ... ...) (save-excursion ... ...) (insert ...)) (move- 
> marker ins-point nil) (if folded (hide-subtree) (org-show-entry)  
> (show-children) (org-cycle-hide-drawers ...)) (org-clean-visibility- 
> after-subtree-move))
>  org-move-subtree-down(-1)
>  org-move-subtree-up(1)
>  call-interactively(org-move-subtree-up)
>  (cond ((run-hook-with-args-until-success ...)) ((org-at-table-p)  
> (org-call-with-arg ... ...)) ((org-on-heading-p) (call- 
> interactively ...)) ((org-at-item-p) (call-interactively ...)) (t  
> (transpose-lines 1) (beginning-of-line -1)))
>  org-metaup(nil)
>  call-interactively(org-metaup)
>
> -Bernt
>
>
> Emacs  : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
> of 2008-11-09 on raven, modified by Debian
> Package: Org-mode version 6.33trans (release_6.33f.45.gfe96)
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten