# HG changeset patch # User Richard M. Stallman # Date 874177554 0 # Node ID 1d832fd69760bfffbaba9da7ad37a8be739f0445 # Parent 5abc38e451951529658c05547fe88d331a7c135e (standard-display-european): Do something useful where AUTO is t or a symbol. diff -r 5abc38e45195 -r 1d832fd69760 lisp/disp-table.el --- a/lisp/disp-table.el Sat Sep 13 18:49:49 1997 +0000 +++ b/lisp/disp-table.el Sat Sep 13 19:05:54 1997 +0000 @@ -211,7 +211,10 @@ ;; 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])