diff options
| author | John Wiegley <johnw@newartisans.com> | 2004-02-08 23:52:49 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2004-02-08 23:52:49 +0000 |
| commit | b07affe4d2deb0abb8f5bc29679536c9cde40c30 (patch) | |
| tree | 84617f245118f8e4420d58ee9990472c6895a1d3 /chess-ics.el | |
| parent | 7b11cf3a656f2f54d8035827322a3f74648e0266 (diff) | |
Fixed several byte-compilation errors. Mario: What is
`last-triggers'?
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 10 |
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))) |
