Fix winner in cl-lib not loaded case

* lisp/winner.el (winner-change-fun): Don't use cl-lib functions
without requiring CL

diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 0ff1d72451eebf42810c05d4f0784c3661292874..fb96c6c551b3e6bd67d6665049340eaadd785359 100644 (file)
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -2446,7 +2446,7 @@ of ENTRY-LIST is a list of cons cells (\"MACRONAME\" . LEVEL).  See
 
 ;;;***
 \f
-;;;### (autoloads nil "reftex-cite" "reftex-cite.el" "43a3f05c024aee5b7708420f74266933")
+;;;### (autoloads nil "reftex-cite" "reftex-cite.el" "751df6ee674ea533b755e8cda4ad1cf8")
 ;;; Generated autoloads from reftex-cite.el
 
 (autoload 'reftex-default-bibliography "reftex-cite" "\

diff --git a/lisp/winner.el b/lisp/winner.el
index a05f4ba867eaf457430d8536bd534ca3b3142d86..3767b9f1f694c601d3aa16b6ad281f4c2c8c8177 100644 (file)
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -180,7 +180,8 @@ You may want to include buffer names such as *Help*, *Apropos*,
 
   ;; Cull dead frames.
   (setq winner-modified-list
-        (cl-remove-if-not 'frame-live-p 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)))