diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-04 21:51:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-04 21:51:59 +0000 |
| commit | 31d85ce02e9ebc5a12d727325f8e2b8392578beb (patch) | |
| tree | 1bce7ec999900df7b33f48a135981713664bb995 | |
| parent | 1e55142152d2c1c8f8a14c448ba5f81017bac242 (diff) | |
| download | emacs-31d85ce02e9ebc5a12d727325f8e2b8392578beb.tar.gz | |
(xterm-mouse-event): Adjust for minibuffer prompt width.
| -rw-r--r-- | lisp/xt-mouse.el | 4 |
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)) |