From d2f273579280ac79d5990c44fd4a5cc60dc69d82 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 15 Oct 1997 22:41:09 +0000 Subject: [PATCH] (winner-change-fun): Don't use pushnew. --- lisp/winner.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.2