procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(setup_coding_system, Ffind_operation_coding_system)

Browse source 
(Fdetect_coding_region, Fread_coding_system):
Don't initialize a Lisp_Object.
This commit is contained in:
Richard M. Stallman 1997-09-04 04:55:52 +00:00
parent dc7619af35
commit f44d27ceec
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/coding.c
View file

@ -2384,10 +2384,12 @@ setup_coding_system (coding_system, coding)
case 2:
coding->type = coding_type_iso2022;
{
Lisp_Object val = XVECTOR (coding_system)->contents[4];
Lisp_Object val;
Lisp_Object *flags;
int i, charset, default_reg_bits = 0;
val = XVECTOR (coding_system)->contents[4];
if (!VECTORP (val) || XVECTOR (val)->size != 32)
goto label_invalid_coding_system;
@ -3114,8 +3116,9 @@ DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0,
(prompt)
Lisp_Object prompt;
{
Lisp_Object val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
Qt, Qnil, Qnil, Qnil, Qnil);
Lisp_Object val;
val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
Qt, Qnil, Qnil, Qnil, Qnil);
return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil));
}
@ -3161,7 +3164,8 @@ If only ASCII characters are found, it returns `undecided'\n\
if (eol_type != CODING_EOL_UNDECIDED
&& eol_type != CODING_EOL_INCONSISTENT)
{
Lisp_Object val2 = Fget (Qundecided, Qeol_type);
Lisp_Object val2;
val2 = Fget (Qundecided, Qeol_type);
if (VECTORP (val2))
val = XVECTOR (val2)->contents[eol_type];
}
@ -3206,7 +3210,8 @@ If only ASCII characters are found, it returns `undecided'\n\
val = Fcons (XCONS (val2)->car, val);
else
{
Lisp_Object val3 = Fget (XCONS (val2)->car, Qeol_type);
Lisp_Object val3;
val3 = Fget (XCONS (val2)->car, Qeol_type);
if (VECTORP (val3))
val = Fcons (XVECTOR (val3)->contents[eol_type], val);
else
@ -3768,7 +3773,8 @@ which is a list of all the arguments given to this function.")
for (; CONSP (chain); chain = XCONS (chain)->cdr)
{
Lisp_Object elt = XCONS (chain)->car;
Lisp_Object elt;
elt = XCONS (chain)->car;
if (CONSP (elt)
&& ((STRINGP (target)