145 |
"Display character C as character SC in the g1 character set. |
"Display character C as character SC in the g1 character set. |
146 |
This function assumes that your terminal uses the SO/SI characters; |
This function assumes that your terminal uses the SO/SI characters; |
147 |
it is meaningless for an X frame." |
it is meaningless for an X frame." |
148 |
(if (memq window-system '(x w32)) |
(if (memq window-system '(x w32 mac)) |
149 |
(error "Cannot use string glyphs in a windowing system")) |
(error "Cannot use string glyphs in a windowing system")) |
150 |
(or standard-display-table |
(or standard-display-table |
151 |
(setq standard-display-table (make-display-table))) |
(setq standard-display-table (make-display-table))) |
157 |
"Display character C as character GC in graphics character set. |
"Display character C as character GC in graphics character set. |
158 |
This function assumes VT100-compatible escapes; it is meaningless for an |
This function assumes VT100-compatible escapes; it is meaningless for an |
159 |
X frame." |
X frame." |
160 |
(if (memq window-system '(x w32)) |
(if (memq window-system '(x w32 mac)) |
161 |
(error "Cannot use string glyphs in a windowing system")) |
(error "Cannot use string glyphs in a windowing system")) |
162 |
(or standard-display-table |
(or standard-display-table |
163 |
(setq standard-display-table (make-display-table))) |
(setq standard-display-table (make-display-table))) |
217 |
(equal (aref standard-display-table 161) [161]))) |
(equal (aref standard-display-table 161) [161]))) |
218 |
(progn |
(progn |
219 |
(standard-display-default 160 255) |
(standard-display-default 160 255) |
220 |
(unless (or (memq window-system '(x w32))) |
(unless (or (memq window-system '(x w32 mac))) |
221 |
(and (terminal-coding-system) |
(and (terminal-coding-system) |
222 |
(set-terminal-coding-system nil)))) |
(set-terminal-coding-system nil)))) |
223 |
|
|