diff options
| -rw-r--r-- | lisp/talk.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/talk.el b/lisp/talk.el index a77d6b67d18..6d542b0f99b 100644 --- a/lisp/talk.el +++ b/lisp/talk.el @@ -50,12 +50,13 @@ Each element has the form (DISPLAY FRAME BUFFER).") "Connect to the Emacs talk group from the current X display or tty frame." (interactive) (let ((type (frame-live-p (selected-frame)))) - (case type - ;; Termcap frame - ((t) (talk-add-tty-frame (selected-frame))) - ;; X frame - ((x) (talk-add-display (frame-parameter (selected-frame) 'display))) - (t (error "Could not determine frame type")))) + (if (eq type t) + ;; Termcap frame + (talk-add-tty-frame (selected-frame)) + (if (eq type 'x) + ;; X frame + (talk-add-display (frame-parameter (selected-frame) 'display)) + (error "Could not determine frame type")))) (talk-update-buffers)) (defun talk-add-display (display) |