Re: set a "default" directory in a function when asking for a file

[Niels Giesen <niels.giesen@gmail.com>]

Niels Felsted Thorsen <nift@maclisp.org> writes:

> Hi
>
> I have a function like this:
>
> (defun testfun (file)
>   (interactive "fFile: ")
>   (message file))
>
> But it will ask for the file based on, as I understand it, the value
> of "default-directory" which is buffer-local.
>
> Is there a way to specify default-directory just for this function? So
> it will always start with fx:
>
> File: ~/foo/bar/
>
> when asking for the file.
>

Define your function as follows:

(defun testfun (file)
  (interactive (list (read-file-name "File: " "~/foo/bar/")))
  (message file))