فهرست منبع

Merge branch 'maint'

Bastien 5 سال پیش
والد
کامیت
4fe4d12a79
2فایلهای تغییر یافته به همراه1 افزوده شده و 2 حذف شده
  1. 1 1
      lisp/org-capture.el
  2. 0 1
      testing/lisp/test-org-capture.el

+ 1 - 1
lisp/org-capture.el

@@ -1156,7 +1156,7 @@ may have been stored before."
 	(org-capture-empty-lines-after)
 	(unless (org-at-heading-p) (outline-next-heading))
 	(org-capture-mark-kill-region origin (point))
-	(org-capture-narrow beg (1- (point)))
+	(org-capture-narrow beg (point))
 	(when (or (search-backward "%?" beg t)
 		  (search-forward "%?" nil t))
 	  (replace-match ""))))))

+ 0 - 1
testing/lisp/test-org-capture.el

@@ -208,7 +208,6 @@
 	     (org-capture-templates
 	      `(("t" "Todo" entry (file+headline ,file "A") "** H1 %?"))))
 	(org-capture nil "t")
-	(goto-char (point-max))
 	(insert "Capture text")
 	(org-capture-finalize))
       (buffer-string))))