Mercurial > emacs
changeset 19747:bed06df9cbc5
(setup_coding_system, Ffind_operation_coding_system)
(Fdetect_coding_region, Fread_coding_system):
Don't initialize a Lisp_Object.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Sep 1997 04:55:52 +0000 |
| parents | 2ee3950b5a35 |
| children | 06cbad2e806a |
| files | src/coding.c |
| diffstat | 1 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/coding.c Thu Sep 04 04:49:53 1997 +0000 +++ b/src/coding.c Thu Sep 04 04:55:52 1997 +0000 @@ -2384,10 +2384,12 @@ 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 @@ (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 (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 @@ 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 @@ 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)