mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(talk-disconnect): Make it interactive.

Browse Source 
(talk-add-display): Ignore dead buffers and deleted frames.
This commit is contained in:
Richard M. Stallman 1995-07-01 19:40:13 +00:00
parent 19deb21efe
commit c2bef98549
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/talk.el
View File

@ -43,17 +43,19 @@ Each element has the form (DISPLAY FRAME BUFFER).")
(talk-update-buffers))
(defun talk-add-display (display)
(or (assoc display talk-display-alist)
(let* ((name (concat "*talk-" display "*"))
(buffer (get-buffer-create name))
(frame (make-frame-on-display display
(list (cons 'name name)))))
(setq talk-display-alist
(cons (list display frame buffer)
talk-display-alist)))))
(let* ((elt (assoc display talk-display-alist))
(name (concat "*talk-" display "*"))
buffer frame)
(if (not (and elt (frame-live-p (setq frame (nth 1 elt)))))
(setq frame (make-frame-on-display display (list (cons 'name name)))))
(if (not (and elt (buffer-name (get-buffer (setq buffer (nth 2 elt))))))
(setq buffer (get-buffer-create name)))
(setq talk-display-alist
(cons (list display frame buffer) (delq elt talk-display-alist)))))
(defun talk-disconnect ()
"Disconnect this display from the Emacs talk group."
(interactive)
(let* ((mydisp (cdr (assq 'display (frame-parameters (selected-frame)))))
(elt (assoc mydisp talk-display-alist)))
(delete-frame (nth 1 elt))