Mercurial > emacs

diff lisp/winner.el @ 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 8d89cc0f2b42
children 92b4edaf6482
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