diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-09-28 23:09:02 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-09-28 23:09:02 +0000 |
| commit | 822c2a0a519e95d0133bd2f71abcd71a929e1692 (patch) | |
| tree | 6292b06a709cdc6bb857699ef7bd58d7768ed513 /lisp/fringe.el | |
| parent | 841a8bcaefb90e24223d8f96d0a39809b84bc656 (diff) | |
| download | emacs-822c2a0a519e95d0133bd2f71abcd71a929e1692.tar.gz | |
(fringe-bitmap-p): New macro.
(fringe-bitmaps): Add standard fringe bitmaps on load.
Diffstat (limited to 'lisp/fringe.el')
| -rw-r--r-- | lisp/fringe.el | 46 |
1 files changed, 24 insertions, 22 deletions
diff --git a/lisp/fringe.el b/lisp/fringe.el index f52ecdf64d2..07c93d39f40 100644 --- a/lisp/fringe.el +++ b/lisp/fringe.el @@ -37,27 +37,29 @@ ;; 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) +(defmacro fringe-bitmap-p (symbol) + "Return non-nil if SYMBOL is a fringe bitmap." + `(get ,symbol 'fringe)) + +(defvar fringe-bitmaps) + +(unless (get 'left-truncation 'fringe) + (let ((bitmaps '(left-truncation right-truncation + up-arrow down-arrow + continued-line continuation-line + overlay-arrow + top-left-angle top-right-angle + bottom-left-angle bottom-right-angle + left-bracket right-bracket + filled-box-cursor hollow-box-cursor hollow-square + bar-cursor hbar-cursor + empty-line)) + (bn 2)) + (while bitmaps + (push (car bitmaps) fringe-bitmaps) + (put (car bitmaps) 'fringe bn) + (setq bitmaps (cdr bitmaps) + bn (1+ bn))))) ;; Control presence of fringes @@ -228,7 +230,7 @@ SIDE must be the symbol `left' or `right'." (window-fringes)) 0) (float (frame-char-width)))) - + (provide 'fringe) ;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d |