Add missing `save-restriction' to template copy function
This commit is contained in:
parent
fba18ca527
commit
a404f9a8c2
|
@ -414,7 +414,8 @@ headline of the periodic task, i.e., of the parent of the current
|
||||||
item at point. The body of the template item, without any
|
item at point. The body of the template item, without any
|
||||||
drawers, will be copied to point."
|
drawers, will be copied to point."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((template (save-mark-and-excursion
|
(let ((template (save-restriction
|
||||||
|
(save-mark-and-excursion
|
||||||
(let ((template-element (progn
|
(let ((template-element (progn
|
||||||
(outline-up-heading 1 'invisible-ok)
|
(outline-up-heading 1 'invisible-ok)
|
||||||
(outline-next-heading)
|
(outline-next-heading)
|
||||||
|
@ -429,7 +430,7 @@ drawers, will be copied to point."
|
||||||
(goto-char (org-element-property :contents-end template-element))
|
(goto-char (org-element-property :contents-end template-element))
|
||||||
(org-mark-element)
|
(org-mark-element)
|
||||||
(buffer-substring-no-properties (region-beginning)
|
(buffer-substring-no-properties (region-beginning)
|
||||||
(region-end))))))
|
(region-end)))))))
|
||||||
(insert template)
|
(insert template)
|
||||||
(org-update-statistics-cookies nil)))
|
(org-update-statistics-cookies nil)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue