浏览代码

Added a missing call to (goto-char (point-min))

John Wiegley 14 年之前
父节点
当前提交
3ee6b99f06
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      lisp/org-capture.el

+ 1 - 0
lisp/org-capture.el

@@ -1144,6 +1144,7 @@ The template may still contain \"%?\" for cursor positioning."
 	      (insert result)))))
 
       ;; Simple %-escapes
+      (goto-char (point-min))
       (while (re-search-forward "%\\([tTuUaiAcxkKI]\\)" nil t)
 	(unless (org-capture-escaped-%)
 	  (when (and initial (equal (match-string 0) "%i"))