diff options
| author | YAMAMOTO Mitsuharu | 2005-10-21 08:26:54 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu | 2005-10-21 08:26:54 +0000 |
| commit | 06b4a81bb402dac279a389ce8adae48db16b6db8 (patch) | |
| tree | b8aa81fb7875403e2581b765c4f86855b354201d | |
| parent | 1505621c908eeaa166a7b4a19d0053a17c7f5d73 (diff) | |
| download | emacs-06b4a81bb402dac279a389ce8adae48db16b6db8.tar.gz emacs-06b4a81bb402dac279a389ce8adae48db16b6db8.zip | |
(standard-display-g1, standard-display-graphic): Refuse to use string
glyphs also on Mac.
(standard-display-european): Don't set terminal coding system also
on Mac.
| -rw-r--r-- | lisp/disp-table.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 778ea092e43..3c862bcc421 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el | |||
| @@ -145,7 +145,7 @@ Valid symbols are `truncation', `wrap', `escape', `control', | |||
| 145 | "Display character C as character SC in the g1 character set. | 145 | "Display character C as character SC in the g1 character set. |
| 146 | This function assumes that your terminal uses the SO/SI characters; | 146 | This function assumes that your terminal uses the SO/SI characters; |
| 147 | it is meaningless for an X frame." | 147 | it is meaningless for an X frame." |
| 148 | (if (memq window-system '(x w32)) | 148 | (if (memq window-system '(x w32 mac)) |
| 149 | (error "Cannot use string glyphs in a windowing system")) | 149 | (error "Cannot use string glyphs in a windowing system")) |
| 150 | (or standard-display-table | 150 | (or standard-display-table |
| 151 | (setq standard-display-table (make-display-table))) | 151 | (setq standard-display-table (make-display-table))) |
| @@ -157,7 +157,7 @@ it is meaningless for an X frame." | |||
| 157 | "Display character C as character GC in graphics character set. | 157 | "Display character C as character GC in graphics character set. |
| 158 | This function assumes VT100-compatible escapes; it is meaningless for an | 158 | This function assumes VT100-compatible escapes; it is meaningless for an |
| 159 | X frame." | 159 | X frame." |
| 160 | (if (memq window-system '(x w32)) | 160 | (if (memq window-system '(x w32 mac)) |
| 161 | (error "Cannot use string glyphs in a windowing system")) | 161 | (error "Cannot use string glyphs in a windowing system")) |
| 162 | (or standard-display-table | 162 | (or standard-display-table |
| 163 | (setq standard-display-table (make-display-table))) | 163 | (setq standard-display-table (make-display-table))) |
| @@ -217,7 +217,7 @@ for users who call this function in `.emacs'." | |||
| 217 | (equal (aref standard-display-table 161) [161]))) | 217 | (equal (aref standard-display-table 161) [161]))) |
| 218 | (progn | 218 | (progn |
| 219 | (standard-display-default 160 255) | 219 | (standard-display-default 160 255) |
| 220 | (unless (or (memq window-system '(x w32))) | 220 | (unless (or (memq window-system '(x w32 mac))) |
| 221 | (and (terminal-coding-system) | 221 | (and (terminal-coding-system) |
| 222 | (set-terminal-coding-system nil)))) | 222 | (set-terminal-coding-system nil)))) |
| 223 | 223 | ||