diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-03-28 23:20:05 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-03-28 23:20:05 +0000 |
| commit | 1a9ad51e753e9144d36d097d7f984251e06a88ce (patch) | |
| tree | 881fb2d51bf062088e78ee80bb7066baac6a72d9 /chess-session.el | |
| parent | 34a595962c5b153f6616bbe8420b8f389c493a3c (diff) | |
more fixes
Diffstat (limited to 'chess-session.el')
| -rw-r--r-- | chess-session.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/chess-session.el b/chess-session.el index e282223..8ddf3c6 100644 --- a/chess-session.el +++ b/chess-session.el @@ -9,11 +9,11 @@ (defun chess-session-create () (cons nil nil)) -(defun chess-session-add-listener (session listener &optional front) +(defun chess-session-add-listener (session listener &optional front object) (if (or front (not (cdr session))) - (setcdr session (cons (cons listener nil) + (setcdr session (cons (cons listener object) (cdr session))) - (nconc session (list (cons listener nil))))) + (nconc session (list (cons listener object))))) (defun chess-session-remove-listener (session listener) (setcdr session (delq (assq listener (cdr session)) |