[Orgmode] [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)