gnugo.el diff 1.18 1.19

[Thien-Thi Nguyen]

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