From 1a9ad51e753e9144d36d097d7f984251e06a88ce Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 28 Mar 2002 23:20:05 +0000 Subject: more fixes --- chess-session.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'chess-session.el') 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)) -- cgit v1.2.3