소스 검색

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 년 전
부모
커밋
367780d133
2개의 변경된 파일3개의 추가작업 그리고 2개의 파일을 삭제
  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)