Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ef4ced28
Commit
ef4ced28
authored
Jul 26, 1999
by
Kenichi Handa
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(setup_coding_system): Get compiled CCL code by just
calling setup_coding_system.
parent
5232fa7b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
15 deletions
+5
-15
src/coding.c
src/coding.c
+5
-15
No files found.
src/coding.c
View file @
ef4ced28
...
...
@@ -3165,22 +3165,12 @@ setup_coding_system (coding_system, coding)
coding
->
common_flags
|=
CODING_REQUIRE_DECODING_MASK
|
CODING_REQUIRE_ENCODING_MASK
;
{
Lisp_Object
val
;
Lisp_Object
decoder
,
encoder
;
val
=
XVECTOR
(
coding_spec
)
->
contents
[
4
];
if
(
CONSP
(
val
)
&&
SYMBOLP
(
XCONS
(
val
)
->
car
)
&&
!
NILP
(
decoder
=
Fget
(
XCONS
(
val
)
->
car
,
Qccl_program_idx
))
&&
!
NILP
(
decoder
=
Fcdr
(
Faref
(
Vccl_program_table
,
decoder
)))
&&
SYMBOLP
(
XCONS
(
val
)
->
cdr
)
&&
!
NILP
(
encoder
=
Fget
(
XCONS
(
val
)
->
cdr
,
Qccl_program_idx
))
&&
!
NILP
(
encoder
=
Fcdr
(
Faref
(
Vccl_program_table
,
encoder
))))
{
setup_ccl_program
(
&
(
coding
->
spec
.
ccl
.
decoder
),
decoder
);
setup_ccl_program
(
&
(
coding
->
spec
.
ccl
.
encoder
),
encoder
);
}
else
if
(
!
CONSP
(
val
)
||
setup_ccl_program
(
&
(
coding
->
spec
.
ccl
.
decoder
),
XCONS
(
val
)
->
car
)
<
0
||
setup_ccl_program
(
&
(
coding
->
spec
.
ccl
.
encoder
),
XCONS
(
val
)
->
cdr
)
<
0
)
goto
label_invalid_coding_system
;
bzero
(
coding
->
spec
.
ccl
.
valid_codes
,
256
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment