mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-10-18 02:19:46 +00:00
org-refile-get-location: Fix outline path to a symlink of current buffer
* lisp/org-refile.el (org-refile-get-location): When current buffer file is a symlink to refile location, do not append the file name to the outline path, just as we do when current buffer is the same as refile location file. TINYCHANGE
This commit is contained in:
parent
fc0fb90b67
commit
a4ff518a2e
@ -666,12 +666,12 @@ this function appends the default value from
|
||||
#'completing-read))
|
||||
(extra (if org-refile-use-outline-path "/" ""))
|
||||
(cbnex (concat (buffer-name) extra))
|
||||
(filename (and cfn (expand-file-name cfn)))
|
||||
(filename (and cfn (file-truename cfn)))
|
||||
(tbl (mapcar
|
||||
(lambda (x)
|
||||
(if (and (not (member org-refile-use-outline-path
|
||||
'(file full-file-path title)))
|
||||
(not (equal filename (nth 1 x))))
|
||||
(not (equal filename (file-truename (nth 1 x)))))
|
||||
(cons (concat (car x) extra " ("
|
||||
(file-name-nondirectory (nth 1 x)) ")")
|
||||
(cdr x))
|
||||
|
Loading…
Reference in New Issue
Block a user