浏览代码

Merge branch 'maint'

Nicolas Goaziou 9 年之前
父节点
当前提交
44db364c69
共有 1 个文件被更改,包括 7 次插入7 次删除
  1. 7 7
      lisp/org.el

+ 7 - 7
lisp/org.el

@@ -11491,6 +11491,13 @@ on the system \"/user@host:\"."
 			   org-refile-cache))))
       (and set (org-refile-cache-check-set set) set)))))
 
+(defvar org-outline-path-cache nil
+  "Alist between buffer positions and outline paths.
+It value is an alist (POSITION . PATH) where POSITION is the
+buffer position at the beginning of an entry and PATH is a list
+of strings describing the outline path for that entry, in reverse
+order.")
+
 (defun org-refile-get-targets (&optional default-buffer excluded-entries)
   "Produce a table with refile targets."
   (let ((case-fold-search nil)
@@ -11588,13 +11595,6 @@ on the system \"/user@host:\"."
     (setq s (replace-match "\\" t t s)))
   s)
 
-(defvar org-outline-path-cache nil
-  "Alist between buffer positions and outline paths.
-It value is an alist (POSITION . PATH) where POSITION is the
-buffer position at the beginning of an entry and PATH is a list
-of strings describing the outline path for that entry, in reverse
-order.")
-
 (defun org--get-outline-path-1 (&optional use-cache)
   "Return outline path to current headline.