From 5606a6a941ada5c79be1f3c8ddc2a3a7ac76f52c Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 5 Mar 2011 23:48:29 +0100 Subject: [PATCH] Rename `org-get-refile-targets' to `org-refile-get-targets'. * org.el (org-refile-get-targets): Rename from `org-get-refile-targets.' --- lisp/org.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index b03de8612..5b1e864b8 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -10002,7 +10002,6 @@ on the system \"/user@host:\"." (defvar org-refile-cache nil "Cache for refile targets.") - (defvar org-refile-markers nil "All the markers used for caching refile locations.") @@ -10051,7 +10050,7 @@ on the system \"/user@host:\"." org-refile-cache)))) (and set (org-refile-cache-check-set set) set))))) -(defun org-get-refile-targets (&optional default-buffer) +(defun org-refile-get-targets (&optional default-buffer) "Produce a table with refile targets." (let ((case-fold-search nil) ;; otherwise org confuses "TODO" as a kw and "Todo" as a word @@ -10394,7 +10393,7 @@ this function appends the default value from `org-refile-history' automatically, if that is not empty." (let ((org-refile-targets org-refile-targets) (org-refile-use-outline-path org-refile-use-outline-path)) - (setq org-refile-target-table (org-get-refile-targets default-buffer))) + (setq org-refile-target-table (org-refile-get-targets default-buffer))) (unless org-refile-target-table (error "No refile targets")) (let* ((prompt (concat prompt