summaryrefslogtreecommitdiff
path: root/lisp/winner.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/winner.el')
-rw-r--r--lisp/winner.el3
1 files changed, 2 insertions, 1 deletions
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