From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 14 Sep 1990 02:24:24 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~15725
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f55fb75ca1f021eea3ca748553350c289f5e4b4c;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index b7c77c2746b..924bc71d837 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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)