mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-22 15:18:37 +00:00
Fix infinite loop when buffer was ending on a blank lines with whitespaces.
This commit is contained in:
parent
421ba3a187
commit
d05c77d6a5
|
@ -525,21 +525,22 @@ List ending is determined by the indentation of text. See
|
|||
(beginning-of-line)
|
||||
(and beg-item
|
||||
(catch 'exit
|
||||
(skip-chars-forward " \t")
|
||||
(while t
|
||||
(let ((ind (org-get-indentation)))
|
||||
(cond
|
||||
((or (>= (point) limit)
|
||||
(looking-at "^[ \t]*:END:"))
|
||||
(looking-at ":END:"))
|
||||
(throw 'exit (point)))
|
||||
((looking-at "^[ \t]*$")
|
||||
((= (point) (point-at-eol))
|
||||
(skip-chars-forward " \r\t\n")
|
||||
(beginning-of-line))
|
||||
((looking-at org-item-beginning-re)
|
||||
((org-at-item-p)
|
||||
(setq ind-ref (min ind ind-ref))
|
||||
(forward-line 1))
|
||||
((<= ind ind-ref)
|
||||
(throw 'exit (point-at-bol)))
|
||||
((looking-at "^[ \t]*#\\+begin_")
|
||||
((looking-at "#\\+begin_")
|
||||
(re-search-forward "[ \t]*#\\+end_")
|
||||
(forward-line 1))
|
||||
(t (forward-line 1))))))))))
|
||||
|
@ -889,8 +890,10 @@ A checkbox is blocked if all of the following conditions are fulfilled:
|
|||
(when bottom
|
||||
(save-excursion
|
||||
(goto-char bottom)
|
||||
(if (eobp)
|
||||
(point)
|
||||
(skip-chars-backward " \r\t\n")
|
||||
(1+ (point-at-eol))))))
|
||||
(1+ (point-at-eol)))))))
|
||||
|
||||
(defun org-beginning-of-item ()
|
||||
"Go to the beginning of the current hand-formatted item.
|
||||
|
|
Loading…
Reference in a new issue