# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 653279064 0
# Node ID 7af62c5e857d5c918bd7efeea38ed8bc269399ab
# Parent  2b8bcdcca3a171e0ec50d7f85ca417813c23cd8c
*** empty log message ***

diff -r 2b8bcdcca3a1 -r 7af62c5e857d lisp/mouse.el
--- a/lisp/mouse.el	Tue Sep 11 02:40:39 1990 +0000
+++ b/lisp/mouse.el	Fri Sep 14 02:24:24 1990 +0000
@@ -47,8 +47,10 @@
     (if (consp relative-coordinate)
 	(progn
 	  (move-to-window-line (car (cdr relative-coordinate)))
+	  ;; Note that hscroll must get above 1
+	  ;; before the text actually starts to move.
 	  (move-to-column (+ (car relative-coordinate) (current-column)
-			     (window-hscroll (selected-window))))
+			     (1- (max 1 (window-hscroll (selected-window))))))
 	  (what-line)))))
 
 (defun mouse-eval-last-sexpr (event)