Carsten Dominik 15 年之前
父节点
当前提交
c303801202
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-capture.el

+ 2 - 1
lisp/org-capture.el

@@ -762,7 +762,8 @@ already gone."
     (org-capture-narrow beg (1- end))
     (org-capture-narrow beg (1- end))
     (if (re-search-forward "%\\?" end t) (replace-match ""))))
     (if (re-search-forward "%\\?" end t) (replace-match ""))))
 
 
-(defun org-capture-mark-kill-region (bed end)
+(defun org-capture-mark-kill-region (beg end)
+  "Mark the region that will have to be killed when aborting capture."
   (let ((m1 (move-marker (make-marker) beg))
   (let ((m1 (move-marker (make-marker) beg))
 	(m2 (move-marker (make-marker) end)))
 	(m2 (move-marker (make-marker) end)))
     (org-capture-put :begin-marker m1)
     (org-capture-put :begin-marker m1)