emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master ecc7fc3 03/22: diff-hl-fringe-bmp-from-type: Use `exclamat


From: Dmitry Gutov
Subject: [elpa] master ecc7fc3 03/22: diff-hl-fringe-bmp-from-type: Use `exclamation-mark'
Date: Fri, 02 Jan 2015 23:46:26 +0000

branch: master
commit ecc7fc3991183f9abe069344d9100a2f762dae4f
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    diff-hl-fringe-bmp-from-type: Use `exclamation-mark'
    
    #25
---
 diff-hl.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/diff-hl.el b/diff-hl.el
index 73276c3..d208ccb 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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]