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.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode