> (when (and minibuffer-completing-file-name
> (file-name-directory mbuf-contents))
> (with-current-buffer mainbuf
> (setq default-directory (file-name-directory mbuf-contents))))
Or rather
(when minibuffer-completing-file-name
(with-current-buffer mainbuf
(setq default-directory
(file-name-directory (expand-file-name mbuf-contents)))))
-- Stefan
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
