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 |