Mercurial > emacs
diff lisp/winner.el @ 20047:735f0cdfc5b9
(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