From 21fa4a775ba51f585f72582ac0ef5a7b843ce11e Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Thu, 9 Dec 2004 23:05:36 +0000 Subject: [PATCH] (xterm-mouse-event): Correct cursor position in a buffer with a display margin. --- lisp/xt-mouse.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index a261d3d36c8..19b58475a93 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -139,12 +139,13 @@ default-header-line-format) 1 0))) - (move-to-column (+ (car where) (current-column) + (move-to-column (- (+ (car where) (current-column) (if (string-match "\\` \\*Minibuf" (buffer-name)) (- (minibuffer-prompt-width)) 0) - (max 0 (1- (window-hscroll))))) + (max 0 (1- (window-hscroll)))) + left-margin-width)) (point)) where)) (mouse (intern -- 2.39.2