From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Bug: Before first heading error when rearranging tasks in narrow to subtree [6.33trans (release_6.33f.45.gfe96)] Date: Wed, 9 Dec 2009 11:45:01 +0100 Message-ID: <089AE1CD-C43C-4BA3-9892-7A06A0351657@gmail.com> References: <200911270215.nAR2FIWn029471@gollum.intra.norang.ca> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NIK2i-0002QF-Uo for emacs-orgmode@gnu.org; Wed, 09 Dec 2009 05:45:13 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NIK2e-0002Lx-RI for emacs-orgmode@gnu.org; Wed, 09 Dec 2009 05:45:12 -0500 Received: from [199.232.76.173] (port=39620 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NIK2e-0002Lc-EC for emacs-orgmode@gnu.org; Wed, 09 Dec 2009 05:45:08 -0500 Received: from mail-ew0-f209.google.com ([209.85.219.209]:43648) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NIK2d-0000hg-O5 for emacs-orgmode@gnu.org; Wed, 09 Dec 2009 05:45:08 -0500 Received: by ewy1 with SMTP id 1so3858416ewy.8 for ; Wed, 09 Dec 2009 02:45:06 -0800 (PST) In-Reply-To: <200911270215.nAR2FIWn029471@gollum.intra.norang.ca> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bernt Hansen Cc: emacs-orgmode@gnu.org 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