Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
20046:8baac8399a29 20047:735f0cdfc5b9
79 (cdar winner-ring-alist)))) 79 (cdar winner-ring-alist))))
80 80
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
88 (ring-insert 89 (ring-insert
89 (winner-ring (car winner-modified-list)) 90 (winner-ring (car winner-modified-list))