Mercurial > emacs
comparison src/coding.c @ 88473:b47ee8b1ce03
(coding_inherit_eol_type)
(Fset_terminal_coding_system_internal)
(Fset_safe_terminal_coding_system_internal): Fix arg declarations.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 09 May 2002 17:59:31 +0000 |
| parents | ae455bb40718 |
| children | 5f974cbba7b3 |
comparison
equal
deleted
inserted
replaced
| 88472:7588f2b3779c | 88473:b47ee8b1ce03 |
|---|---|
| 4649 does, return one of the subsidiary that has the same eol-spec as | 4649 does, return one of the subsidiary that has the same eol-spec as |
| 4650 PARENT. Otherwise, return CODING_SYSTEM. */ | 4650 PARENT. Otherwise, return CODING_SYSTEM. */ |
| 4651 | 4651 |
| 4652 Lisp_Object | 4652 Lisp_Object |
| 4653 coding_inherit_eol_type (coding_system, parent) | 4653 coding_inherit_eol_type (coding_system, parent) |
| 4654 Lisp_Object coding_system, parent; | |
| 4654 { | 4655 { |
| 4655 Lisp_Object spec, attrs, eol_type; | 4656 Lisp_Object spec, attrs, eol_type; |
| 4656 | 4657 |
| 4657 spec = CODING_SYSTEM_SPEC (coding_system); | 4658 spec = CODING_SYSTEM_SPEC (coding_system); |
| 4658 attrs = AREF (spec, 0); | 4659 attrs = AREF (spec, 0); |
| 6938 DEFUN ("set-terminal-coding-system-internal", | 6939 DEFUN ("set-terminal-coding-system-internal", |
| 6939 Fset_terminal_coding_system_internal, | 6940 Fset_terminal_coding_system_internal, |
| 6940 Sset_terminal_coding_system_internal, 1, 1, 0, | 6941 Sset_terminal_coding_system_internal, 1, 1, 0, |
| 6941 doc: /* Internal use only. */) | 6942 doc: /* Internal use only. */) |
| 6942 (coding_system) | 6943 (coding_system) |
| 6944 Lisp_Object coding_system; | |
| 6943 { | 6945 { |
| 6944 CHECK_SYMBOL (coding_system); | 6946 CHECK_SYMBOL (coding_system); |
| 6945 setup_coding_system (Fcheck_coding_system (coding_system), | 6947 setup_coding_system (Fcheck_coding_system (coding_system), |
| 6946 &terminal_coding); | 6948 &terminal_coding); |
| 6947 | 6949 |
| 6957 DEFUN ("set-safe-terminal-coding-system-internal", | 6959 DEFUN ("set-safe-terminal-coding-system-internal", |
| 6958 Fset_safe_terminal_coding_system_internal, | 6960 Fset_safe_terminal_coding_system_internal, |
| 6959 Sset_safe_terminal_coding_system_internal, 1, 1, 0, | 6961 Sset_safe_terminal_coding_system_internal, 1, 1, 0, |
| 6960 doc: /* Internal use only. */) | 6962 doc: /* Internal use only. */) |
| 6961 (coding_system) | 6963 (coding_system) |
| 6964 Lisp_Object coding_system; | |
| 6962 { | 6965 { |
| 6963 CHECK_SYMBOL (coding_system); | 6966 CHECK_SYMBOL (coding_system); |
| 6964 setup_coding_system (Fcheck_coding_system (coding_system), | 6967 setup_coding_system (Fcheck_coding_system (coding_system), |
| 6965 &safe_terminal_coding); | 6968 &safe_terminal_coding); |
| 6966 /* Characer composition should be disabled. */ | 6969 /* Characer composition should be disabled. */ |