Mercurial > emacs

changeset 93:7af62c5e857d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Fri, 14 Sep 1990 02:24:24 +0000
parents 2b8bcdcca3a1
children 23502d381550
files lisp/mouse.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)