(ido-file-internal): Use current buffer's file name as default

choice for ido-find-alternate-file.  Suggested by Matt Hodges.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ido.el b/lisp/ido.el
index 97e285916d6..8844b12f5b7 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2270,7 +2270,9 @@ If INITIAL is non-nil, it specifies the initial input string."
         (let ((minibuffer-completing-file-name t))
           (setq filename (ido-read-internal item
                                             (or prompt "Find file: ")
-                                            'ido-file-history nil nil initial))))
+                                            'ido-file-history
+                                            (and (eq method 'alt-file) buffer-file-name)
+                                            nil initial))))
 
       ;; Choose the file name: either the text typed in, or the head
       ;; of the list of matches