From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 4 Jun 1996 21:51:59 +0000 (+0000)
Subject: (xterm-mouse-event): Adjust for minibuffer prompt width.
X-Git-Tag: emacs-19.34~531
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c27f1e01191bbefe0263525f8124250db3b2bf24;p=emacs.git

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

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))