*** empty log message ***

diff --git a/lisp/mouse.el b/lisp/mouse.el
index b7c77c2746ba655e28437680e8aae6536b54c9af..924bc71d837d9145b894b79c3414891c1093c59a 100644 (file)
--- 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)