From b07affe4d2deb0abb8f5bc29679536c9cde40c30 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sun, 8 Feb 2004 23:52:49 +0000 Subject: Fixed several byte-compilation errors. Mario: What is `last-triggers'? --- chess-ics.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'chess-ics.el') diff --git a/chess-ics.el b/chess-ics.el index 781ae02..4d41285 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -352,6 +352,8 @@ See `chess-ics-game'.") (setq tags (cddr tags))) game)))) +(defvar last-triggers nil) + (defun chess-ics-game-destroy (game-number &rest tags) (let ((sessions chess-ics-sessions) last-session) @@ -566,6 +568,10 @@ See `chess-ics-game'.") map) "Keymap used by seek buttons.") +(defvar chess-ics-sought-parent-buffer nil + "Contains the buffer from which this seektable originates.") +(make-variable-buffer-local 'chess-ics-sought-parent-buffer) + (defun chess-ics-sought-accept (&optional pos) "Perform the action specified by a button at location POS. POS may be either a buffer position or a mouse-event. @@ -606,10 +612,6 @@ If nil, ads are sorted in ascending order, if non-nil, they are sorted in descending order.") (make-variable-buffer-local 'chess-ics-sought-sort-direction) -(defvar chess-ics-sought-parent-buffer nil - "Contains the buffer from which this seektable originates.") -(make-variable-buffer-local 'chess-ics-sought-parent-buffer) - (defun chess-ics-sought-sort () (case chess-ics-sought-sort-state (id (sort-numeric-fields 1 (point-min) (point-max))) -- cgit v1.2.3