Expand file name in helm-quit-and-find-file.

* helm-utils.el (helm-quit-and-find-file): Do it.

1 files changed, 5 insertions, 4 deletions

diff --git a/helm-utils.el b/helm-utils.el
index 1a8360a5..a835a260 100644
--- a/helm-utils.el
+++ b/helm-utils.el
@@ -369,7 +369,8 @@ from its directory."
                          (eq major-mode 'org-agenda-mode))
                        org-directory
                        (expand-file-name org-directory))
-                  (with-current-buffer buf default-directory)))
+                  (with-current-buffer buf
+                    (expand-file-name default-directory))))
          ;; imenu (marker).
          (marker
           (or (buffer-file-name (marker-buffer (cdr sel)))
@@ -379,7 +380,7 @@ from its directory."
                   (if (and ffap-url-regexp
                            (string-match ffap-url-regexp it))
                       it (expand-file-name it))
-                default-directory))
+                (expand-file-name default-directory)))
          ((and (stringp sel) (or (file-remote-p sel)
                                  (file-exists-p sel)))
           (expand-file-name sel))
@@ -389,11 +390,11 @@ from its directory."
          ;; Occur.
          (grep-line
           (with-current-buffer (get-buffer (car grep-line))
-            (or (buffer-file-name) default-directory)))
+            (expand-file-name (or (buffer-file-name) default-directory))))
          ;; Url.
          ((and (stringp sel) ffap-url-regexp (string-match ffap-url-regexp sel)) sel)
          ;; Default.
-         (t default-preselection))))))
+         (t (expand-file-name default-preselection)))))))
 (put 'helm-quit-and-find-file 'helm-only t)
 
 (defun helm-generic-sort-fn (s1 s2)