diff options
Diffstat (limited to 'lisp/url/url-misc.el')
| -rw-r--r-- | lisp/url/url-misc.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/url/url-misc.el b/lisp/url/url-misc.el index fa8176873a8..dd521ccd690 100644 --- a/lisp/url/url-misc.el +++ b/lisp/url/url-misc.el @@ -21,7 +21,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'url-vars) (require 'url-parse) (autoload 'Info-goto-node "info" "" t) @@ -47,23 +46,23 @@ (defun url-do-terminal-emulator (type server port user) (terminal-emulator (generate-new-buffer (format "%s%s" (if user (concat user "@") "") server)) - (case type - (rlogin "rlogin") - (telnet "telnet") - (tn3270 "tn3270") - (otherwise + (pcase type + (`rlogin "rlogin") + (`telnet "telnet") + (`tn3270 "tn3270") + (_ (error "Unknown terminal emulator required: %s" type))) - (case type - (rlogin + (pcase type + (`rlogin (if user (list server "-l" user) (list server))) - (telnet + (`telnet (if user (message "Please log in as user: %s" user)) (if port (list server port) (list server))) - (tn3270 + (`tn3270 (if user (message "Please log in as user: %s" user)) (list server))))) |