mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 02:16:27 +00:00
Code Releases Activity

Fix infinite loop when buffer was ending on a blank lines with whitespaces.

Browse source
This commit is contained in:
Nicolas Goaziou 2010-08-27 16:12:44 +02:00
parent 421ba3a187
commit d05c77d6a5
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/org-list.el
View file

@ -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)
(skip-chars-backward " \r\t\n")
(1+ (point-at-eol))))))
(if (eobp)
(point)
(skip-chars-backward " \r\t\n")
(1+ (point-at-eol)))))))
(defun org-beginning-of-item ()
"Go to the beginning of the current hand-formatted item.