mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-27 07:37:33 +00:00
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.
This commit is contained in:
parent
f928330fa8
commit
f836ed098f
@ -51,6 +51,7 @@ SYNTAX can be one of the symbols `default' (default),
|
||||
(when syntax
|
||||
(customize-set-variable 'tramp-syntax syntax)))
|
||||
|
||||
;;;###tramp-autoload
|
||||
(defun tramp-list-tramp-buffers ()
|
||||
"Return a list of all Tramp connection buffers."
|
||||
(append
|
||||
@ -61,6 +62,7 @@ SYNTAX can be one of the symbols `default' (default),
|
||||
(all-completions
|
||||
"*trace tramp" (mapcar #'list (mapcar #'buffer-name (buffer-list))))))
|
||||
|
||||
;;;###tramp-autoload
|
||||
(defun tramp-list-remote-buffers ()
|
||||
"Return a list of all buffers with remote `default-directory'."
|
||||
(delq
|
||||
|
@ -44,11 +44,16 @@
|
||||
(delete-file (tramp-fuse-local-file-name filename) trash)
|
||||
(tramp-flush-file-properties v localname)))
|
||||
|
||||
(defvar tramp-fuse-remove-hidden-files nil
|
||||
"Remove hidden files from directory listings.")
|
||||
|
||||
(defsubst tramp-fuse-remove-hidden-files (files)
|
||||
"Remove hidden files from FILES."
|
||||
(cl-remove-if
|
||||
(lambda (x) (and (stringp x) (string-match-p "\\.fuse_hidden" x)))
|
||||
files))
|
||||
(if tramp-fuse-remove-hidden-files
|
||||
(cl-remove-if
|
||||
(lambda (x) (and (stringp x) (string-match-p "\\.fuse_hidden" x)))
|
||||
files)
|
||||
files))
|
||||
|
||||
(defun tramp-fuse-handle-directory-files
|
||||
(directory &optional full match nosort count)
|
||||
|
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user