From 46a07e9320b2ca5f1a99b07c5f3c024ea4ee2148 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 9 Sep 2013 00:13:30 +0300 Subject: [PATCH] Scale to non-default fringe sizes better --- diff-hl.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/diff-hl.el b/diff-hl.el index 95eb871d7..4bfde1ae8 100644 --- a/diff-hl.el +++ b/diff-hl.el @@ -131,14 +131,14 @@ (middle-pos (1- (/ w2 2))) (middle-bit (expt 2 middle-pos)) (insert-bmp (make-vector w2 (* 3 middle-bit)))) - (define-fringe-bitmap 'diff-hl-bmp-delete (make-vector 2 delete-row)) + (define-fringe-bitmap 'diff-hl-bmp-delete (make-vector 2 delete-row) w2 w2) (aset insert-bmp 0 0) (aset insert-bmp middle-pos delete-row) (aset insert-bmp (1+ middle-pos) delete-row) (aset insert-bmp (1- w2) 0) - (define-fringe-bitmap 'diff-hl-bmp-insert insert-bmp) + (define-fringe-bitmap 'diff-hl-bmp-insert insert-bmp w2 w2) (define-fringe-bitmap 'diff-hl-bmp-change (make-vector - w2 (* 3 middle-bit)))))) + w2 (* 3 middle-bit)) w2 w2)))) (defvar diff-hl-spec-cache (make-hash-table :test 'equal)) -- 2.39.2