diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-03-28 22:23:57 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-03-28 22:23:57 +0000 |
| commit | 1d6b6742b35c6776cd49742773f8ae5e25b4fd44 (patch) | |
| tree | 6518b9d0707552b1964c8a76469ff7e20ea2b824 | |
| parent | fdc1ceac470cfcf4820aeb1d6a1d4c66bd0516eb (diff) | |
*** no comment ***
| -rw-r--r-- | chess-ascii.el | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/chess-ascii.el b/chess-ascii.el index 22844bf..ba7c8d5 100644 --- a/chess-ascii.el +++ b/chess-ascii.el @@ -37,8 +37,8 @@ PERSPECTIVE is t for white or nil for black." (let ((inhibit-redisplay t) (pos (point))) (erase-buffer) - (let* ((position chess-display-position) - (inverted (null chess-display-perspective)) + (let* ((position (chess-display-position nil)) + (inverted (null (chess-display-perspective nil))) (rank (if inverted 7 0)) (file (if inverted 7 0)) beg) @@ -77,13 +77,14 @@ PERSPECTIVE is t for white or nil for black." (set-buffer-modified-p nil) (goto-char pos))) -;; jww (2002-03-28): this no longer takes a `pos' arg! -(defun chess-ics1-highlight (pos index &optional mode) +(defun chess-ics1-highlight (index &optional mode) (if (null (get-buffer-window (current-buffer) t)) (pop-to-buffer (current-buffer))) (let (beg end) (save-excursion - (goto-char pos) + (beginning-of-line) + (goto-line (+ 2 (chess-index-rank index))) + (forward-char (+ 8 (* 4 (chess-index-file index)))) (skip-chars-backward "^|") (setq beg (point)) (skip-chars-forward "^|") @@ -97,8 +98,8 @@ PERSPECTIVE is t for white or nil for black." (let ((inhibit-redisplay t) (pos (point))) (erase-buffer) - (let* ((position chess-display-position) - (inverted (null chess-display-perspective)) + (let* ((position (chess-display-position nil)) + (inverted (null (chess-display-perspective nil))) (rank (if inverted 7 0)) (file (if inverted 7 0)) beg) @@ -118,11 +119,15 @@ PERSPECTIVE is t for white or nil for black." (set-buffer-modified-p nil) (goto-char pos)))) -;; jww (2002-03-28): this no longer takes a `pos' arg! -(defun chess-plain-highlight (pos index &optional mode) +(defun chess-plain-highlight (index &optional mode) (if (null (get-buffer-window (current-buffer) t)) (pop-to-buffer (current-buffer))) - (put-text-property pos (1+ pos) 'face 'chess-display-highlight-face)) + (save-excursion + (beginning-of-line) + (goto-line (1+ (chess-index-rank index))) + (forward-char (chess-index-file index)) + (put-text-property (point) (1+ (point)) 'face + 'chess-display-highlight-face))) (provide 'chess-ascii) |