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
