From: Kim F. Storm <storm@cua.dk>
Date: Tue, 21 Feb 2006 11:39:46 +0000 (+0000)
Subject: Fix last change.
X-Git-Tag: emacs-pretest-22.0.90~3971
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2870bad90e5da7c5d16ab56f31bc02ca60ca93f7;p=emacs.git

Fix last change.
---

diff --git a/lisp/fringe.el b/lisp/fringe.el
index e3d7de10d22..317fff0973c 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -43,44 +43,45 @@
 
 ;; Define the built-in fringe bitmaps and setup default mappings
 
-(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-rectangle hollow-rectangle
-		 filled-square hollow-square
-		 vertical-bar horizontal-bar
-		 empty-line))
-      (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 . horizontal-bar)
-	(hollow-small . hollow-square)))
+(when (boundp 'fringe-bitmaps)
+  (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-rectangle hollow-rectangle
+		   filled-square hollow-square
+		   vertical-bar horizontal-bar
+		   empty-line))
+	(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 . horizontal-bar)
+		  (hollow-small . hollow-square))))
 
 
 (defmacro fringe-bitmap-p (symbol)