(xterm-mouse-event): Correct cursor position in a

buffer with a display margin.

1 files changed, 3 insertions, 2 deletions

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