diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2012-06-17 20:54:39 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2012-06-17 20:54:39 +0200 |
| commit | 298551496fd9011dc68f8a463a69820573a3abd2 (patch) | |
| tree | fcebb8d4c5785af2eaf4ceb0304c59a66c4b504a /lisp/minibuffer.el | |
| parent | ddfbf826bcd838b46e1e0ac577b76853267c060a (diff) | |
| download | emacs-298551496fd9011dc68f8a463a69820573a3abd2.tar.gz | |
* 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.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |