From `mdw-last-one-out-turn-off-the-lights'. Again.
(when (and frame-display
(eq window-system 'x)
(not (some (lambda (fr)
(when (and frame-display
(eq window-system 'x)
(not (some (lambda (fr)
- (message "checking frame %s" frame)
(and (not (eq fr frame))
(string= (frame-parameter fr 'display)
(and (not (eq fr frame))
(string= (frame-parameter fr 'display)
- frame-display)
- (progn "frame %s still uses us" nil)))
(frame-list))))
(run-with-idle-timer 0 nil #'x-close-connection frame-display))))
(add-hook 'delete-frame-functions 'mdw-last-one-out-turn-off-the-lights)
(frame-list))))
(run-with-idle-timer 0 nil #'x-close-connection frame-display))))
(add-hook 'delete-frame-functions 'mdw-last-one-out-turn-off-the-lights)