aboutsummaryrefslogtreecommitdiffstats
path: root/src/coding.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/coding.c')
-rw-r--r--src/coding.c8
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