diff options
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/coding.c b/src/coding.c index f63d710ce9a..e4b52f6db48 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -9759,7 +9759,7 @@ DEFUN ("set-terminal-coding-system-internal", Fset_terminal_coding_system_intern | |||
| 9759 | doc: /* Internal use only. */) | 9759 | doc: /* Internal use only. */) |
| 9760 | (Lisp_Object coding_system, Lisp_Object terminal) | 9760 | (Lisp_Object coding_system, Lisp_Object terminal) |
| 9761 | { | 9761 | { |
| 9762 | struct terminal *term = get_terminal (terminal, 1); | 9762 | struct terminal *term = decode_live_terminal (terminal); |
| 9763 | struct coding_system *terminal_coding = TERMINAL_TERMINAL_CODING (term); | 9763 | struct coding_system *terminal_coding = TERMINAL_TERMINAL_CODING (term); |
| 9764 | CHECK_SYMBOL (coding_system); | 9764 | CHECK_SYMBOL (coding_system); |
| 9765 | setup_coding_system (Fcheck_coding_system (coding_system), terminal_coding); | 9765 | setup_coding_system (Fcheck_coding_system (coding_system), terminal_coding); |
| @@ -9800,7 +9800,7 @@ frame's terminal device. */) | |||
| 9800 | (Lisp_Object terminal) | 9800 | (Lisp_Object terminal) |
| 9801 | { | 9801 | { |
| 9802 | struct coding_system *terminal_coding | 9802 | struct coding_system *terminal_coding |
| 9803 | = TERMINAL_TERMINAL_CODING (get_terminal (terminal, 1)); | 9803 | = TERMINAL_TERMINAL_CODING (decode_live_terminal (terminal)); |
| 9804 | Lisp_Object coding_system = CODING_ID_NAME (terminal_coding->id); | 9804 | Lisp_Object coding_system = CODING_ID_NAME (terminal_coding->id); |
| 9805 | 9805 | ||
| 9806 | /* For backward compatibility, return nil if it is `undecided'. */ | 9806 | /* For backward compatibility, return nil if it is `undecided'. */ |
| @@ -9812,7 +9812,7 @@ DEFUN ("set-keyboard-coding-system-internal", Fset_keyboard_coding_system_intern | |||
| 9812 | doc: /* Internal use only. */) | 9812 | doc: /* Internal use only. */) |
| 9813 | (Lisp_Object coding_system, Lisp_Object terminal) | 9813 | (Lisp_Object coding_system, Lisp_Object terminal) |
| 9814 | { | 9814 | { |
| 9815 | struct terminal *t = get_terminal (terminal, 1); | 9815 | struct terminal *t = decode_live_terminal (terminal); |
| 9816 | CHECK_SYMBOL (coding_system); | 9816 | CHECK_SYMBOL (coding_system); |
| 9817 | if (NILP (coding_system)) | 9817 | if (NILP (coding_system)) |
| 9818 | coding_system = Qno_conversion; | 9818 | coding_system = Qno_conversion; |
| @@ -9831,7 +9831,7 @@ DEFUN ("keyboard-coding-system", | |||
| 9831 | (Lisp_Object terminal) | 9831 | (Lisp_Object terminal) |
| 9832 | { | 9832 | { |
| 9833 | return CODING_ID_NAME (TERMINAL_KEYBOARD_CODING | 9833 | return CODING_ID_NAME (TERMINAL_KEYBOARD_CODING |
| 9834 | (get_terminal (terminal, 1))->id); | 9834 | (decode_live_terminal (terminal))->id); |
| 9835 | } | 9835 | } |
| 9836 | 9836 | ||
| 9837 | 9837 | ||