]> code.delx.au - gnu-emacs-elpa/commitdiff
Use "i" for ignored files
authorDmitry Gutov <dgutov@yandex.ru>
Mon, 15 Dec 2014 03:06:08 +0000 (05:06 +0200)
committerDmitry Gutov <dgutov@yandex.ru>
Mon, 15 Dec 2014 03:06:08 +0000 (05:06 +0200)
diff-hl-margin.el
diff-hl.el

index ef3db0a53022d4cdae62ac12bfca8d2115cbca19..26fa7ad781ae67a0db9993d29944bf9792be5b29 100644 (file)
@@ -101,7 +101,8 @@ You probably shouldn't use this function directly."
 
 (defvar diff-hl-margin-spec-cache
   (cl-loop for (type . char) in '((insert . "+") (delete . "-")
-                                  (change . "|") (unknown . "?"))
+                                  (change . "!") (unknown . "?")
+                                  (ignored . "i"))
         nconc
         (cl-loop for side in '(left right)
                  collect
index 1daab19130845f26d747eb670e255a4eb2b027ac..76b68157d3af88a3a3da9982d148962e99022a95 100644 (file)
     (define-fringe-bitmap 'diff-hl-bmp-middle middle h w 'center)\r
     (define-fringe-bitmap 'diff-hl-bmp-bottom bottom h w 'bottom)\r
     (define-fringe-bitmap 'diff-hl-bmp-single single h w 'top)\r
+    (define-fringe-bitmap 'diff-hl-bmp-i [3 3 0 3 3 3 3 3 3 3] nil 2 'center)\r
     (let* ((w2 (* (/ w 2) 2))\r
            ;; When fringes are disabled, it's easier to fix up the width,\r
            ;; instead of doing nothing (#20).\r
   (cl-case type\r
     (unknown 'question-mark)\r
     (change 'exclamation-mark)\r
-    (ignored 'filled-square)\r
+    (ignored 'diff-hl-bmp-i)\r
     (t (intern (format "diff-hl-bmp-%s" type)))))\r
 \r
 (defvar vc-svn-diff-switches)\r