From: Karl Chen <quarl@cs.berkeley.edu>
Cc: Emacs Developement List <emacs-devel@gnu.org>
Subject: Re: ido-read-file-name default-filename
Date: Wed, 17 May 2006 01:31:19 -0700 [thread overview]
Message-ID: <quack.20060517T0131.lthac9h6oiw@roar.cs.berkeley.edu> (raw)
In-Reply-To: <m3oe7vzky7.fsf@kfs-l.imdomain.dk> (Kim F. Storm's message of "Thu, 18 Aug 2005 10:52:00 +0200")
>>>>> 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
next prev parent reply other threads:[~2006-05-17 8:31 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-08-18 0:14 ido-read-file-name default-filename Karl Chen
2005-08-18 8:52 ` Kim F. Storm
2006-05-17 8:31 ` Karl Chen [this message]
2006-05-17 21:04 ` Kim F. Storm
[not found] ` <m34pzobaz4.fsf@kfs-l.imdomain.dk>
2006-05-18 0:20 ` Karl Chen
2006-05-18 7:44 ` Kim F. Storm
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=quack.20060517T0131.lthac9h6oiw@roar.cs.berkeley.edu \
--to=quarl@cs.berkeley.edu \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.