From c3c6c23cc6fe72083c841b2e296a6dc4fd69f7b4 Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Sun, 8 Feb 2004 23:33:16 +0000
Subject: [PATCH] (no-fringe-bitmap, undef-fringe-bitmap)
 (left-truncation-fringe-bitmap, right-truncation-fringe-bitmap)
 (up-arrow-fringe-bitmap, down-arrow-fringe-bitmap)
 (continued-line-fringe-bitmap, continuation-line-fringe-bitmap)
 (overlay-arrow-fringe-bitmap, top-left-angle-fringe-bitmap)
 (top-right-angle-fringe-bitmap, bottom-left-angle-fringe-bitmap)
 (bottom-right-angle-fringe-bitmap, left-bracket-fringe-bitmap)
 (right-bracket-fringe-bitmap, filled-box-cursor-fringe-bitmap)
 (hollow-box-cursor-fringe-bitmap, hollow-square-fringe-bitmap)
 (bar-cursor-fringe-bitmap, hbar-cursor-fringe-bitmap)
 (empty-line-fringe-bitmap): Define standard fringe bitmaps id's.

---
 lisp/fringe.el | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/lisp/fringe.el b/lisp/fringe.el
index 16a21752b58..ab7709332f5 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -35,6 +35,33 @@
 
 ;;; Code:
 
+;; Standard fringe bitmaps
+
+(defconst no-fringe-bitmap 0)
+(defconst undef-fringe-bitmap 1)
+(defconst left-truncation-fringe-bitmap 2)
+(defconst right-truncation-fringe-bitmap 3)
+(defconst up-arrow-fringe-bitmap 4)
+(defconst down-arrow-fringe-bitmap 5)
+(defconst continued-line-fringe-bitmap 6)
+(defconst continuation-line-fringe-bitmap 7)
+(defconst overlay-arrow-fringe-bitmap 8)
+(defconst top-left-angle-fringe-bitmap 9)
+(defconst top-right-angle-fringe-bitmap 10)
+(defconst bottom-left-angle-fringe-bitmap 11)
+(defconst bottom-right-angle-fringe-bitmap 12)
+(defconst left-bracket-fringe-bitmap 13)
+(defconst right-bracket-fringe-bitmap 14)
+(defconst filled-box-cursor-fringe-bitmap 15)
+(defconst hollow-box-cursor-fringe-bitmap 16)
+(defconst hollow-square-fringe-bitmap 17)
+(defconst bar-cursor-fringe-bitmap 18)
+(defconst hbar-cursor-fringe-bitmap 19)
+(defconst empty-line-fringe-bitmap 20)
+
+
+;; Control presence of fringes
+
 (defvar fringe-mode)
 
 (defun set-fringe-mode-1 (ignore value)
-- 
2.39.2