Mercurial > emacs

comparison src/coding.c @ 19747:bed06df9cbc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 b228f82192d5
children 95e4e1cba6ac
comparison
equal deleted inserted replaced
19746:2ee3950b5a35 19747:bed06df9cbc5
2382 break; 2382 break;
2383 2383
2384 case 2: 2384 case 2:
2385 coding->type = coding_type_iso2022; 2385 coding->type = coding_type_iso2022;
2386 { 2386 {
2387 Lisp_Object val = XVECTOR (coding_system)->contents[4]; 2387 Lisp_Object val;
2388 Lisp_Object *flags; 2388 Lisp_Object *flags;
2389 int i, charset, default_reg_bits = 0; 2389 int i, charset, default_reg_bits = 0;
2390
2391 val = XVECTOR (coding_system)->contents[4];
2390 2392
2391 if (!VECTORP (val) || XVECTOR (val)->size != 32) 2393 if (!VECTORP (val) || XVECTOR (val)->size != 32)
2392 goto label_invalid_coding_system; 2394 goto label_invalid_coding_system;
2393 2395
2394 flags = XVECTOR (val)->contents; 2396 flags = XVECTOR (val)->contents;
3112 DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0, 3114 DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0,
3113 "Read a coding system or nil from the minibuffer, prompting with string PROMPT.") 3115 "Read a coding system or nil from the minibuffer, prompting with string PROMPT.")
3114 (prompt) 3116 (prompt)
3115 Lisp_Object prompt; 3117 Lisp_Object prompt;
3116 { 3118 {
3117 Lisp_Object val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p, 3119 Lisp_Object val;
3118 Qt, Qnil, Qnil, Qnil, Qnil); 3120 val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
3121 Qt, Qnil, Qnil, Qnil, Qnil);
3119 return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil)); 3122 return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil));
3120 } 3123 }
3121 3124
3122 DEFUN ("check-coding-system", Fcheck_coding_system, Scheck_coding_system, 3125 DEFUN ("check-coding-system", Fcheck_coding_system, Scheck_coding_system,
3123 1, 1, 0, 3126 1, 1, 0,
3159 { 3162 {
3160 val = Qundecided; 3163 val = Qundecided;
3161 if (eol_type != CODING_EOL_UNDECIDED 3164 if (eol_type != CODING_EOL_UNDECIDED
3162 && eol_type != CODING_EOL_INCONSISTENT) 3165 && eol_type != CODING_EOL_INCONSISTENT)
3163 { 3166 {
3164 Lisp_Object val2 = Fget (Qundecided, Qeol_type); 3167 Lisp_Object val2;
3168 val2 = Fget (Qundecided, Qeol_type);
3165 if (VECTORP (val2)) 3169 if (VECTORP (val2))
3166 val = XVECTOR (val2)->contents[eol_type]; 3170 val = XVECTOR (val2)->contents[eol_type];
3167 } 3171 }
3168 } 3172 }
3169 else 3173 else
3204 { 3208 {
3205 if (eol_type == CODING_EOL_UNDECIDED) 3209 if (eol_type == CODING_EOL_UNDECIDED)
3206 val = Fcons (XCONS (val2)->car, val); 3210 val = Fcons (XCONS (val2)->car, val);
3207 else 3211 else
3208 { 3212 {
3209 Lisp_Object val3 = Fget (XCONS (val2)->car, Qeol_type); 3213 Lisp_Object val3;
3214 val3 = Fget (XCONS (val2)->car, Qeol_type);
3210 if (VECTORP (val3)) 3215 if (VECTORP (val3))
3211 val = Fcons (XVECTOR (val3)->contents[eol_type], val); 3216 val = Fcons (XVECTOR (val3)->contents[eol_type], val);
3212 else 3217 else
3213 val = Fcons (XCONS (val2)->car, val); 3218 val = Fcons (XCONS (val2)->car, val);
3214 } 3219 }
3766 if (NILP (chain)) 3771 if (NILP (chain))
3767 return Qnil; 3772 return Qnil;
3768 3773
3769 for (; CONSP (chain); chain = XCONS (chain)->cdr) 3774 for (; CONSP (chain); chain = XCONS (chain)->cdr)
3770 { 3775 {
3771 Lisp_Object elt = XCONS (chain)->car; 3776 Lisp_Object elt;
3777 elt = XCONS (chain)->car;
3772 3778
3773 if (CONSP (elt) 3779 if (CONSP (elt)
3774 && ((STRINGP (target) 3780 && ((STRINGP (target)
3775 && STRINGP (XCONS (elt)->car) 3781 && STRINGP (XCONS (elt)->car)
3776 && fast_string_match (XCONS (elt)->car, target) >= 0) 3782 && fast_string_match (XCONS (elt)->car, target) >= 0)