From ca9c274ae72514a3b06b805456e656ff5ea7d58d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20Dj=C3=A4rv?= Date: Wed, 26 Jan 2011 19:05:13 +0100 Subject: * term/ns-win.el (ns-find-file): Expand ns-input-file with command-line-default-directory (Bug#7872). NOTE: The trunk version is a bit different, I think there will be merge conflicts. --- lisp/term/ns-win.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/term/ns-win.el') diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 0a4b4b15bfe..6880fdb8807 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -787,7 +787,8 @@ unless the current buffer is a scratch buffer." "Do a `find-file' with the `ns-input-file' as argument." (interactive) (let ((f) (file) (bufwin1) (bufwin2)) - (setq f (file-truename (car ns-input-file))) + (setq f (file-truename (expand-file-name (car ns-input-file) + command-line-default-directory))) (setq ns-input-file (cdr ns-input-file)) (setq file (find-file-noselect f)) (setq bufwin1 (get-buffer-window file 'visible)) -- cgit v1.2.1