Mercurial > hg > xemacs-beta

diff lisp/games/mine.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 1917ad0d78d7
children
line wrap: on
line diff
--- a/lisp/games/mine.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/games/mine.el	Mon Aug 13 09:19:45 2007 +0200
@@ -6,7 +6,7 @@
 ;; Version:    1.17
 
 (defconst mine-version-number "1.17" "Emacs Mine version number.")
-(defconst mine-version (format "Emacs Mine v%s by Jacques Duthen © 1997"
+(defconst mine-version (format "XEmacs Mine v%sx by Jacques Duthen © 1997"
 			       mine-version-number)
   "Full Emacs Mine version number.")
 
@@ -484,7 +484,7 @@
 (defun mine-mouse-hit (event)
   "Move point to the position clicked on with the mouse and hit this point."
   (interactive "@e")
-  (if (mine-goto-point (event-point event))
+  (if (mine-goto-point (event-closest-point event))
       (mine-hit-curpoint)
     (mine-message 'mine-msg-click-precisely)))