Browse Source

Fix a bug with item demotion

M-right did not work on the last item of a list.

Report by Matti de Craene.
Carsten Dominik 15 years ago
parent
commit
6cb5382669
2 changed files with 6 additions and 2 deletions
  1. 3 0
      lisp/ChangeLog
  2. 3 2
      lisp/org-list.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2010-04-27  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-list.el (org-end-of-item-text-before-children): Also do
+	the right thing at the end of a file.
+
 	* org.el (org-set-packages-alist, org-get-packages-alist): New
 	function.
 	(org-export-latex-default-packages-alist)

+ 3 - 2
lisp/org-list.el

@@ -605,8 +605,9 @@ Assumes that the cursor is in the first ine of an item."
    (min (save-excursion (org-end-of-item) (point))
 	(save-excursion
 	  (goto-char (point-at-eol))
-	  (re-search-forward (concat "^" (org-item-re t)) nil t)
-	  (match-beginning 0)))))
+	  (if (re-search-forward (concat "^" (org-item-re t)) nil 'move)
+	      (match-beginning 0)
+	    (point-max))))))
 
 (defun org-next-item ()
   "Move to the beginning of the next item in the current plain list.