diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2022-05-17 09:13:34 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2022-05-17 09:13:34 +0200 |
commit | f836ed098fe8c649e3c30cf55696b3a750f1bbf0 (patch) | |
tree | 49f53ed98f99bcec09f56ccbbe95af5ab13f3076 /lisp/net/tramp-gvfs.el | |
parent | f928330fa86e1493d2862180b132a99022458c96 (diff) | |
download | emacs-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.el | 36 |
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. |