37 |
|
|
38 |
;; Standard fringe bitmaps |
;; Standard fringe bitmaps |
39 |
|
|
40 |
(defconst no-fringe-bitmap 0) |
(defmacro fringe-bitmap-p (symbol) |
41 |
(defconst undef-fringe-bitmap 1) |
"Return non-nil if SYMBOL is a fringe bitmap." |
42 |
(defconst left-truncation-fringe-bitmap 2) |
`(get ,symbol 'fringe)) |
43 |
(defconst right-truncation-fringe-bitmap 3) |
|
44 |
(defconst up-arrow-fringe-bitmap 4) |
(defvar fringe-bitmaps) |
45 |
(defconst down-arrow-fringe-bitmap 5) |
|
46 |
(defconst continued-line-fringe-bitmap 6) |
(unless (get 'left-truncation 'fringe) |
47 |
(defconst continuation-line-fringe-bitmap 7) |
(let ((bitmaps '(left-truncation right-truncation |
48 |
(defconst overlay-arrow-fringe-bitmap 8) |
up-arrow down-arrow |
49 |
(defconst top-left-angle-fringe-bitmap 9) |
continued-line continuation-line |
50 |
(defconst top-right-angle-fringe-bitmap 10) |
overlay-arrow |
51 |
(defconst bottom-left-angle-fringe-bitmap 11) |
top-left-angle top-right-angle |
52 |
(defconst bottom-right-angle-fringe-bitmap 12) |
bottom-left-angle bottom-right-angle |
53 |
(defconst left-bracket-fringe-bitmap 13) |
left-bracket right-bracket |
54 |
(defconst right-bracket-fringe-bitmap 14) |
filled-box-cursor hollow-box-cursor hollow-square |
55 |
(defconst filled-box-cursor-fringe-bitmap 15) |
bar-cursor hbar-cursor |
56 |
(defconst hollow-box-cursor-fringe-bitmap 16) |
empty-line)) |
57 |
(defconst hollow-square-fringe-bitmap 17) |
(bn 2)) |
58 |
(defconst bar-cursor-fringe-bitmap 18) |
(while bitmaps |
59 |
(defconst hbar-cursor-fringe-bitmap 19) |
(push (car bitmaps) fringe-bitmaps) |
60 |
(defconst empty-line-fringe-bitmap 20) |
(put (car bitmaps) 'fringe bn) |
61 |
|
(setq bitmaps (cdr bitmaps) |
62 |
|
bn (1+ bn))))) |
63 |
|
|
64 |
|
|
65 |
;; Control presence of fringes |
;; Control presence of fringes |
230 |
(window-fringes)) |
(window-fringes)) |
231 |
0) |
0) |
232 |
(float (frame-char-width)))) |
(float (frame-char-width)))) |
233 |
|
|
234 |
(provide 'fringe) |
(provide 'fringe) |
235 |
|
|
236 |
;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d |
;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d |