Mercurial > hg > xemacs-beta
comparison lisp/msw-glyphs.el @ 286:57709be46d1b r21-0b41
Import from CVS: tag r21-0b41
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:35:03 +0200 |
parents | c42ec1d1cded |
children | e11d67e05968 |
comparison
equal
deleted
inserted
replaced
285:9a3756523c1b | 286:57709be46d1b |
---|---|
58 ("" [string :data nil] 2) | 58 ("" [string :data nil] 2) |
59 ;; this last one is here for pointers and icons and such -- | 59 ;; this last one is here for pointers and icons and such -- |
60 ;; strings are not allowed so they will be ignored. | 60 ;; strings are not allowed so they will be ignored. |
61 ("" [nothing]))) | 61 ("" [nothing]))) |
62 | 62 |
63 (set-glyph-image truncation-glyph "$" 'global 'mswindows) | 63 (set-face-font 'border-glyph "WingDings:regular:11: :symbol" |
64 (set-glyph-image continuation-glyph "\\" 'global 'mswindows) | 64 'global 'mswindows) |
65 (set-glyph-image hscroll-glyph "$" 'global 'mswindows) | 65 (set-glyph-image continuation-glyph "\xC3" 'global 'mswindows) |
66 (set-glyph-image truncation-glyph "\xF0" 'global 'mswindows) | |
67 (set-glyph-image hscroll-glyph "\xEF" 'global 'mswindows) | |
66 | 68 |
67 (set-glyph-image octal-escape-glyph "\\") | 69 (set-glyph-image octal-escape-glyph "\\") |
68 (set-glyph-image control-arrow-glyph "^") | 70 (set-glyph-image control-arrow-glyph "^") |
69 (set-glyph-image invisible-text-glyph " ...") | 71 (set-glyph-image invisible-text-glyph " ...") |
70 | 72 |