Procházet zdrojové kódy

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 před 14 roky
rodič
revize
08ca5be491
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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))