(xterm-mouse-event): Adjust for minibuffer prompt width.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 87cb8092495..1564034cc7f 100644
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -124,6 +124,10 @@
                     (goto-char (window-start window))
                     (move-to-window-line  (cdr where))
                     (move-to-column (+ (car where) (current-column)
+                                       (if (string-match "\\` \\*Minibuf"
+                                                         (buffer-name))
+                                           (- (minibuffer-prompt-width))
+                                         0)
                                        (max 0 (1- (window-hscroll)))))
                     (point))
                 where))