]> git.eshelyaron.com Git - emacs.git/commitdiff
Display yubikey message properly in Tramp
authorMichael Albinus <michael.albinus@gmx.de>
Wed, 28 Jul 2021 07:06:37 +0000 (09:06 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Wed, 28 Jul 2021 07:07:45 +0000 (09:07 +0200)
* lisp/net/tramp.el (tramp-action-show-and-confirm-message):
Display message properly.

lisp/net/tramp.el

index 51d5d0687125bc1bbde2db5019c35c1cf9389faf..80cdd56c0d84d8181d2db95876c87d04ee199bca 100644 (file)
@@ -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)