emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 2910e66: Display yubikey message properly in Tramp


From: Michael Albinus
Subject: master 2910e66: Display yubikey message properly in Tramp
Date: Wed, 28 Jul 2021 03:08:00 -0400 (EDT)

branch: master
commit 2910e668eb95b35a2854426c1e6ef0137da578a4
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Display yubikey message properly in Tramp
    
    * lisp/net/tramp.el (tramp-action-show-and-confirm-message):
    Display message properly.
---
 lisp/net/tramp.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 51d5d06..80cdd56 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4684,17 +4684,15 @@ The terminal type can be configured with 
`tramp-terminal-type'."
   "Show the user a message for confirmation.
 Wait, until the connection buffer changes."
   (with-current-buffer (process-buffer proc)
-    (let ((enable-recursive-minibuffers t)
-          (stimers (with-timeout-suspend)))
+    (let ((stimers (with-timeout-suspend)))
       (tramp-message vec 6 "\n%s" (buffer-string))
       (goto-char (point-min))
       (tramp-check-for-regexp proc tramp-process-action-regexp)
-      (tramp-message
-       vec 0 "%s" (replace-regexp-in-string "[\r\n]" "" (match-string 0)))
-      ;; Hide message.
-      (narrow-to-region (point-max) (point-max))
-      ;; Wait for new output.
-      (tramp-wait-for-regexp proc 30 ".")
+      (with-temp-message (replace-regexp-in-string "[\r\n]" "" (match-string 
0))
+       ;; Hide message in buffer.
+       (narrow-to-region (point-max) (point-max))
+       ;; Wait for new output.
+       (tramp-wait-for-regexp proc 30 "."))
       ;; Reenable the timers.
       (with-timeout-unsuspend stimers)))
   t)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]