*** no comment ***

1 files changed, 23 insertions, 0 deletions

diff --git a/chess-display.el b/chess-display.el
index 45561ca..cc3536b 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -355,6 +355,7 @@ See `chess-display-type' for the different kinds of displays."
     (define-key map [tab] 'chess-display-invert)
 
     (define-key map [??] 'describe-mode)
+    (define-key map [?B] 'chess-display-list-buffers)
     (define-key map [?C] 'chess-display-clear-board)
     (define-key map [?E] 'chess-display-edit-board)
     (define-key map [?F] 'chess-display-set-from-fen)
@@ -559,6 +560,28 @@ Basically, it means we are playing, not editing or reviewing."
       (chess-game-resign chess-display-game)
     (ding)))
 
+(defun chess-display-list-buffers ()
+  "List all buffers related to this display's current game."
+  (interactive)
+  (when chess-display-game
+    (let ((buffer-list-func (symbol-function 'buffer-list)))
+      (unwind-protect
+	  (let ((chess-game chess-display-game)
+		(lb-command (lookup-key ctl-x-map [(control ?b)]))
+		(ibuffer-maybe-show-regexps nil))
+	    (fset 'buffer-list
+		  (function
+		   (lambda ()
+		     (delq nil
+			   (mapcar (function
+				    (lambda (cell)
+				      (and (bufferp (cdr cell))
+					   (buffer-live-p (cdr cell))
+					   (cdr cell))))
+				   (chess-game-hooks chess-game))))))
+	    (call-interactively lb-command))
+	(fset 'buffer-list buffer-list-func)))))
+
 (defun chess-display-set-current (dir)
   "Change the currently displayed board.
 Direction may be - or +, to move forward or back, or t or nil to jump