summaryrefslogtreecommitdiff
path: root/lisp/net/tramp-gvfs.el
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2022-05-17 09:13:34 +0200
committerMichael Albinus <michael.albinus@gmx.de>2022-05-17 09:13:34 +0200
commitf836ed098fe8c649e3c30cf55696b3a750f1bbf0 (patch)
tree49f53ed98f99bcec09f56ccbbe95af5ab13f3076 /lisp/net/tramp-gvfs.el
parentf928330fa86e1493d2862180b132a99022458c96 (diff)
downloademacs-f836ed098fe8c649e3c30cf55696b3a750f1bbf0.tar.gz
Some minor Tramp fixes
* lisp/net/tramp-cmds.el (tramp-list-tramp-buffers) (tramp-list-remote-buffers): Add ;;;###tramp-autoload cookie. * lisp/net/tramp-fuse.el (tramp-fuse-remove-hidden-files): New defvar. (tramp-fuse-remove-hidden-files): Use it. * lisp/net/tramp-gvfs.el (tramp-gvfs-handler-askquestion): Keep regression tests running.
Diffstat (limited to 'lisp/net/tramp-gvfs.el')
-rw-r--r--lisp/net/tramp-gvfs.el36
1 files changed, 20 insertions, 16 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index c09c016e647..3a5041c4918 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -1774,22 +1774,26 @@ a downcased host name only."
(list
t ;; handled.
nil ;; no abort of D-Bus.
- (with-tramp-connection-property (tramp-get-process v) message
- ;; In theory, there can be several choices.
- ;; Until now, there is only the question whether
- ;; to accept an unknown host signature or certificate.
- (with-temp-buffer
- ;; Preserve message for `progress-reporter'.
- (with-temp-message ""
- (insert message)
- (goto-char (point-max))
- (if noninteractive
- (message "%s" message)
- (pop-to-buffer (current-buffer)))
- (if (yes-or-no-p
- (buffer-substring
- (line-beginning-position) (point)))
- 0 1)))))
+ ;; Preserve message for `progress-reporter'.
+ (with-temp-message ""
+ (if noninteractive
+ ;; Keep regression tests running.
+ (progn
+ (message "%s" message)
+ 0)
+ (with-tramp-connection-property (tramp-get-process v) message
+ ;; In theory, there can be several choices.
+ ;; Until now, there is only the question
+ ;; whether to accept an unknown host
+ ;; signature or certificate.
+ (with-temp-buffer
+ (insert message)
+ (goto-char (point-max))
+ (pop-to-buffer (current-buffer))
+ (if (yes-or-no-p
+ (buffer-substring
+ (line-beginning-position) (point)))
+ 0 1))))))
;; When QUIT is raised, we shall return this
;; information to D-Bus.