Mercurial > hg > xemacs-beta

comparison lisp/msw-glyphs.el @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ;; Initialization code for MS Windows glyphs. 30 ;; Initialization code for MS Windows glyphs.
31 31
32 ;; This file is dumped with XEmacs (when MS Windows support is 32 ;; This file is dumped with XEmacs (when MS Windows support is
33 ;; compiled in). 33 ;; compiled in). Make sure this is the first of msw-*.el files
34 ;; dumped.
34 35
35 ;;; Code: 36 ;;; Code:
36 37
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
37 (progn 47 (progn
48
49 (define-specifier-tag 'msgdi (function msgdi-device-p))
50
38 (set-console-type-image-conversion-list 51 (set-console-type-image-conversion-list
39 'mswindows 52 'mswindows
40 `(("\\.bmp\\'" [bmp :file nil] 2) 53 `(("\\.bmp\\'" [bmp :file nil] 2)
41 ("\\`BM" [bmp :data nil] 2) 54 ("\\`BM" [bmp :data nil] 2)
42 ,@(if (featurep 'xpm) '(("\\.xpm\\'" [xpm :file nil] 2))) 55 ,@(if (featurep 'xpm) '(("\\.xpm\\'" [xpm :file nil] 2)))
57 ("" [string :data nil] 2) 70 ("" [string :data nil] 2)
58 ;; this last one is here for pointers and icons and such -- 71 ;; this last one is here for pointers and icons and such --
59 ;; strings are not allowed so they will be ignored. 72 ;; strings are not allowed so they will be ignored.
60 ("" [nothing]))) 73 ("" [nothing])))
61 74
75 (set-console-type-image-conversion-list
76 'msprinter (console-type-image-conversion-list 'mswindows))
77
62 (set-face-font 'border-glyph "WingDings:Regular:11::Symbol" 78 (set-face-font 'border-glyph "WingDings:Regular:11::Symbol"
63 'global 'mswindows) 79 'global 'msgdi)
64 (set-glyph-image continuation-glyph "\xC3" 'global 'mswindows) 80 (set-glyph-image continuation-glyph "\xC3" 'global 'msgdi)
65 (set-glyph-image truncation-glyph "\xF0" 'global 'mswindows) 81 (set-glyph-image truncation-glyph "\xF0" 'global 'msgdi)
66 (set-glyph-image hscroll-glyph "\xEF" 'global 'mswindows) 82 (set-glyph-image hscroll-glyph "\xEF" 'global 'msgdi)
67 83
68 (set-glyph-image octal-escape-glyph "\\") 84 (set-glyph-image octal-escape-glyph "\\")
69 (set-glyph-image control-arrow-glyph "^") 85 (set-glyph-image control-arrow-glyph "^")
70 (set-glyph-image invisible-text-glyph " ...") 86 (set-glyph-image invisible-text-glyph " ...")
71 87
76 (set-glyph-image xemacs-logo 92 (set-glyph-image xemacs-logo
77 (concat "../etc/" 93 (concat "../etc/"
78 (if emacs-beta-version 94 (if emacs-beta-version
79 "xemacs-beta.xpm" 95 "xemacs-beta.xpm"
80 "xemacs.xpm")) 96 "xemacs.xpm"))
81 'global 'mswindows)) 97 'global 'msgdi))
82 (t 98 (t
83 (set-glyph-image xemacs-logo 99 (set-glyph-image xemacs-logo
84 "XEmacs <insert spiffy graphic logo here>" 100 "XEmacs <insert spiffy graphic logo here>"
85 'global 'mswindows))) 101 'global 'msgdi)))
86 ) 102 )
87 103
88 ;;; msw-glyphs.el ends here 104 ;;; msw-glyphs.el ends here