* [bug] infinite loop
@ 2007-04-11 20:06 Leo
2007-04-11 23:19 ` Jason F. McBrayer
2007-04-12 7:09 ` Carsten Dominik
0 siblings, 2 replies; 3+ messages in thread
From: Leo @ 2007-04-11 20:06 UTC (permalink / raw)
To: emacs-orgmode
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)
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [bug] infinite loop
2007-04-11 20:06 [bug] infinite loop Leo
@ 2007-04-11 23:19 ` Jason F. McBrayer
2007-04-12 7:09 ` Carsten Dominik
1 sibling, 0 replies; 3+ messages in thread
From: Jason F. McBrayer @ 2007-04-11 23:19 UTC (permalink / raw)
To: emacs-orgmode
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 |
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [bug] infinite loop
2007-04-11 20:06 [bug] infinite loop Leo
2007-04-11 23:19 ` Jason F. McBrayer
@ 2007-04-12 7:09 ` Carsten Dominik
1 sibling, 0 replies; 3+ messages in thread
From: Carsten Dominik @ 2007-04-12 7:09 UTC (permalink / raw)
To: Leo; +Cc: emacs-orgmode
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
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2007-04-12 8:19 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-04-11 20:06 [bug] infinite loop Leo
2007-04-11 23:19 ` Jason F. McBrayer
2007-04-12 7:09 ` Carsten Dominik
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).