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:
parent
82722af355
commit
c3c6c23cc6
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user