diff options
-rwxr-xr-x | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/org.el | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da5babfff..d41712e0c 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-04-01 Carsten Dominik <carsten.dominik@gmail.com> + * org.el (org-refile-get-location): Add file name only if not + already included in outline path. + * org-faces.el (org-n-level-faces): Fix customization type from number to integer. diff --git a/lisp/org.el b/lisp/org.el index 21ee45292..b8349251c 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8275,7 +8275,9 @@ operation has put the subtree." (filename (and cfn (expand-file-name cfn))) (tbl (mapcar (lambda (x) - (if (not (equal filename (nth 1 x))) + (if (and (not (member org-refile-use-outline-path + '(file full-file-path))) + (not (equal filename (nth 1 x)))) (cons (concat (car x) extra " (" (file-name-nondirectory (nth 1 x)) ")") (cdr x)) |