From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Oct 1997 22:41:09 +0000 (+0000)
Subject: (winner-change-fun): Don't use pushnew.
X-Git-Tag: emacs-20.3~3026
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2f273579280ac79d5990c44fd4a5cc60dc69d82;p=emacs.git

(winner-change-fun): Don't use pushnew.
---

diff --git a/lisp/winner.el b/lisp/winner.el
index ad6ae4399ed..e0ef71ad713 100644
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -81,7 +81,8 @@ which excludes \"invisible buffers\".")
 (defvar winner-modified-list nil)
 
 (defun winner-change-fun ()
-  (pushnew (selected-frame) winner-modified-list))
+  (or (memq (selected-frame) winner-modified-list)
+      (push (selected-frame) winner-modified-list)))
 
 (defun winner-save-new-configurations ()
   (while winner-modified-list