Adrian Aichner <aichner(a)ecf.teradyne.com> writes:
Greg> Ick. What do you propose? I could make the
interactive
Greg> specification "string" rather than "directory" but then
you
Greg> don't get filename completion even when it is local. M-x
Greg> set-variable RET cvs-cvsroot will work. Either way, setting
Greg> cvs-cvsroot is evil; do you really want/need to do that?
Use the (interactive FORM ) declaration to define your own completing
read.
Like this (untested)
(interactive
(list (completing-read "CVSroot:"
(lambda (str)
(unless (string-match ":" str) ;; Remote CVS
(file-name-completion str))))))
or you want to call read-file-name-1