From e2654c3256ed266dd7466da7a50cb5856811f78f Mon Sep 17 00:00:00 2001 From: luhuaei Date: Sat, 4 Apr 2020 00:27:11 +0800 Subject: [PATCH] eaf-interleave: remove eaf-interleave--goto-insert-position --- app/interleave/eaf-interleave.el | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/app/interleave/eaf-interleave.el b/app/interleave/eaf-interleave.el index b7ee1b9..11dad01 100644 --- a/app/interleave/eaf-interleave.el +++ b/app/interleave/eaf-interleave.el @@ -355,7 +355,7 @@ If POSITION is non-nil move point to it." (save-restriction (when eaf-interleave-disable-narrowing (eaf-interleave--narrow-to-subtree t)) - (eaf-interleave--goto-insert-position)) + (goto-char (point-max))) ;; Expand again. Sometimes the new content is outside the narrowed ;; region. (org-show-subtree) @@ -364,13 +364,6 @@ If POSITION is non-nil move point to it." (when (not (looking-back "^ *" (line-beginning-position))) (org-return)))) -(defun eaf-interleave--goto-insert-position () - "Move the point to the right insert postion. - -For multi-pdf notes this is the end of the subtree. For everything else -this is the end of the buffer" - (goto-char (point-max))) - (defun eaf-interleave--insert-heading-respect-content (parent-headline) "Create a new heading in the notes buffer. @@ -395,7 +388,7 @@ Return the position of the newly inserted heading." (with-current-buffer eaf-interleave-org-buffer (save-excursion (widen) - (let ((position (eaf-interleave--goto-insert-position))) + (let ((position (goto-char (point-max)))) (setq new-note-position (eaf-interleave--insert-heading-respect-content position))) (insert (format "Notes for page %d" page)) (org-set-property eaf-interleave--url-prop url)