[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
gnugo.el diff 1.18 1.19
From: |
Thien-Thi Nguyen |
Subject: |
gnugo.el diff 1.18 1.19 |
Date: |
Fri, 27 Dec 2002 19:20:27 -0800 |
the obvious omissions first...
thi
_________________________________________
*** gnugo.el 2002/11/16 22:02:03 1.18
--- gnugo.el 2002/12/28 03:15:50 1.19
***************
*** 1,4 ****
! ;;; ID: $Id: gnugo.el,v 1.18 2002/11/16 22:02:03 ttn Exp $
;;;
;;; Copyright (C) 1999, 2000, 2002 Thien-Thi Nguyen
;;; This file is part of ttn's personal elisp library, released under GNU
--- 1,4 ----
! ;;; ID: $Id: gnugo.el,v 1.19 2002/12/28 03:15:50 ttn Exp $
;;;
;;; Copyright (C) 1999, 2000, 2002 Thien-Thi Nguyen
;;; This file is part of ttn's personal elisp library, released under GNU
***************
*** 225,230 ****
--- 225,237 ----
(t (error accept)))
(gnugo-get-move (get 'gnugo 'gnugo-color))))
+ (defun gnugo-mouse-move (e)
+ "Do `gnugo-move' at mouse location."
+ (interactive "@e")
+ (mouse-set-point e)
+ (when (looking-at "[.+]")
+ (gnugo-move)))
+
(defun gnugo-pass ()
"Make a pass on the *gnugo board* buffer.
Signal error if done out-of-turn or if game-over.
***************
*** 241,246 ****
--- 248,259 ----
(unless (= 2 passes)
(gnugo-get-move (get 'gnugo 'gnugo-color)))))
+ (defun gnugo-mouse-pass (e)
+ "Do `gnugo-pass' at mouse location."
+ (interactive "@e")
+ (mouse-set-point e)
+ (gnugo-pass))
+
(defun gnugo-refresh ()
"Display *gnugo board* buffer and update it with the current board state.
During normal play, parenthesize the last-played stone (no parens for pass),
***************
*** 540,547 ****
("D" . gnugo-dragon-data)
("t" . gnugo-toggle-dead-group)
("!" . gnugo-estimate-score)
! (":" . gnugo-command))))
(provide 'gnugo)
! ;;; $RCSfile: gnugo.el,v $$Revision: 1.18 $ ends here
--- 553,563 ----
("D" . gnugo-dragon-data)
("t" . gnugo-toggle-dead-group)
("!" . gnugo-estimate-score)
! (":" . gnugo-command)
! ;; mouse
! ([(down-mouse-1)] . gnugo-mouse-move)
! ([(down-mouse-3)] . gnugo-mouse-pass))))
(provide 'gnugo)
! ;;; $RCSfile: gnugo.el,v $$Revision: 1.19 $ ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- gnugo.el diff 1.18 1.19,
Thien-Thi Nguyen <=