more fixes

[gnu-emacs-elpa] / chess-session.el

diff --git a/chess-session.el b/chess-session.el
index 6f0dde41436e447526ecff9a897580c34a51879f..8ddf3c62b0b7c0ce887ce31fd3f2de82e1bc112c 100644 (file)
--- 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))
@@ -44,6 +44,16 @@
       (setq listeners (cdr listeners)))
     result))
 
+;; (define-chess-module MODULE (&rest args))
+;; (define-chess-module (MODULE BASES...) (&rest args)
+;;   :ctor-args (ARGS...)
+;;   :create-buffer
+;;   (EVENT
+;;    FORMS...)
+;;   ...)
+;;
+;; (chess-call-derived args &optional base-module)
+
 (provide 'chess-session)
 
 ;;; chess-session.el ends here