Ver Fonte

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

John Wiegley há 14 anos atrás
pai
commit
3ee6b99f06
1 ficheiros alterados com 1 adições e 0 exclusões
  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"))