# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745049863 0
# Node ID cf541ed1fed897cb6865e01b58151b0c928a9502
# Parent  ceb140c16ad24dc0c004608804ae07279d62a02c
(mouse-set-point): Use event-end, not event-start.

diff -r ceb140c16ad2 -r cf541ed1fed8 lisp/mouse.el
--- a/lisp/mouse.el	Wed Aug 11 06:02:05 1993 +0000
+++ b/lisp/mouse.el	Wed Aug 11 06:17:43 1993 +0000
@@ -91,11 +91,13 @@
 	(split-window-horizontally
 	 (min (max new-width first-col) last-col))))))
 
-(defun mouse-set-point (click)
+(defun mouse-set-point (event)
   "Move point to the position clicked on with the mouse.
-This must be bound to a mouse click."
+This should be bound to a mouse click event type."
   (interactive "e")
-  (let ((posn (event-start click)))
+  ;; 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)))
     (and (window-minibuffer-p (posn-window posn))
 	 (not (minibuffer-window-active-p (posn-window posn)))
 	 (error "Minibuffer window is not active"))
@@ -105,7 +107,7 @@
 
 (defun mouse-set-region (click)
   "Set the region to the text that the mouse is dragged over.
-This must be bound to a mouse drag event."
+This should be bound to a mouse drag event."
   (interactive "e")
   (let ((posn (event-start click))
 	(end (event-end click)))