comparison lisp/disp-table.el @ 19845:f03431d49548

(standard-display-european): If AUTO is non-nil, intern it. Don't call set-terminal-coding-system if noninteractive.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Sep 1997 09:16:54 +0000
parents 24d0221b94bc
children 6bd245888f10
comparison
equal deleted inserted replaced
19844:1e682aef0ce0 19845:f03431d49548
202 ;; If the user does this explicitly, 202 ;; If the user does this explicitly,
203 ;; turn off multibyte chars for more compatibility. 203 ;; turn off multibyte chars for more compatibility.
204 (or auto 204 (or auto
205 (setq-default enable-multibyte-characters nil)) 205 (setq-default enable-multibyte-characters nil))
206 (standard-display-8bit 160 255) 206 (standard-display-8bit 160 255)
207 (unless (eq window-system 'x) 207 (unless (or noninteractive (eq window-system 'x))
208 ;; Send those codes literally to a non-X terminal. 208 ;; Send those codes literally to a non-X terminal.
209 ;; If AUTO is nil, we are using single-byte characters, 209 ;; If AUTO is nil, we are using single-byte characters,
210 ;; so it doesn't matter which one we use. 210 ;; so it doesn't matter which one we use.
211 (set-terminal-coding-system (or auto 'latin-1))) 211 (set-terminal-coding-system (if auto (intern auto) 'latin-1)))
212 ;; Make non-line-break space display as a plain space. 212 ;; Make non-line-break space display as a plain space.
213 ;; Most X fonts do the wrong thing for code 160. 213 ;; Most X fonts do the wrong thing for code 160.
214 (aset standard-display-table 160 [32]) 214 (aset standard-display-table 160 [32])
215 ;; Most Windows programs send out apostrophe's as \222. Most X fonts 215 ;; Most Windows programs send out apostrophe's as \222. Most X fonts
216 ;; don't contain a character at that position. Map it to the ASCII 216 ;; don't contain a character at that position. Map it to the ASCII