Browse Source

Forgot a `save-excursion' in `org-apply-on-list'.

Nicolas Goaziou 15 years ago
parent
commit
fb7183c619
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-list.el

+ 1 - 1
lisp/org-list.el

@@ -1235,7 +1235,7 @@ will return the number of items in the current list.
 Sublists of the list are skipped. Cursor is always at the
 Sublists of the list are skipped. Cursor is always at the
 beginning of the item."
 beginning of the item."
   (save-excursion
   (save-excursion
-    (let ((end (copy-marker (org-end-of-item-list)))
+    (let ((end (copy-marker (save-excursion (org-end-of-item-list))))
 	  (next-p (make-marker))
 	  (next-p (make-marker))
 	  (move-down-action
 	  (move-down-action
 	   (lambda (pos value &rest args)
 	   (lambda (pos value &rest args)