From cb1ab577a2a1b21fb1acf2a726f5fe3e5d59cb13 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 13 Jul 2010 14:12:45 +0200 Subject: [PATCH] Fix bookmarking the capture position * lisp/org-capture.el (org-capture-refile): Do not try to manipulate bookmark list. * lisp/org.el (org-refile): Use the correct bookmark here. --- lisp/org-capture.el | 11 +---------- lisp/org.el | 2 +- 2 files changed, 2 insertions(+), 11 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 7648167d6..2cb6876f2 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -547,16 +547,7 @@ already gone." (save-restriction (widen) (goto-char pos) - (call-interactively 'org-refile) - (when (and (boundp 'bookmark-alist) - (assoc "org-capture-last-stored" bookmark-alist)) - (if (assoc "org-refile-last-stored" bookmark-alist) - (setcdr (assoc "org-refile-last-stored" bookmark-alist) - (cdr (assoc "org-refile-last-stored" bookmark-alist))) - (push (cons "org-capture-last-stored" - (cdr (assoc "org-refile-last-stored" - bookmark-alist))) - bookmark-alist))))))))) + (call-interactively 'org-refile))))))) (defun org-capture-kill () "Abort the current capture process." diff --git a/lisp/org.el b/lisp/org.el index b8219019f..6118e1396 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -10143,7 +10143,7 @@ This can be done with a 0 prefix: `C-0 C-c C-w'" ;; If we are refiling for capture, make sure that the ;; last-capture pointers point here (when (org-bound-and-true-p org-refile-for-capture) - (bookmark-set "org-refile-last-stored") + (bookmark-set "org-capture-last-stored-marker") (move-marker org-capture-last-stored-marker (point))) (if (fboundp 'deactivate-mark) (deactivate-mark)) (run-hooks 'org-after-refile-insert-hook)))) -- 2.11.4.GIT