mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-05 22:20:24 -08:00
Fix 'make_lispy_position' for left margin clicks (Bug#79846)
* src/keyboard.c (make_lispy_position): When calculating a position in the left margin skip any scroll bar on the left of the associated window (Bug#79846).
This commit is contained in:
parent
bfa0cb81dd
commit
788b39740a
1 changed files with 2 additions and 1 deletions
|
|
@ -5872,7 +5872,8 @@ make_lispy_position (struct frame *f, Lisp_Object x, Lisp_Object y,
|
||||||
ptrdiff_t charpos;
|
ptrdiff_t charpos;
|
||||||
|
|
||||||
posn = (part == ON_LEFT_MARGIN) ? Qleft_margin : Qright_margin;
|
posn = (part == ON_LEFT_MARGIN) ? Qleft_margin : Qright_margin;
|
||||||
col = wx;
|
/* Skip any scroll bar on the left (Bug#79846). */
|
||||||
|
col = wx - WINDOW_LEFT_SCROLL_BAR_AREA_WIDTH (w);
|
||||||
row = wy;
|
row = wy;
|
||||||
string = marginal_area_string (w, part, &col, &row, &charpos,
|
string = marginal_area_string (w, part, &col, &row, &charpos,
|
||||||
&object, &dx, &dy, &width, &height);
|
&object, &dx, &dy, &width, &height);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue