mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Adapt Tramp for `auth-info-password'

Browse source 
* lisp/net/tramp-compat.el (tramp-compat-auth-info-password):
New defalias.

* lisp/net/tramp.el (tramp-read-passwd): Use it.
This commit is contained in:
Michael Albinus 2022-01-08 13:38:18 +01:00
parent a80125ae37
commit 9652736b08
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/tramp-compat.el
View file

@ -283,6 +283,16 @@ CONDITION can also be a list of error conditions."
(tramp-error vec tramp-permission-denied file)
(tramp-error vec tramp-permission-denied "Permission denied: %s" file)))
;; Function `auth-info-password' is new in Emacs 29.1.
(defalias 'tramp-compat-auth-info-password
(if (fboundp 'auth-info-password)
#'auth-info-password
(lambda (auth-info)
(let ((secret (plist-get auth-info :secret)))
(while (functionp secret)
(setq secret (funcall secret)))
secret))))
(dolist (elt (all-completions "tramp-compat-" obarray 'functionp))
(put (intern elt) 'tramp-suppress-trace t))