Commit 48846dc5 authored by Michael Albinus's avatar Michael Albinus
Browse files

* net/tramp.el (top): Quote feature names. Remove

`tramp-rfn-eshadow-setup-minibuffer' from
`rfn-eshadow-setup-minibuffer-hook' when unloading.
(tramp-read-passwd): There is only one call to
`auth-source-user-or-password' needed.  Pacify byte compiler.
parent b8206d82
2008-06-08 Michael Albinus <michael.albinus@gmx.de>
* uniquify.el (uniquify-get-proposed-name): Handle remote files.
* net/tramp.el (top): Quote feature names. Remove
`tramp-rfn-eshadow-setup-minibuffer' from
`rfn-eshadow-setup-minibuffer-hook' when unloading.
(tramp-read-passwd): There is only one call to
`auth-source-user-or-password' needed. Pacify byte compiler.
2008-06-08 Andreas Schwab <schwab@suse.de>
* window.el (display-buffer): Use lru window if current window
......
......@@ -144,8 +144,8 @@
(require feature)
(add-hook 'tramp-unload-hook
`(lambda ()
(when (featurep ,feature)
(unload-feature ,feature 'force)))))))
(when (featurep (quote ,feature))
(unload-feature (quote ,feature) 'force)))))))
;;; User Customizable Internal Variables:
......@@ -2094,7 +2094,11 @@ special handling of `substitute-in-file-name'."
(when (boundp 'rfn-eshadow-setup-minibuffer-hook)
(add-hook 'rfn-eshadow-setup-minibuffer-hook
'tramp-rfn-eshadow-setup-minibuffer))
'tramp-rfn-eshadow-setup-minibuffer)
(add-hook 'tramp-unload-hook
'(lambda ()
(remove-hook 'rfn-eshadow-setup-minibuffer-hook
'tramp-rfn-eshadow-setup-minibuffer))))
(defun tramp-rfn-eshadow-update-overlay ()
"Update `rfn-eshadow-overlay' to cover shadowed part of minibuffer input.
......@@ -7218,16 +7222,12 @@ Invokes `password-read' if available, `read-passwd' else."
(format "%s for %s " (capitalize (match-string 1)) key)))))
(or
;; see if auth-sources contains something useful, if it's bound
;; See if auth-sources contains something useful, if it's bound.
(when (boundp 'auth-sources)
(or
;; 1. try with Tramp's current method
(auth-source-user-or-password
"password" tramp-current-host tramp-current-method)
;; 2. hard-code the method to be "tramp"
(auth-source-user-or-password
"password" tramp-current-host "tramp")))
;; 3. else, get the password interactively
;; Try with Tramp's current method.
(funcall (symbol-function 'auth-source-user-or-password)
"password" tramp-current-host tramp-current-method))
;; Else, get the password interactively.
(if (functionp 'password-read)
(let ((password (funcall (symbol-function 'password-read)
pw-prompt key)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment