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