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
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode