]> code.delx.au - gnu-emacs-elpa/blobdiff - diff-hl.el
Use "i" for ignored files
[gnu-emacs-elpa] / diff-hl.el
index 8f675a322ce2733f0ed41d9f33c2410b8e2a2d8e..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
+           (w2 (if (zerop w2) 2 w2))\r
            (delete-row (- (expt 2 (1- w2)) 2))\r
            (middle-pos (1- (/ w2 2)))\r
            (middle-bit (expt 2 middle-pos))\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