aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorYAMAMOTO Mitsuharu2005-10-21 08:26:54 +0000
committerYAMAMOTO Mitsuharu2005-10-21 08:26:54 +0000
commit06b4a81bb402dac279a389ce8adae48db16b6db8 (patch)
treeb8aa81fb7875403e2581b765c4f86855b354201d
parent1505621c908eeaa166a7b4a19d0053a17c7f5d73 (diff)
downloademacs-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.el6
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.
146This function assumes that your terminal uses the SO/SI characters; 146This function assumes that your terminal uses the SO/SI characters;
147it is meaningless for an X frame." 147it 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.
158This function assumes VT100-compatible escapes; it is meaningless for an 158This function assumes VT100-compatible escapes; it is meaningless for an
159X frame." 159X 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