Browse Source

Enforce `org-bookmark-names-plist'

* lisp/org-capture.el (org-capture-goto-last-stored): Use
  `org-bookmark-names-plist'.
* lisp/org.el (org-refile-goto-last-stored): Use
  `org-bookmark-names-plist'.
Oleh Krehel 11 years ago
parent
commit
367780d133
2 changed files with 3 additions and 2 deletions
  1. 2 1
      lisp/org-capture.el
  2. 1 1
      lisp/org.el

+ 2 - 1
lisp/org-capture.el

@@ -811,7 +811,8 @@ already gone.  Any prefix argument will be passed to the refile command."
   "Go to the location where the last capture note was stored."
   "Go to the location where the last capture note was stored."
   (interactive)
   (interactive)
   (org-goto-marker-or-bmk org-capture-last-stored-marker
   (org-goto-marker-or-bmk org-capture-last-stored-marker
-			  "org-capture-last-stored")
+			  (plist-get org-bookmark-names-plist
+				 :last-capture))
   (message "This is the last note stored by a capture process"))
   (message "This is the last note stored by a capture process"))
 
 
 ;;; Supporting functions for handling the process
 ;;; Supporting functions for handling the process

+ 1 - 1
lisp/org.el

@@ -11746,7 +11746,7 @@ prefix argument (`C-u C-u C-u C-c C-w')."
 (defun org-refile-goto-last-stored ()
 (defun org-refile-goto-last-stored ()
   "Go to the location where the last refile was stored."
   "Go to the location where the last refile was stored."
   (interactive)
   (interactive)
-  (bookmark-jump "org-refile-last-stored")
+  (bookmark-jump (plist-get org-bookmark-names-plist :last-refile))
   (message "This is the location of the last refile"))
   (message "This is the location of the last refile"))
 
 
 (defun org-refile--get-location (refloc tbl)
 (defun org-refile--get-location (refloc tbl)