From: Daniel Colascione <dancol@dancol.org>
Date: Fri, 2 Oct 2015 05:10:53 +0000 (-0700)
Subject: Fix winner in cl-lib not loaded case
X-Git-Tag: emacs-25.0.90~1223^2~33
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87fb1e38dc284a4e654a7592796d8e66e597f86e;p=emacs.git

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 0ff1d72451e..fb96c6c551b 100644
--- 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
 
 ;;;***
 
-;;;### (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 a05f4ba867e..3767b9f1f69 100644
--- 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)))