Jelajahi Sumber

org-list: tiny code change

* lisp/org-list.el (org-list-struct-apply-struct): don't
  use (copy-marker (point)) instead of (point-marker).
Nicolas Goaziou 14 tahun lalu
induk
melakukan
08ca5be491
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  1. 1 1
      lisp/org-list.el

+ 1 - 1
lisp/org-list.el

@@ -1770,7 +1770,7 @@ the structure to be applied.  The function will only modify parts
 of the list which have changed.
 of the list which have changed.
 
 
 Initial position of cursor is restored after the changes."
 Initial position of cursor is restored after the changes."
-  (let* ((origin (copy-marker (point)))
+  (let* ((origin (point-maker))
 	 (inlinetask-re (and (featurep 'org-inlinetask)
 	 (inlinetask-re (and (featurep 'org-inlinetask)
 			     (org-inlinetask-outline-regexp)))
 			     (org-inlinetask-outline-regexp)))
 	 (item-re (org-item-re))
 	 (item-re (org-item-re))