(fringe-bitmaps): Update to new bitmap names.

(fringe-indicator-alist, fringe-cursor-alist): Initialize.

1 files changed, 28 insertions, 7 deletions

diff --git a/lisp/fringe.el b/lisp/fringe.el
index fd9e70b5846..14ce045e683 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -50,23 +50,44 @@
 
 (unless (or (not (boundp 'fringe-bitmaps))
 	    (get 'left-truncation 'fringe))
-  (let ((bitmaps '(left-truncation right-truncation
-		   up-arrow down-arrow
-		   continued-line continuation-line
-		   overlay-arrow
+  (let ((bitmaps '(question-mark
+		   left-arrow right-arrow up-arrow down-arrow
+		   left-curly-arrow right-curly-arrow
+		   left-triangle right-triangle
 		   top-left-angle top-right-angle
 		   bottom-left-angle bottom-right-angle
 		   left-bracket right-bracket
-		   filled-box-cursor hollow-box-cursor hollow-square
-		   bar-cursor hbar-cursor
+		   filled-rectangle hollow-rectangle
+		   filled-square hollow-square
+		   vertical-bar horisontal-bar
 		   empty-line))
-	(bn 2))
+	(bn 1))
     (while bitmaps
       (push (car bitmaps) fringe-bitmaps)
       (put (car bitmaps) 'fringe bn)
       (setq bitmaps (cdr bitmaps)
 	    bn (1+ bn)))))
 
+(setq-default fringe-indicator-alist
+      '((truncation . (left-arrow right-arrow))
+	(continuation . (left-curly-arrow right-curly-arrow))
+	(overlay-arrow . right-triangle)
+	(up . up-arrow)
+	(down . down-arrow)
+	(top . (top-left-angle top-right-angle))
+	(bottom . (bottom-left-angle bottom-right-angle
+		   top-right-angle top-left-angle))
+	(top-bottom . (left-bracket right-bracket
+		       top-right-angle top-left-angle))
+	(empty-line . empty-line)
+	(unknown . question-mark)))
+
+(setq-default fringe-cursor-alist
+      '((box . filled-rectangle)
+	(hollow . hollow-rectangle)
+	(bar . vertical-bar)
+	(hbar . horisontal-bar)
+	(hollow-small . hollow-square)))
 
 ;; Control presence of fringes