Mercurial > emacs
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 |