diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-15 22:41:09 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-15 22:41:09 +0000 |
| commit | cc67ef0f0474b8f59b4f4a5ba5ca48d92e4ce277 (patch) | |
| tree | 354d28929d4a7f3e73f997febd1061ba8ef870ca /lisp/winner.el | |
| parent | 1ab9899a6fdc1bd9c78dbc5f479217a1aa56c267 (diff) | |
| download | emacs-cc67ef0f0474b8f59b4f4a5ba5ca48d92e4ce277.tar.gz | |
(winner-change-fun): Don't use pushnew.
Diffstat (limited to 'lisp/winner.el')
| -rw-r--r-- | lisp/winner.el | 3 |
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 |