# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1081963817 0
# Node ID c59162a8d0f8d2b5ff0b144d920c464776164a29
# Parent  47cdc4f7ee17868ca9a1770b975aaae872287994
(mouse-set-point): Use it.

diff -r 47cdc4f7ee17 -r c59162a8d0f8 lisp/mouse.el
--- a/lisp/mouse.el	Wed Apr 14 17:28:33 2004 +0000
+++ b/lisp/mouse.el	Wed Apr 14 17:30:17 2004 +0000
@@ -1,6 +1,6 @@
 ;;; mouse.el --- window system-independent mouse support
 
-;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001
+;; Copyright (C) 1993, 94, 95, 1999, 2000, 01, 2004
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -577,12 +577,7 @@
   (mouse-minibuffer-check event)
   ;; Use event-end in case called from mouse-drag-region.
   ;; If EVENT is a click, event-end and event-start give same value.
-  (let ((posn (event-end event)))
-    (if (not (windowp (posn-window posn)))
-	(error "Cursor not in text area of window"))
-    (select-window (posn-window posn))
-    (if (numberp (posn-point posn))
-	(goto-char (posn-point posn)))))
+  (posn-set-point (event-end event)))
 
 (defvar mouse-last-region-beg nil)
 (defvar mouse-last-region-end nil)