diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-01 22:10:04 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-01 22:10:04 +0000 |
| commit | 682348e8a4a0267bc7a512e4f684f9a50fdff5b1 (patch) | |
| tree | 22efb1be07e41ad3d8d2d9cd9d352cad3361f5cb | |
| parent | 6df6747d0fe9687a850ba6abe85bcb33f15086d4 (diff) | |
Permit access to display session variable
| -rw-r--r-- | chess-display.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/chess-display.el b/chess-display.el index 8a110a8..58658ec 100644 --- a/chess-display.el +++ b/chess-display.el @@ -104,6 +104,10 @@ (if (buffer-live-p buf) (kill-buffer buf)))) +(defsubst chess-display-session (display) + (chess-with-current-buffer display + chess-display-session)) + (defsubst chess-display-perspective (display) (chess-with-current-buffer display chess-display-perspective)) @@ -306,8 +310,8 @@ that is supported by most displays, and is the default mode." "This display module presents a standard chessboard. See `chess-display-type' for the different kinds of displays." (if (eq event 'initialize) - (chess-display-create (car args) - (chess-session-data session 'my-color)) + (chess-display-create + (car args) (chess-session-data session 'my-color) session) (ignore (cond ((eq event 'shutdown) |