mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-06-04 21:51:59 +00:00
parent 8a5a6d3e6d
commit c27f1e0119
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/xt-mouse.el
View File

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