Function: server-handle-delete-frame

server-handle-delete-frame is a byte-compiled function defined in server.el.gz.

Signature

(server-handle-delete-frame FRAME)

Documentation

Delete the client connection when the emacsclient frame is deleted.

(To be used from delete-frame-functions.)

Source Code

;; Defined in /usr/src/emacs/lisp/server.el.gz
(defun server-handle-delete-frame (frame)
  "Delete the client connection when the emacsclient frame is deleted.
\(To be used from `delete-frame-functions'.)"
  (let ((proc (frame-parameter frame 'client)))
    (when (and (frame-live-p frame)
	       proc
	       ;; See if this is the last frame for this client.
	       (>= 1 (let ((frame-num 0))
		       (dolist (f (frame-list))
			 (when (eq proc (frame-parameter f 'client))
			   (setq frame-num (1+ frame-num))))
		       frame-num)))
      (server-log (format "server-handle-delete-frame, frame %s" frame) proc)
      (server-delete-client proc 'noframe)))) ; Let delete-frame delete the frame later.