[bug] infinite loop

[bug] infinite loop

[Leo]

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)

Re: [bug] infinite loop

[Jason F. McBrayer]

On Wed, 2007-04-11 at 21:06 +0100, Leo wrote:

> before the first level-1 heading, typing "M-RET" will enter emacs into
> infinite loop.

I can confirm this.

-- 
+-----------------------------------------------------------+
| Jason F. McBrayer                    jmcbray@carcosa.net  |
| If someone conquers a thousand times a thousand others in |
| battle, and someone else conquers himself, the latter one |
| is the greatest of all conquerors.  --- The Dhammapada    |

Re: [bug] infinite loop

[Carsten Dominik]

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