summaryrefslogtreecommitdiff
path: root/chess-ics.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2004-02-08 23:52:49 +0000
committerJohn Wiegley <johnw@newartisans.com>2004-02-08 23:52:49 +0000
commitb07affe4d2deb0abb8f5bc29679536c9cde40c30 (patch)
tree84617f245118f8e4420d58ee9990472c6895a1d3 /chess-ics.el
parent7b11cf3a656f2f54d8035827322a3f74648e0266 (diff)
Fixed several byte-compilation errors. Mario: What is
`last-triggers'?
Diffstat (limited to 'chess-ics.el')
-rw-r--r--chess-ics.el10
1 files changed, 6 insertions, 4 deletions
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)))