diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-13 19:05:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-13 19:05:54 +0000 |
| commit | 4e633bb8eb63e7d515a84ce25b3f204a9c1d249f (patch) | |
| tree | eb7c872afa975f9ec20ea93b2a4a59f692761de2 /lisp/disp-table.el | |
| parent | f4cf76d31fd3d20fd0bf48abce574c8ccd54fd09 (diff) | |
| download | emacs-4e633bb8eb63e7d515a84ce25b3f204a9c1d249f.tar.gz | |
(standard-display-european): Do something useful where AUTO is t or a symbol.
Diffstat (limited to 'lisp/disp-table.el')
| -rw-r--r-- | lisp/disp-table.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index cb9325fd771..19187b07628 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -211,7 +211,10 @@ AUTO also specifies, in this case, the coding system for terminal output." ;; Send those codes literally to a non-X terminal. ;; If AUTO is nil, we are using single-byte characters, ;; so it doesn't matter which one we use. - (set-terminal-coding-system (if auto (intern auto) 'latin-1))) + (set-terminal-coding-system + (cond ((eq auto t) 'latin-1) + ((symbolp auto) (or auto 'latin-1)) + ((stringp auto) (intern auto))))) ;; Make non-line-break space display as a plain space. ;; Most X fonts do the wrong thing for code 160. (aset standard-display-table 160 [32]) |