diff options
| author | Kenichi Handa | 2004-10-12 02:40:21 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2004-10-12 02:40:21 +0000 |
| commit | ae6f73fa1ad8a3dbea69c36d6884e5c3796e8413 (patch) | |
| tree | 7fbf311c4e5a1edd78984b90ad6041f79cd17e33 /src | |
| parent | 57c99b0273be5f123adfdf609b8756166b79ed51 (diff) | |
| download | emacs-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.c | 23 |
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 | ||
| 8161 | DEFUN ("set-keyboard-coding-system-internal", | 8165 | DEFUN ("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 | { |