diff options
Diffstat (limited to 'lisp/talk.el')
| -rw-r--r-- | lisp/talk.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/talk.el b/lisp/talk.el index a008a0ef3fd..0807e655703 100644 --- a/lisp/talk.el +++ b/lisp/talk.el @@ -50,22 +50,22 @@ 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))) - (display (frame-display (selected-frame)))) + (display (frame-terminal (selected-frame)))) (cond ((eq type t) (talk-add-display (selected-frame))) ((eq type 'x) - (talk-add-display (frame-display (selected-frame)))) + (talk-add-display (frame-terminal (selected-frame)))) (t (error "Unknown frame type")))) (talk-update-buffers)) (defun talk-add-display (frame) (let* ((display (if (frame-live-p frame) - (frame-display frame) + (frame-terminal frame) frame)) (elt (assoc display talk-display-alist)) - (name (concat "*talk-" (display-name display) "*")) + (name (concat "*talk-" (terminal-name display) "*")) buffer) (unless (frame-live-p frame) (setq frame (make-frame-on-display display (list (cons 'name name))))) |