diff options
| author | Bastien <bzg@gnu.org> | 2020-02-13 11:44:10 +0100 |
|---|---|---|
| committer | Bastien <bzg@gnu.org> | 2020-02-13 11:44:10 +0100 |
| commit | 937ac9b77713b0a542f211e16af5fa85f3621515 (patch) | |
| tree | aa661d9d006d836cf0c7153b53912897d1355505 | |
| parent | 855f5fda76b3c9d7ab78ab536a80adfed07d5a79 (diff) | |
| download | org-mode-937ac9b77713b0a542f211e16af5fa85f3621515.tar.gz | |
lisp/org-refile.el (org-refile-get-location): Small refactoring
* lisp/org-refile.el (org-refile-get-location): Small refactoring.
| -rw-r--r-- | lisp/org-refile.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/org-refile.el b/lisp/org-refile.el index bfed0b4..1dc8e80 100644 --- a/lisp/org-refile.el +++ b/lisp/org-refile.el @@ -782,18 +782,14 @@ this function appends the default value from (setq old-hist org-refile-history) (setq answ (funcall cfunc prompt tbl nil (not new-nodes) nil 'org-refile-history - (or cdef (concat (car org-refile-history) - (when (and org-refile-use-outline-path) - "/"))))) + (or cdef (concat (car org-refile-history) extra)))) (if (setq pa (org-refile--get-location answ tbl)) (let* ((last-refile-loc (car org-refile-history)) - (last-refile-loc-path - (concat last-refile-loc - (when (and org-refile-use-outline-path) "/")))) + (last-refile-loc-path (concat last-refile-loc extra))) (org-refile-check-position pa) (when (or (not org-refile-history) (not (eq old-hist org-refile-history)) - (not (equal (car pa) last-refile-loc))) + (not (equal (car pa) last-refile-loc-path))) (setq org-refile-history (cons (car pa) (if (assoc last-refile-loc tbl) org-refile-history |