diff options
| author | Kim F. Storm | 2006-02-21 11:39:46 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-02-21 11:39:46 +0000 |
| commit | 2870bad90e5da7c5d16ab56f31bc02ca60ca93f7 (patch) | |
| tree | c76f6989b322e4dcdab09a80757d91f179b42492 | |
| parent | a4b7b036d22264c0194e48a3dd06df76b47e0027 (diff) | |
| download | emacs-2870bad90e5da7c5d16ab56f31bc02ca60ca93f7.tar.gz emacs-2870bad90e5da7c5d16ab56f31bc02ca60ca93f7.zip | |
Fix last change.
| -rw-r--r-- | lisp/fringe.el | 77 |
1 files changed, 39 insertions, 38 deletions
diff --git a/lisp/fringe.el b/lisp/fringe.el index e3d7de10d22..317fff0973c 100644 --- a/lisp/fringe.el +++ b/lisp/fringe.el | |||
| @@ -43,44 +43,45 @@ | |||
| 43 | 43 | ||
| 44 | ;; Define the built-in fringe bitmaps and setup default mappings | 44 | ;; Define the built-in fringe bitmaps and setup default mappings |
| 45 | 45 | ||
| 46 | (let ((bitmaps '(question-mark | 46 | (when (boundp 'fringe-bitmaps) |
| 47 | left-arrow right-arrow up-arrow down-arrow | 47 | (let ((bitmaps '(question-mark |
| 48 | left-curly-arrow right-curly-arrow | 48 | left-arrow right-arrow up-arrow down-arrow |
| 49 | left-triangle right-triangle | 49 | left-curly-arrow right-curly-arrow |
| 50 | top-left-angle top-right-angle | 50 | left-triangle right-triangle |
| 51 | bottom-left-angle bottom-right-angle | 51 | top-left-angle top-right-angle |
| 52 | left-bracket right-bracket | 52 | bottom-left-angle bottom-right-angle |
| 53 | filled-rectangle hollow-rectangle | 53 | left-bracket right-bracket |
| 54 | filled-square hollow-square | 54 | filled-rectangle hollow-rectangle |
| 55 | vertical-bar horizontal-bar | 55 | filled-square hollow-square |
| 56 | empty-line)) | 56 | vertical-bar horizontal-bar |
| 57 | (bn 1)) | 57 | empty-line)) |
| 58 | (while bitmaps | 58 | (bn 1)) |
| 59 | (push (car bitmaps) fringe-bitmaps) | 59 | (while bitmaps |
| 60 | (put (car bitmaps) 'fringe bn) | 60 | (push (car bitmaps) fringe-bitmaps) |
| 61 | (setq bitmaps (cdr bitmaps) | 61 | (put (car bitmaps) 'fringe bn) |
| 62 | bn (1+ bn)))) | 62 | (setq bitmaps (cdr bitmaps) |
| 63 | 63 | bn (1+ bn)))) | |
| 64 | (setq-default fringe-indicator-alist | 64 | |
| 65 | '((truncation . (left-arrow right-arrow)) | 65 | (setq-default fringe-indicator-alist |
| 66 | (continuation . (left-curly-arrow right-curly-arrow)) | 66 | '((truncation . (left-arrow right-arrow)) |
| 67 | (overlay-arrow . right-triangle) | 67 | (continuation . (left-curly-arrow right-curly-arrow)) |
| 68 | (up . up-arrow) | 68 | (overlay-arrow . right-triangle) |
| 69 | (down . down-arrow) | 69 | (up . up-arrow) |
| 70 | (top . (top-left-angle top-right-angle)) | 70 | (down . down-arrow) |
| 71 | (bottom . (bottom-left-angle bottom-right-angle | 71 | (top . (top-left-angle top-right-angle)) |
| 72 | top-right-angle top-left-angle)) | 72 | (bottom . (bottom-left-angle bottom-right-angle |
| 73 | (top-bottom . (left-bracket right-bracket | 73 | top-right-angle top-left-angle)) |
| 74 | top-right-angle top-left-angle)) | 74 | (top-bottom . (left-bracket right-bracket |
| 75 | (empty-line . empty-line) | 75 | top-right-angle top-left-angle)) |
| 76 | (unknown . question-mark))) | 76 | (empty-line . empty-line) |
| 77 | 77 | (unknown . question-mark))) | |
| 78 | (setq-default fringe-cursor-alist | 78 | |
| 79 | '((box . filled-rectangle) | 79 | (setq-default fringe-cursor-alist |
| 80 | (hollow . hollow-rectangle) | 80 | '((box . filled-rectangle) |
| 81 | (bar . vertical-bar) | 81 | (hollow . hollow-rectangle) |
| 82 | (hbar . horizontal-bar) | 82 | (bar . vertical-bar) |
| 83 | (hollow-small . hollow-square))) | 83 | (hbar . horizontal-bar) |
| 84 | (hollow-small . hollow-square)))) | ||
| 84 | 85 | ||
| 85 | 86 | ||
| 86 | (defmacro fringe-bitmap-p (symbol) | 87 | (defmacro fringe-bitmap-p (symbol) |