Lines Matching defs:display
33 (defvar talk-display-alist nil
38 (defun talk-connect (display)
39 "Connect to display DISPLAY for the Emacs talk group."
40 (interactive "sTalk to display: ")
41 ;; Make sure we have an entry for the current display.
42 (let ((mydisp (cdr (assq 'display (frame-parameters (selected-frame))))))
43 (talk-add-display mydisp))
44 ;; Make sure we have an entry for the specified display.
45 (talk-add-display display)
49 (defun talk-add-display (display)
50 (let* ((elt (assoc display talk-display-alist))
51 (name (concat "*talk-" display "*"))
54 (setq frame (make-frame-on-display display (list (cons 'name name)))))
57 (setq talk-display-alist
58 (cons (list display frame buffer) (delq elt talk-display-alist)))))
61 "Disconnect this display from the Emacs talk group."
63 (let* ((mydisp (cdr (assq 'display (frame-parameters (selected-frame)))))
64 (elt (assoc mydisp talk-display-alist)))
67 (setq talk-display-alist (delq elt talk-display-alist))
72 (let ((tail talk-display-alist))
78 talk-display-alist)))
79 ;; Put this display's own talk buffer