-(defun talk-add-display (frame)
- (let* ((display (if (frame-live-p frame)
- (frame-terminal frame)
- frame))
- (elt (assoc display talk-display-alist))
- (name (concat "*talk-" (terminal-name display) "*"))
- buffer)
- (unless (frame-live-p frame)
- (setq frame (make-frame-on-display display (list (cons 'name name)))))
+(defun talk-add-display (display)
+ (let* ((elt (assoc display talk-display-alist))
+ (name (concat "*talk-" display "*"))
+ frame buffer)