diff options
| -rw-r--r-- | lib/net/jao-mullvad.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/net/jao-mullvad.el b/lib/net/jao-mullvad.el index ba552e8..e4b335e 100644 --- a/lib/net/jao-mullvad.el +++ b/lib/net/jao-mullvad.el @@ -66,8 +66,8 @@ (message "")) (jao-mullvad-mode))) -(defconst jao-mullvad--country-rx "^\\([^ \t\n]+ (...?)\\)$") -(defconst jao-mullvad--city-rx " \\([^ (]+ (...)\\)") +(defconst jao-mullvad--country-rx "^\\([^\t\n]+ (...?)\\)$") +(defconst jao-mullvad--city-rx " \\([^\t(]+ (...)\\)") (defun jao-mullvad--list () "Compute an alist of available relay countries with their cities." @@ -83,7 +83,7 @@ ((looking-at jao-mullvad--city-rx) (setq country (cons (match-string 1) country)))) (forward-line 1)) - (reverse countries)))) + (reverse (cons (reverse country) countries))))) ;;;###autoload (defun jao-mullvad-status () @@ -105,7 +105,7 @@ (setq country (match-string 0))))) (let ((inhibit-read-only t)) (forward-line 1) - (insert "Connected to " country " " city " - " server "\n") + (insert "Connected to " country " " city " - " server "\n") (goto-char (point-min)))))) ;;;###autoload |