* lisp/character-fold.el: Allow complex chars to match their decomposition

[gnu-emacs] / lisp / winner.el

diff --git a/lisp/winner.el b/lisp/winner.el
index fdf62137514fc47071a094ff649d5c6b39c0314f..3767b9f1f694c601d3aa16b6ad281f4c2c8c8177 100644 (file)
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -177,6 +177,12 @@ You may want to include buffer names such as *Help*, *Apropos*,
 ;; Called whenever the window configuration changes
 ;; (a `window-configuration-change-hook').
 (defun winner-change-fun ()
+
+  ;; Cull dead frames.
+  (setq winner-modified-list
+        (cl-loop for frame in winner-modified-list
+             if (frame-live-p frame) collect frame))
+
   (unless (or (memq (selected-frame) winner-modified-list)
               (/= 0 (minibuffer-depth)))
     (push (selected-frame) winner-modified-list)))