diff options
author | satotake <doublequotation@gmail.com> | 2021-05-14 03:20:52 +0900 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2021-05-15 10:19:19 +0200 |
commit | d285831af391be0045cd70650f1ec87d9a3e3000 (patch) | |
tree | 213fc6b19775bfdec6877b4f8590632a242023a1 | |
parent | 06c064e97c329bf8271ce71f00f39d5441ebd7c9 (diff) | |
download | org-mode-d285831af391be0045cd70650f1ec87d9a3e3000.tar.gz |
org-refile.el: Fix the case of emtpy buffer name
* lisp/org-refile.el (org-refile-get-targets): Ensure that the
arguments of `file-name-nondirectory' and `file-truename' are not nil.
This prevents errors from being raised when calling `org-refile' in a
buffer that is not visiting a file.
TINYCHANGE
-rw-r--r-- | lisp/org-refile.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/org-refile.el b/lisp/org-refile.el index 1e6872b..e4f000d 100644 --- a/lisp/org-refile.el +++ b/lisp/org-refile.el @@ -310,11 +310,13 @@ converted to a headline before refiling." (setq f (buffer-file-name (buffer-base-buffer f)))) (setq f (and f (expand-file-name f))) (when (eq org-refile-use-outline-path 'file) - (push (list (file-name-nondirectory f) f nil nil) tgs)) + (push (list (and f (file-name-nondirectory f)) f nil nil) tgs)) (when (eq org-refile-use-outline-path 'buffer-name) (push (list (buffer-name (buffer-base-buffer)) f nil nil) tgs)) (when (eq org-refile-use-outline-path 'full-file-path) - (push (list (file-truename (buffer-file-name (buffer-base-buffer))) f nil nil) tgs)) + (push (list (and (buffer-file-name (buffer-base-buffer)) + (file-truename (buffer-file-name (buffer-base-buffer)))) + f nil nil) tgs)) (org-with-wide-buffer (goto-char (point-min)) (setq org-outline-path-cache nil) @@ -337,9 +339,10 @@ converted to a headline before refiling." #'identity (append (pcase org-refile-use-outline-path - (`file (list (file-name-nondirectory - (buffer-file-name - (buffer-base-buffer))))) + (`file (list + (and (buffer-file-name (buffer-base-buffer)) + (file-name-nondirectory + (buffer-file-name (buffer-base-buffer)))))) (`full-file-path (list (buffer-file-name (buffer-base-buffer)))) |