Alternative fringe bitmaps for continuation/truncation

[storm@cua.dk (Kim F. Storm)]

If you don't like the current "fat (curly) arrows" bitmaps used in the
fringe for continuation and truncation lines, the following more
modest bitmaps may be more appealing.

(define-fringe-bitmap 'right-truncation
  "\xa9\x02\x04" nil nil 'bottom)
(define-fringe-bitmap 'left-truncation
  "\x20\x40\xaa\0\0" nil nil 'bottom)
(define-fringe-bitmap 'right-continuation
  "\xa8\0\0" nil nil 'bottom)
(define-fringe-bitmap 'left-continuation
  "\x2a\0\0" nil nil 'bottom)

(let ((tr (assoc 'truncation default-fringe-indicator-alist))
      (co (assoc 'continuation default-fringe-indicator-alist)))
  (if tr (setcdr tr '(left-truncation right-truncation)))
  (if co (setcdr co '(left-continuation right-continuation))))


WDYT?

++Kim