# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 833925119 0
# Node ID 8cf5ec9e505805b588b2eaf1e4d9543551956041
# Parent  770c11688d0fc7e1487bdc6b851b013495cc0a95
(xterm-mouse-event): Adjust for minibuffer prompt width.

diff -r 770c11688d0f -r 8cf5ec9e5058 lisp/xt-mouse.el
--- a/lisp/xt-mouse.el	Tue Jun 04 16:37:27 1996 +0000
+++ b/lisp/xt-mouse.el	Tue Jun 04 21:51:59 1996 +0000
@@ -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))