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

This commit is contained in:
John Wiegley 2010-07-28 21:05:50 -04:00
parent dfa41442af
commit 3ee6b99f06
1 changed files with 1 additions and 0 deletions

View File

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