Mercurial > emacs
comparison lisp/fringe.el @ 57507:6024cd83cb88
(fringe-bitmaps): Only initialize when defined.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 15 Oct 2004 23:38:17 +0000 |
| parents | 075de3b1e798 |
| children | 6f85a547ab10 |
comparison
equal
deleted
inserted
replaced
| 57506:28ba8bb0e674 | 57507:6024cd83cb88 |
|---|---|
| 41 "Return non-nil if SYMBOL is a fringe bitmap." | 41 "Return non-nil if SYMBOL is a fringe bitmap." |
| 42 `(get ,symbol 'fringe)) | 42 `(get ,symbol 'fringe)) |
| 43 | 43 |
| 44 (defvar fringe-bitmaps) | 44 (defvar fringe-bitmaps) |
| 45 | 45 |
| 46 (unless (get 'left-truncation 'fringe) | 46 (unless (or (not (boundp 'fringe-bitmaps)) |
| 47 (get 'left-truncation 'fringe)) | |
| 47 (let ((bitmaps '(left-truncation right-truncation | 48 (let ((bitmaps '(left-truncation right-truncation |
| 48 up-arrow down-arrow | 49 up-arrow down-arrow |
| 49 continued-line continuation-line | 50 continued-line continuation-line |
| 50 overlay-arrow | 51 overlay-arrow |
| 51 top-left-angle top-right-angle | 52 top-left-angle top-right-angle |