                 (when (setq host (plist-get plist :host))
                   (cons (format "%-18s %s" host
                                 (plist-get plist :description))
-                        (list :method method
-                              :user user
-                              :host host
-                              :dir dir
-                              :hops hops
-                              ))))
+                        (list
+                         :method
+                         (plist-get plist :method)
+                         :user
+                         (plist-get plist :user)
+                         :host
+                         (plist-get plist :host)
+                         :dir
+                         (plist-get plist :dir)
+                         :hops hops
+                         ))))
               remotehost-connect-hosts)
       (lambda (left right) (string-lessp (car left) (car right))))
      :test (lambda (x y) (equal (car x) (car y))))))

         (user tramp-default-user)
         (dir "~")
         (numhops 1)
         hosts hop hops)
    (when arg
      (when (>= (prefix-numeric-value arg) 16)
        (setq method (read-string "Method: " method)))
      (when (>= (prefix-numeric-value arg) 4)
        (setq user (read-string "User: " user)))
      (when (>= (prefix-numeric-value arg) 16)
        (setq dir (read-string "Directory: " dir)))
      (when (>= (prefix-numeric-value arg) 64)
        (setq hop (read-string
                   (format "Add hop #%d: " numhops)

;; Copyright (C) 2016-2020  Dan Harms (dharms)
;; Author: Dan Harms <danielrharms@gmail.com>
;; Created: Monday, April 18, 2016
;; Modified Time-stamp: <2020-05-07 07:33:07 dharms>
;; Modified by: Dan Harms
;; Keywords: tools remote hosts

