diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2020-02-11 09:49:06 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2020-02-11 09:49:06 +0100 |
| commit | a0129535300838164a8816cf1574d27265832dac (patch) | |
| tree | 1cf156151147b10e9cbe7e65a591797454826684 /lisp/net | |
| parent | 2e2f53907103d801fb57dc0eef55906cdf4d791b (diff) | |
| download | emacs-a0129535300838164a8816cf1574d27265832dac.tar.gz | |
Fix problem with auth-source.el in Tramp
* lisp/net/tramp.el (tramp-read-passwd):
Use `tramp-compat-temporary-file-directory'. (Bug#39389, Bug#39489)
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 0e44656f2a4..6928df4fa60 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4849,7 +4849,12 @@ verbosity of 6." "Read a password from user (compat function). Consults the auth-source package. Invokes `password-read' if available, `read-passwd' else." - (let* ((case-fold-search t) + (let* (;; If `auth-sources' contains "~/.authinfo.gpg", and + ;; `exec-path' contains a relative file name like ".", it + ;; could happen that the "gpg" command is not found. So we + ;; adapt `default-directory'. (Bug#39389, Bug#39489) + (default-directory (tramp-compat-temporary-file-directory)) + (case-fold-search t) (key (tramp-make-tramp-file-name ;; In tramp-sh.el, we must use "password-vector" due to ;; multi-hop. |