Re: ido-read-file-name default-filename

[Karl Chen]

>>>>> On 2005-08-18 01:52 PDT, Kim F Storm writes:

    Karl> I would like ido-read-file-name to heed
    Karl> default-filename.  I'm willing to implement it.

    Kim> Please do.

I finally got around doing this.


--- ido.el      06 Apr 2006 03:35:22 -0700      1.93
+++ ido.el      17 May 2006 01:28:50 -0700      
@@ -4468,6 +4468,7 @@
             (vc-handled-backends (and (boundp 'vc-handled-backends) 
vc-handled-backends))
             (minibuffer-completing-file-name t)
             (ido-current-directory (ido-expand-directory dir))
+             (ido-initial-directory ido-current-directory)
             (ido-directory-nonreadable (not (file-readable-p 
ido-current-directory)))
             (ido-directory-too-big (and (not ido-directory-nonreadable)
                                         (ido-directory-too-big-p 
ido-current-directory)))
@@ -4482,6 +4483,8 @@
          (setq filename 'fallback))
         ((eq ido-exit 'dired)
          (setq filename ido-current-directory))
+         ((and default-filename (string= filename ".") (string= 
ido-current-directory ido-initial-directory))
+          (setq filename default-filename))
         (filename
          (setq filename
                (concat ido-current-directory filename))))))


-- 
Karl 2006-05-17 01:26