Mercurial > hg > xemacs-beta

comparison lisp/msw-glyphs.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 2f8bb876ab1d
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
25 25
26 ;;; Synched up with: Not in FSF. 26 ;;; Synched up with: Not in FSF.
27 27
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ;; Initialization code for MS Windows glyphs. 30 ;; This file contains temporary definitions for 'mswindows glyphs.
31 ;; Since there currently is no image support, the glyps are defined
32 ;; TTY-style. This file has to be removed or reworked completely
33 ;; when we have images.
31 34
32 ;; This file is dumped with XEmacs (when MS Windows support is 35 ;; This file is dumped with XEmacs.
33 ;; compiled in). Make sure this is the first of msw-*.el files
34 ;; dumped.
35 36
36 ;;; Code: 37 ;;; Code:
37 38
38 (defun msgdi-device-p (&optional device)
39 "Return non-nil if DEVICE is a GDI device, that is 'mswindows or 'msprinter.
40 MS GDI devices are mutuially WYSIWIG-compatible, so that many common glyph,
41 color and font properties apply to them equally.
42
43 This function is also a predicate for 'msgdi device tag, matching this
44 device class."
45 (memq (device-type device) '(mswindows msprinter)))
46
47 (progn 39 (progn
48
49 (define-specifier-tag 'msgdi (function msgdi-device-p))
50
51 (set-console-type-image-conversion-list 40 (set-console-type-image-conversion-list
52 'mswindows 41 'mswindows
53 `(("\\.bmp\\'" [bmp :file nil] 2) 42 `(("\\.bmp\\'" [bmp :file nil] 2)
54 ("\\`BM" [bmp :data nil] 2) 43 ("\\`BM" [bmp :data nil] 2)
55 ,@(if (featurep 'xpm) '(("\\.xpm\\'" [xpm :file nil] 2))) 44 ,@(if (featurep 'xpm) '(("\\.xpm\\'" [xpm :file nil] 2)))
70 ("" [string :data nil] 2) 59 ("" [string :data nil] 2)
71 ;; this last one is here for pointers and icons and such -- 60 ;; this last one is here for pointers and icons and such --
72 ;; strings are not allowed so they will be ignored. 61 ;; strings are not allowed so they will be ignored.
73 ("" [nothing]))) 62 ("" [nothing])))
74 63
75 (set-console-type-image-conversion-list
76 'msprinter (console-type-image-conversion-list 'mswindows))
77
78 (set-face-font 'border-glyph "WingDings:Regular:11::Symbol" 64 (set-face-font 'border-glyph "WingDings:Regular:11::Symbol"
79 'global 'msgdi) 65 'global 'mswindows)
80 (set-glyph-image continuation-glyph "\xC3" 'global 'msgdi) 66 (set-glyph-image continuation-glyph "\xC3" 'global 'mswindows)
81 (set-glyph-image truncation-glyph "\xF0" 'global 'msgdi) 67 (set-glyph-image truncation-glyph "\xF0" 'global 'mswindows)
82 (set-glyph-image hscroll-glyph "\xEF" 'global 'msgdi) 68 (set-glyph-image hscroll-glyph "\xEF" 'global 'mswindows)
83 69
84 (set-glyph-image octal-escape-glyph "\\") 70 (set-glyph-image octal-escape-glyph "\\")
85 (set-glyph-image control-arrow-glyph "^") 71 (set-glyph-image control-arrow-glyph "^")
86 (set-glyph-image invisible-text-glyph " ...") 72 (set-glyph-image invisible-text-glyph " ...")
87 73
92 (set-glyph-image xemacs-logo 78 (set-glyph-image xemacs-logo
93 (concat "../etc/" 79 (concat "../etc/"
94 (if emacs-beta-version 80 (if emacs-beta-version
95 "xemacs-beta.xpm" 81 "xemacs-beta.xpm"
96 "xemacs.xpm")) 82 "xemacs.xpm"))
97 'global 'msgdi)) 83 'global 'mswindows))
98 (t 84 (t
99 (set-glyph-image xemacs-logo 85 (set-glyph-image xemacs-logo
100 "XEmacs <insert spiffy graphic logo here>" 86 "XEmacs <insert spiffy graphic logo here>"
101 'global 'msgdi))) 87 'global 'mswindows)))
102 ) 88 )
103 89
104 ;;; msw-glyphs.el ends here 90 ;;; msw-glyphs.el ends here