Mercurial > emacs
comparison lisp/disp-table.el @ 29201:c8bfb0b55a91
(standard-display-g1, standard-display-graphic):
Only refuse to use string glyphs on X and MS-Windows.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Thu, 25 May 2000 16:54:17 +0000 |
parents | ee67b2340a0f |
children | 50050adc8385 |
comparison
equal
deleted
inserted
replaced
29200:28c61db89225 | 29201:c8bfb0b55a91 |
---|---|
137 ;;;###autoload | 137 ;;;###autoload |
138 (defun standard-display-g1 (c sc) | 138 (defun standard-display-g1 (c sc) |
139 "Display character C as character SC in the g1 character set. | 139 "Display character C as character SC in the g1 character set. |
140 This function assumes that your terminal uses the SO/SI characters; | 140 This function assumes that your terminal uses the SO/SI characters; |
141 it is meaningless for an X frame." | 141 it is meaningless for an X frame." |
142 (if window-system | 142 (if (memq window-system '(x w32)) |
143 (error "Cannot use string glyphs in a windowing system")) | 143 (error "Cannot use string glyphs in a windowing system")) |
144 (aset standard-display-table c | 144 (aset standard-display-table c |
145 (vector (create-glyph (concat "\016" (char-to-string sc) "\017"))))) | 145 (vector (create-glyph (concat "\016" (char-to-string sc) "\017"))))) |
146 | 146 |
147 ;;;###autoload | 147 ;;;###autoload |
148 (defun standard-display-graphic (c gc) | 148 (defun standard-display-graphic (c gc) |
149 "Display character C as character GC in graphics character set. | 149 "Display character C as character GC in graphics character set. |
150 This function assumes VT100-compatible escapes; it is meaningless for an | 150 This function assumes VT100-compatible escapes; it is meaningless for an |
151 X frame." | 151 X frame." |
152 (if window-system | 152 (if (memq window-system '(x w32)) |
153 (error "Cannot use string glyphs in a windowing system")) | 153 (error "Cannot use string glyphs in a windowing system")) |
154 (aset standard-display-table c | 154 (aset standard-display-table c |
155 (vector (create-glyph (concat "\e(0" (char-to-string gc) "\e(B"))))) | 155 (vector (create-glyph (concat "\e(0" (char-to-string gc) "\e(B"))))) |
156 | 156 |
157 ;;;###autoload | 157 ;;;###autoload |