[Orgmode] 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)