diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2004-01-03 09:19:46 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2004-01-03 09:19:46 +0000 |
| commit | 20274f2b75e370e8135017af1a93b5a286824f95 (patch) | |
| tree | 4033e86a6419ed558c37182ebaec14d44ca370ea /lisp/talk.el | |
| parent | 26f102d7bedcc98070150a430da4f1b7417e062e (diff) | |
| download | emacs-20274f2b75e370e8135017af1a93b5a286824f95.tar.gz | |
Fixed typo in talk.el (again).
lisp/talk.el (talk): Fixed byte compiler warning.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-39
Diffstat (limited to 'lisp/talk.el')
| -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) |