diff options
| author | Martin Rudalics | 2025-11-19 09:31:28 +0100 |
|---|---|---|
| committer | Martin Rudalics | 2025-11-19 09:31:28 +0100 |
| commit | 788b39740a657b6359162ad79cc511b461ee6a27 (patch) | |
| tree | efacf29155f5a770e28409ff28e2861876e555da /src | |
| parent | bfa0cb81ddae6ce3e37f4cc4da4725a2f396d784 (diff) | |
| download | emacs-788b39740a657b6359162ad79cc511b461ee6a27.tar.gz emacs-788b39740a657b6359162ad79cc511b461ee6a27.zip | |
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).
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 016a79082aa..6c01811c2d8 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -5872,7 +5872,8 @@ make_lispy_position (struct frame *f, Lisp_Object x, Lisp_Object y, | |||
| 5872 | ptrdiff_t charpos; | 5872 | ptrdiff_t charpos; |
| 5873 | 5873 | ||
| 5874 | posn = (part == ON_LEFT_MARGIN) ? Qleft_margin : Qright_margin; | 5874 | posn = (part == ON_LEFT_MARGIN) ? Qleft_margin : Qright_margin; |
| 5875 | col = wx; | 5875 | /* Skip any scroll bar on the left (Bug#79846). */ |
| 5876 | col = wx - WINDOW_LEFT_SCROLL_BAR_AREA_WIDTH (w); | ||
| 5876 | row = wy; | 5877 | row = wy; |
| 5877 | string = marginal_area_string (w, part, &col, &row, &charpos, | 5878 | string = marginal_area_string (w, part, &col, &row, &charpos, |
| 5878 | &object, &dx, &dy, &width, &height); | 5879 | &object, &dx, &dy, &width, &height); |