Mercurial > emacs
changeset 38178:364478eab234
(xterm-mouse-event): If the buffer displayed in the
window where they clicked the mouse has a header line, adjust
vertical movement by one.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 25 Jun 2001 10:38:07 +0000 |
| parents | c6545dffc123 |
| children | ce5574d763e1 |
| files | lisp/xt-mouse.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/xt-mouse.el Mon Jun 25 10:04:27 2001 +0000 +++ b/lisp/xt-mouse.el Mon Jun 25 10:38:07 2001 +0000 @@ -123,7 +123,12 @@ (progn (select-window window) (goto-char (window-start window)) - (move-to-window-line (cdr where)) + (move-to-window-line (- + (cdr where) + (if (or header-line-format + default-header-line-format) + 1 + 0))) (move-to-column (+ (car where) (current-column) (if (string-match "\\` \\*Minibuf" (buffer-name))