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