From: Kim F. Storm <storm@cua.dk>
Date: Wed, 7 Jun 2006 22:45:27 +0000 (+0000)
Subject: (ido-file-internal): Pass full file name to write-file.
X-Git-Tag: emacs-pretest-22.0.90~2026
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1d0c70d707114d855efcd001eac49d7d115dde0;p=emacs.git

(ido-file-internal): Pass full file name to write-file.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index efea9a9fbb9..08d5c91d203 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2339,7 +2339,7 @@ If INITIAL is non-nil, it specifies the initial input string."
 	(setq default-directory ido-current-directory)
 	(ido-record-command 'write-file (concat ido-current-directory filename))
 	(ido-record-work-directory)
-	(write-file filename))
+	(write-file (concat ido-current-directory filename)))
 
        ((eq method 'read-only)
 	(ido-record-work-file filename)