comparison lisp/net/tramp-cmds.el @ 85943:85b6f7d4aca8

* net/tramp.el (top): Don't autoload `tramp-cache-print'. * net/tramp-cache (tramp-cache-print): Move down. (tramp-cache-list-connections): New defun. * net/tramp-cmds.el (tramp-cleanup-connection): Use it.

85942:bed8827b7f62

   ;; Return nil when there is no Tramp connection.
   (list
    (let ((connections
	   (mapcar
	    (lambda (x)
	      (with-current-buffer x (list (file-remote-p default-directory))))
	    ;; We shall not count debug buffers, because their
	    ;; default-directory is random.  It could be even a remote
	    ;; one from another connection.
	    (all-completions
	     "*tramp" (mapcar 'list (tramp-list-tramp-buffers)))))
	  name)

      (when connections
	(setq name
	      (completing-read

85943:85b6f7d4aca8

   ;; Return nil when there is no Tramp connection.
   (list
    (let ((connections
	   (mapcar
	    (lambda (x)
	      (tramp-make-tramp-file-name
	       (tramp-file-name-method x)
	       (tramp-file-name-user x)
	       (tramp-file-name-host x)
	       (tramp-file-name-localname x)))
	    (tramp-cache-list-connections)))
	  name)

      (when connections
	(setq name
	      (completing-read