From 298551496fd9011dc68f8a463a69820573a3abd2 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 17 Jun 2012 20:54:39 +0200 Subject: * minibuffer.el (read-file-name-default): Bind `non-essential' to `t'. * net/tramp.el (tramp-file-name-handler): Catch 'non-essential. * net/ange-ftp.el (ange-ftp-gwp-start, ange-ftp-start-process): * net/tramp-sh.el (tramp-maybe-open-connection): Throw if `non-essential' is non-nil. --- lisp/minibuffer.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/minibuffer.el') diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 6cd7af7fd01..e4453afe046 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -2335,7 +2335,8 @@ See `read-file-name' for the meaning of the arguments." (if (consp default-filename) (mapcar 'abbreviate-file-name default-filename) (abbreviate-file-name default-filename)))) - (let ((insdef (cond + (let ((non-essential t) + (insdef (cond ((and insert-default-directory (stringp dir)) (if initial (cons (minibuffer--double-dollars (concat dir initial)) -- cgit v1.2.1