Browse Source

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

Nicolas Goaziou 15 năm trước cách đây
mục cha
commit
fb7183c619
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  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)