167 |
(setq pass (match-string 2 user) |
(setq pass (match-string 2 user) |
168 |
user (match-string 1 user))) |
user (match-string 1 user))) |
169 |
(if (string-match ":\\([0-9+]+\\)" host) |
(if (string-match ":\\([0-9+]+\\)" host) |
170 |
(setq port (string-to-int (match-string 1 host)) |
(setq port (string-to-number (match-string 1 host)) |
171 |
host (substring host 0 (match-beginning 0)))) |
host (substring host 0 (match-beginning 0)))) |
172 |
(if (string-match ":$" host) |
(if (string-match ":$" host) |
173 |
(setq host (substring host 0 (match-beginning 0)))) |
(setq host (substring host 0 (match-beginning 0)))) |