From 31d85ce02e9ebc5a12d727325f8e2b8392578beb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 4 Jun 1996 21:51:59 +0000 Subject: (xterm-mouse-event): Adjust for minibuffer prompt width. --- lisp/xt-mouse.el | 4 ++++ 1 file changed, 4 insertions(+) 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)) -- cgit v1.2.1