ソースを参照

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 年 前
コミット
08ca5be491
1 ファイル変更1 行追加1 行削除
  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))