summaryrefslogtreecommitdiff
path: root/lisp/minibuffer.el
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2021-07-02 14:51:23 +0200
committerMichael Albinus <michael.albinus@gmx.de>2021-07-02 14:51:23 +0200
commit225ca617b70d3c70376c2d9bf38ced2f2323b26e (patch)
tree34571b9c4020bc23cd6d9f3608061f667db5e7fd /lisp/minibuffer.el
parent38aa2074f84b4aec5ccc3a9b250c0dcee18157f8 (diff)
downloademacs-225ca617b70d3c70376c2d9bf38ced2f2323b26e.tar.gz
Implement another fix for bug#49229
* lisp/minibuffer.el (read-file-name-default): Respect remote files. (Bug#49229) * lisp/net/tramp-sh.el (tramp-sh-handle-expand-file-name): Handle special file names on MS Windows. * lisp/net/tramp.el (tramp-file-name-handler): Revert patch. (Bug#49229)
Diffstat (limited to 'lisp/minibuffer.el')
-rw-r--r--lisp/minibuffer.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 71a2177c9b1..813ce14c59b 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3161,6 +3161,7 @@ See `read-file-name' for the meaning of the arguments."
(unless val (error "No file name specified"))
(if (and default-filename
+ (not (file-remote-p dir))
(string-equal val (if (consp insdef) (car insdef) insdef)))
(setq val default-filename))
(setq val (substitute-in-file-name val))