Abbreviate file name in correct place when loading file

Part of #586
emacs-ess · Jul 8, 2018 · 3a8169e · 3a8169e
1 parent a9e4a08
commit 3a8169e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lisp/ess-inf.el b/lisp/ess-inf.el
@@ -1303,7 +1303,7 @@ type of the region."
          (file (if ess-microsoft-p
                    (ess-replace-in-string file "[\\]" "/")
                  file)))
-    file))
+    (abbreviate-file-name file)))
 
 (defun ess-load-file--normalise-buffer (file)
   (when (ess-check-source file)
@@ -1325,7 +1325,7 @@ This handles Tramp when working on a remote."
                               (buffer-file-name))
                          (expand-file-name
                           (read-file-name "Load source file: " nil nil t)))))
-  (ess-load-file--normalise-buffer (abbreviate-file-name filename))
+  (ess-load-file--normalise-buffer filename)
   ;; Pop up an inferior window
   (save-selected-window
     (ess-switch-to-ESS t))