From mboxrd@z Thu Jan  1 00:00:00 1970
From: Carsten Dominik <dominik@science.uva.nl>
Subject: Re: [bug] infinite loop
Date: Thu, 12 Apr 2007 09:09:15 +0200
Message-ID: <549859f0f607ea6c07bc5d3d5a541145@science.uva.nl>
References: <m2r6qqvfoy.fsf@sl392.st-edmunds.cam.ac.uk>
Mime-Version: 1.0 (Apple Message framework v624)
Content-Type: text/plain; charset=US-ASCII; format=flowed
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1HbuX5-0002Eb-Uz
	for emacs-orgmode@gnu.org; Thu, 12 Apr 2007 04:19:56 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1HbuX1-0002Cl-WD
	for emacs-orgmode@gnu.org; Thu, 12 Apr 2007 04:19:53 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1HbuX1-0002Cd-KU
	for emacs-orgmode@gnu.org; Thu, 12 Apr 2007 04:19:51 -0400
Received: from korteweg.uva.nl ([146.50.98.70])
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <dominik@science.uva.nl>) id 1HbuSr-0000RX-Nh
	for emacs-orgmode@gnu.org; Thu, 12 Apr 2007 04:15:34 -0400
In-Reply-To: <m2r6qqvfoy.fsf@sl392.st-edmunds.cam.ac.uk>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: Leo <sdl.web@gmail.com>
Cc: emacs-orgmode <emacs-orgmode@gnu.org>

Fixed, thanks.

- Carsten

On Apr 11, 2007, at 22:06, Leo wrote:

> Another bug in 4.70.
>
> before the first level-1 heading, typing "M-RET" will enter emacs into
> infinite loop.
>
> ,----[ Backtrace ]
> | Debugger entered--Lisp error: (quit)
> |   looking-at("[ 	]*$")
> |   (if (looking-at "[ 	]*$") (setq ind1 ind-empty) 
> (skip-chars-forward " 	") (setq ind1 (current-column)))
> |   (while t (beginning-of-line 0) (if (< ... limit) (throw ... nil)) 
> (if (looking-at "[ 	]*$") (setq ind1 ind-empty) (skip-chars-forward " 
> 	") (setq ind1 ...)) (if (< ind1 ind) (throw ... ...)))
> |   (catch (quote exit) (while t (beginning-of-line 0) (if ... ...) 
> (if ... ... ... ...) (if ... ...)))
> |   (if (catch (quote exit) (while t ... ... ... ...)) nil (goto-char 
> pos) (error "Not in an item"))
> |   (if (org-at-item-p) (beginning-of-line 1) (beginning-of-line 1) 
> (skip-chars-forward " 	") (setq ind (current-column)) (if (catch ... 
> ...) nil (goto-char pos) (error "Not in an item")))
> |   (let ((pos ...) (limit ...) (ind-empty ...) ind ind1) (if 
> (org-at-item-p) (beginning-of-line 1) (beginning-of-line 1) 
> (skip-chars-forward " 	") (setq ind ...) (if ... nil ... ...)))
> |   org-beginning-of-item()
> |   (progn (org-beginning-of-item) (org-at-item-p) (if 
> (org-invisible-p) (error "Invisible item")) t)
> |   (condition-case nil (progn (org-beginning-of-item) (org-at-item-p) 
> (if ... ...) t) (error nil))
> |   (save-excursion (condition-case nil (progn ... ... ... t) (error 
> nil)))
> |   (if (save-excursion (condition-case nil ... ...)) (progn (let* ... 
> ... ... ... ... ... ...) (org-maybe-renumber-ordered-list) (and 
> checkbox ...) t))
> |   (when (save-excursion (condition-case nil ... ...)) (let* (... ... 
> ... pos) (cond ... ... ...) (insert bul ...) (just-one-space) (setq 
> pos ...) (end-of-line 1) (unless ... ... ...)) 
> (org-maybe-renumber-ordered-list) (and checkbox 
> (org-update-checkbox-count-maybe)) t)
> |   org-insert-item()
> |   (not (org-insert-item))
> |   (or force-heading (not (org-insert-item)))
> |   (if (or force-heading (not ...)) (progn (let* ... ... ... ... ... 
> ... ... ...)))
> |   (when (or force-heading (not ...)) (let* (... ... pos) (cond ... 
> ... ...) (insert head) (just-one-space) (setq pos ...) (end-of-line 1) 
> (unless ... ... ...) (run-hooks ...)))
> |   (if (= (buffer-size) 0) (insert "\n* ") (when (or force-heading 
> ...) (let* ... ... ... ... ... ... ... ...)))
> |   org-insert-heading(nil)
> |   call-interactively(org-insert-heading)
> |   (cond ((org-at-table-p) (call-interactively ...)) (t 
> (call-interactively ...)))
> |   org-meta-return(nil)
> |   call-interactively(org-meta-return)
> `----
>
> Regards,
> -- 
> Leo <sdl.web AT gmail.com>                         (GPG Key: 9283AA3F)
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>

--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477