From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 8 Sep 2013 21:13:30 +0000 (+0300)
Subject: Scale to non-default fringe sizes better
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/46a07e9320b2ca5f1a99b07c5f3c024ea4ee2148

Scale to non-default fringe sizes better
---

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))