From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 9 Dec 2004 23:05:36 +0000 (+0000)
Subject: (xterm-mouse-event): Correct cursor position in a
X-Git-Tag: ttn-vms-21-2-B4~3344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21fa4a775ba51f585f72582ac0ef5a7b843ce11e;p=emacs.git

(xterm-mouse-event): Correct cursor position in a
buffer with a display margin.
---

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index a261d3d36c8..19b58475a93 100644
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -139,12 +139,13 @@
 						  default-header-line-format)
 					      1
 					    0)))
-		    (move-to-column (+ (car where) (current-column)
+		    (move-to-column (- (+ (car where) (current-column)
 				       (if (string-match "\\` \\*Minibuf"
 							 (buffer-name))
 					   (- (minibuffer-prompt-width))
 					 0)
-				       (max 0 (1- (window-hscroll)))))
+				       (max 0 (1- (window-hscroll))))
+				       left-margin-width))
 		    (point))
 		where))
 	 (mouse (intern