From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 28 Sep 2014 20:54:33 +0000 (+0400)
Subject: diff-hl-fringe-bmp-from-type: Use `exclamation-mark'
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/ecc7fc3991183f9abe069344d9100a2f762dae4f

diff-hl-fringe-bmp-from-type: Use `exclamation-mark'

#25
---

diff --git a/diff-hl.el b/diff-hl.el
index 73276c3be..d208ccbdd 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -152,8 +152,7 @@
       (aset insert-bmp (1+ middle-pos) delete-row)
       (aset insert-bmp (1- w2) 0)
       (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 w2))))
+      )))
 
 (defun diff-hl-maybe-define-bitmaps ()
   (when (window-system) ;; No fringes in the console.
@@ -177,9 +176,10 @@
   (intern (format "diff-hl-bmp-%s" pos)))
 
 (defun diff-hl-fringe-bmp-from-type (type _pos)
-  (if (eq type 'unknown)
-      'question-mark
-    (intern (format "diff-hl-bmp-%s" type))))
+  (cl-case type
+    (unknown 'question-mark)
+    (change 'exclamation-mark)
+    (t (intern (format "diff-hl-bmp-%s" type)))))
 
 (defvar vc-svn-diff-switches)