X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/f8bfe560cfd226d7be84a003c80e9857e9c036d2..b0ef6a6629b8f51972a8a1ca7401144e52299235:/el/dot-emacs.el diff --git a/el/dot-emacs.el b/el/dot-emacs.el index 18e9fb2..6e28111 100644 --- a/el/dot-emacs.el +++ b/el/dot-emacs.el @@ -773,11 +773,9 @@ doesn't match any of the regular expressions in (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) - frame-display) - (progn "frame %s still uses us" nil))) + frame-display))) (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)