4914 |
Lisp_Object val; |
Lisp_Object val; |
4915 |
|
|
4916 |
if (NILP (coding_system)) |
if (NILP (coding_system)) |
4917 |
coding_system = Qno_conversion; |
coding_system = Qundecided; |
4918 |
|
|
4919 |
CHECK_CODING_SYSTEM_GET_ID (coding_system, coding->id); |
CHECK_CODING_SYSTEM_GET_ID (coding_system, coding->id); |
4920 |
|
|
8155 |
doc: /* Return coding system specified for terminal output. */) |
doc: /* Return coding system specified for terminal output. */) |
8156 |
() |
() |
8157 |
{ |
{ |
8158 |
return CODING_ID_NAME (terminal_coding.id); |
Lisp_Object coding_system; |
8159 |
|
|
8160 |
|
coding_system = CODING_ID_NAME (terminal_coding.id); |
8161 |
|
/* For backward compatibility, return nil if it is `undecided'. */ |
8162 |
|
return (coding_system != Qundecided ? coding_system : Qnil); |
8163 |
} |
} |
8164 |
|
|
8165 |
DEFUN ("set-keyboard-coding-system-internal", |
DEFUN ("set-keyboard-coding-system-internal", |
9598 |
plist[15] = args[coding_arg_eol_type] = Qunix; |
plist[15] = args[coding_arg_eol_type] = Qunix; |
9599 |
args[coding_arg_plist] = Flist (16, plist); |
args[coding_arg_plist] = Flist (16, plist); |
9600 |
Fdefine_coding_system_internal (coding_arg_max, args); |
Fdefine_coding_system_internal (coding_arg_max, args); |
9601 |
|
|
9602 |
|
plist[1] = args[coding_arg_name] = Qundecided; |
9603 |
|
plist[3] = args[coding_arg_mnemonic] = make_number ('-'); |
9604 |
|
plist[5] = args[coding_arg_coding_type] = Qundecided; |
9605 |
|
/* This is already set. |
9606 |
|
/*plist[7] = args[coding_arg_ascii_compatible_p] = Qt;*/ |
9607 |
|
plist[8] = intern (":charset-list"); |
9608 |
|
plist[9] = args[coding_arg_charset_list] = Fcons (Qascii, Qnil); |
9609 |
|
plist[11] = args[coding_arg_for_unibyte] = Qnil; |
9610 |
|
plist[13] = build_string ("No conversion on encoding, automatic conversion on decoding."); |
9611 |
|
plist[15] = args[coding_arg_eol_type] = Qnil; |
9612 |
|
args[coding_arg_plist] = Flist (16, plist); |
9613 |
|
Fdefine_coding_system_internal (coding_arg_max, args); |
9614 |
} |
} |
9615 |
|
|
9616 |
setup_coding_system (Qno_conversion, &keyboard_coding); |
setup_coding_system (Qno_conversion, &keyboard_coding); |
9617 |
setup_coding_system (Qno_conversion, &terminal_coding); |
setup_coding_system (Qundecided, &terminal_coding); |
9618 |
setup_coding_system (Qno_conversion, &safe_terminal_coding); |
setup_coding_system (Qno_conversion, &safe_terminal_coding); |
9619 |
|
|
9620 |
{ |
{ |