Mercurial > emacs
comparison src/coding.c @ 86228:8e5b337fea59
* coding.c (detect_coding, Fupdate_coding_systems_internal):
* fns.c (Fmd5): Use find_symbol_value rather than SYMBOL_VALUE
Since we do not want to see internal Lisp_*fwd objects here.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 19 Nov 2007 07:40:51 +0000 |
| parents | bb808ca35bd9 |
| children | 107ccd98fa12 |
comparison
equal
deleted
inserted
replaced
| 86227:5931e03fc5d5 | 86228:8e5b337fea59 |
|---|---|
| 4302 idx = 0; | 4302 idx = 0; |
| 4303 while (mask && ! (mask & 1)) mask >>= 1, idx++; | 4303 while (mask && ! (mask & 1)) mask >>= 1, idx++; |
| 4304 if (! mask) | 4304 if (! mask) |
| 4305 idx = CODING_CATEGORY_IDX_RAW_TEXT; | 4305 idx = CODING_CATEGORY_IDX_RAW_TEXT; |
| 4306 | 4306 |
| 4307 val = SYMBOL_VALUE (XVECTOR (Vcoding_category_table)->contents[idx]); | 4307 val = find_symbol_value (XVECTOR (Vcoding_category_table)->contents[idx]); |
| 4308 | 4308 |
| 4309 if (coding->eol_type != CODING_EOL_UNDECIDED) | 4309 if (coding->eol_type != CODING_EOL_UNDECIDED) |
| 4310 { | 4310 { |
| 4311 Lisp_Object tmp; | 4311 Lisp_Object tmp; |
| 4312 | 4312 |
| 7580 | 7580 |
| 7581 for (i = CODING_CATEGORY_IDX_EMACS_MULE; i < CODING_CATEGORY_IDX_MAX; i++) | 7581 for (i = CODING_CATEGORY_IDX_EMACS_MULE; i < CODING_CATEGORY_IDX_MAX; i++) |
| 7582 { | 7582 { |
| 7583 Lisp_Object val; | 7583 Lisp_Object val; |
| 7584 | 7584 |
| 7585 val = SYMBOL_VALUE (XVECTOR (Vcoding_category_table)->contents[i]); | 7585 val = find_symbol_value (XVECTOR (Vcoding_category_table)->contents[i]); |
| 7586 if (!NILP (val)) | 7586 if (!NILP (val)) |
| 7587 { | 7587 { |
| 7588 if (! coding_system_table[i]) | 7588 if (! coding_system_table[i]) |
| 7589 coding_system_table[i] = ((struct coding_system *) | 7589 coding_system_table[i] = ((struct coding_system *) |
| 7590 xmalloc (sizeof (struct coding_system))); | 7590 xmalloc (sizeof (struct coding_system))); |