[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: ido-read-file-name default-filename
From: |
Karl Chen |
Subject: |
Re: ido-read-file-name default-filename |
Date: |
Wed, 17 May 2006 01:31:19 -0700 |
User-agent: |
Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) |
>>>>> 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
- Re: ido-read-file-name default-filename,
Karl Chen <=