Просмотр исходного кода

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

Nicolas Goaziou 16 лет назад
Родитель
Сommit
fb7183c619
1 измененных файлов с 1 добавлено и 1 удалено
  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)