From mboxrd@z Thu Jan 1 00:00:00 1970 From: Leo Subject: [bug] infinite loop Date: Wed, 11 Apr 2007 21:06:37 +0100 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Hbj9J-0003Ei-47 for emacs-orgmode@gnu.org; Wed, 11 Apr 2007 16:10:37 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Hbj9H-0003Bh-CR for emacs-orgmode@gnu.org; Wed, 11 Apr 2007 16:10:36 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Hbj9H-0003Az-6l for emacs-orgmode@gnu.org; Wed, 11 Apr 2007 16:10:35 -0400 Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Hbj5B-0002f3-D2 for emacs-orgmode@gnu.org; Wed, 11 Apr 2007 16:06:21 -0400 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1Hbj4s-0008PW-0N for emacs-orgmode@gnu.org; Wed, 11 Apr 2007 22:06:02 +0200 Received: from sl392.st-edmunds.cam.ac.uk ([131.111.223.202]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 11 Apr 2007 22:06:02 +0200 Received: from sdl.web by sl392.st-edmunds.cam.ac.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 11 Apr 2007 22:06:02 +0200 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: emacs-orgmode@gnu.org 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 (GPG Key: 9283AA3F)