diff options
| author | Karl Heuer | 1997-10-15 22:41:09 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-10-15 22:41:09 +0000 |
| commit | d2f273579280ac79d5990c44fd4a5cc60dc69d82 (patch) | |
| tree | 76fa37da4386f062950d936cdda8a5410c679bb0 | |
| parent | 335406fc22134b33f3982486cb9954823ce321ca (diff) | |
| download | emacs-d2f273579280ac79d5990c44fd4a5cc60dc69d82.tar.gz emacs-d2f273579280ac79d5990c44fd4a5cc60dc69d82.zip | |
(winner-change-fun): Don't use pushnew.
| -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\".") | |||
| 81 | (defvar winner-modified-list nil) | 81 | (defvar winner-modified-list nil) |
| 82 | 82 | ||
| 83 | (defun winner-change-fun () | 83 | (defun winner-change-fun () |
| 84 | (pushnew (selected-frame) winner-modified-list)) | 84 | (or (memq (selected-frame) winner-modified-list) |
| 85 | (push (selected-frame) winner-modified-list))) | ||
| 85 | 86 | ||
| 86 | (defun winner-save-new-configurations () | 87 | (defun winner-save-new-configurations () |
| 87 | (while winner-modified-list | 88 | (while winner-modified-list |