Browse Source

capture: Fix org-capture-place-entry narrow bounds

* lisp/org-capture.el (org-capture-place-entry): Prevent breaking the
following headline inside the capture buffer.  This should match the
behavior from 9.3.
(org-capture-finalize): Reverts cb2774d1a, which solves a similar
problem but only in the finalize stage, so the subtree structure would
still be broken in the middle of editing the capture.
Kevin Liu 4 years ago
parent
commit
6882478cac
1 changed files with 1 additions and 11 deletions
  1. 1 11
      lisp/org-capture.el

+ 1 - 11
lisp/org-capture.el

@@ -728,16 +728,6 @@ captured item after finalizing."
 
 
   (run-hooks 'org-capture-prepare-finalize-hook)
   (run-hooks 'org-capture-prepare-finalize-hook)
 
 
-  ;; Fix missing final newline, as it may have been deleted by accident
-  (when (eq (org-capture-get :type 'local) 'entry)
-    (save-excursion
-      (goto-char (point-max))
-      (and (not (looking-at-p "^"))
-	   (org-with-wide-buffer
-	    (and (not (looking-at-p org-heading-regexp))
-		 (not (eobp))))
-	   (insert "\n"))))
-
   ;; Did we start the clock in this capture buffer?
   ;; Did we start the clock in this capture buffer?
   (when (and org-capture-clock-was-started
   (when (and org-capture-clock-was-started
 	     org-clock-marker
 	     org-clock-marker
@@ -1166,7 +1156,7 @@ may have been stored before."
 	(org-capture-empty-lines-after)
 	(org-capture-empty-lines-after)
 	(unless (org-at-heading-p) (outline-next-heading))
 	(unless (org-at-heading-p) (outline-next-heading))
 	(org-capture-mark-kill-region origin (point))
 	(org-capture-mark-kill-region origin (point))
-	(org-capture-narrow beg (point))
+	(org-capture-narrow beg (if (eobp) (point) (1- (point))))
 	(org-capture--position-cursor beg (point))))))
 	(org-capture--position-cursor beg (point))))))
 
 
 (defun org-capture-place-item ()
 (defun org-capture-place-item ()