aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKenichi Handa2004-10-12 02:40:21 +0000
committerKenichi Handa2004-10-12 02:40:21 +0000
commitae6f73fa1ad8a3dbea69c36d6884e5c3796e8413 (patch)
tree7fbf311c4e5a1edd78984b90ad6041f79cd17e33 /src
parent57c99b0273be5f123adfdf609b8756166b79ed51 (diff)
downloademacs-ae6f73fa1ad8a3dbea69c36d6884e5c3796e8413.tar.gz
emacs-ae6f73fa1ad8a3dbea69c36d6884e5c3796e8413.zip
(setup_coding_system): If coding_system is nil, use
Qundecided. (Fterminal_coding_system): Return nil if terminal coding system is `undecided'. (syms_of_coding): Define coding-system `undecided' here. Setup terminal_coding as `undecided'.
Diffstat (limited to 'src')
-rw-r--r--src/coding.c23
1 files changed, 20 insertions, 3 deletions
diff --git a/src/coding.c b/src/coding.c
index bd7e219ac3f..02eeb5bed3e 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -4914,7 +4914,7 @@ setup_coding_system (coding_system, coding)
4914 Lisp_Object val; 4914 Lisp_Object val;
4915 4915
4916 if (NILP (coding_system)) 4916 if (NILP (coding_system))
4917 coding_system = Qno_conversion; 4917 coding_system = Qundecided;
4918 4918
4919 CHECK_CODING_SYSTEM_GET_ID (coding_system, coding->id); 4919 CHECK_CODING_SYSTEM_GET_ID (coding_system, coding->id);
4920 4920
@@ -8155,7 +8155,11 @@ DEFUN ("terminal-coding-system",
8155 doc: /* Return coding system specified for terminal output. */) 8155 doc: /* Return coding system specified for terminal output. */)
8156 () 8156 ()
8157{ 8157{
8158 return CODING_ID_NAME (terminal_coding.id); 8158 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);
8159} 8163}
8160 8164
8161DEFUN ("set-keyboard-coding-system-internal", 8165DEFUN ("set-keyboard-coding-system-internal",
@@ -9594,10 +9598,23 @@ character.");
9594 plist[15] = args[coding_arg_eol_type] = Qunix; 9598 plist[15] = args[coding_arg_eol_type] = Qunix;
9595 args[coding_arg_plist] = Flist (16, plist); 9599 args[coding_arg_plist] = Flist (16, plist);
9596 Fdefine_coding_system_internal (coding_arg_max, args); 9600 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);
9597 } 9614 }
9598 9615
9599 setup_coding_system (Qno_conversion, &keyboard_coding); 9616 setup_coding_system (Qno_conversion, &keyboard_coding);
9600 setup_coding_system (Qno_conversion, &terminal_coding); 9617 setup_coding_system (Qundecided, &terminal_coding);
9601 setup_coding_system (Qno_conversion, &safe_terminal_coding); 9618 setup_coding_system (Qno_conversion, &safe_terminal_coding);
9602 9619
9603 { 9620 {