                 (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))))))

  (interactive "FFile: ")
  (let ((lines (read-file-into-lines file 'trim))
        (lst '())
        host desc elts)
    (dolist (line (seq-remove 'string-empty-p lines))
      (setq elts (split-string line))
      (setq host (car elts))
      (setq desc (string-join (cdr elts) " "))
      (unless (char-equal ?# (string-to-char host))
        (push `(:host ,host :description ,desc) lst)))
    lst))

(defun remotehost-connect--gather-hosts (method user dir

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