Mercurial > emacs
changeset 82999:6a6fb680d450
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
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sat, 03 Jan 2004 09:19:46 +0000 |
| parents | 24fb0f3a63a1 |
| children | 77022bc45155 |
| files | lisp/talk.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/talk.el Sat Jan 03 09:16:51 2004 +0000 +++ b/lisp/talk.el Sat Jan 03 09:19:46 2004 +0000 @@ -50,12 +50,13 @@ "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)