1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00

(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.
This commit is contained in:
Kim F. Storm 2004-02-08 23:33:16 +00:00
parent 82722af355
commit c3c6c23cc6

View File

@ -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)