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 | c27f1e01191bbefe0263525f8124250db3b2bf24 (patch) | |
| tree | d9968c4831a4e4af65523333a7b3ec131731c332 /lisp/xt-mouse.el | |
| parent | 8a5a6d3e6dc8279b42f3a04d5bab840e9106937d (diff) | |
| download | emacs-c27f1e01191bbefe0263525f8124250db3b2bf24.tar.gz | |
(xterm-mouse-event): Adjust for minibuffer prompt width.
Diffstat (limited to 'lisp/xt-mouse.el')
| -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)) |