Mercurial > emacs

changeset 20047:735f0cdfc5b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(winner-change-fun): Don't use pushnew.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Oct 1997 22:41:09 +0000
parents 8baac8399a29
children 5324d8b2322b
files lisp/winner.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/winner.el	Wed Oct 15 22:18:37 1997 +0000
+++ b/lisp/winner.el	Wed Oct 15 22:41:09 1997 +0000
@@ -81,7 +81,8 @@
 (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