diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-11-19 07:40:51 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-11-19 07:40:51 +0000 |
| commit | bae72c12b51affc4dbe7284857af5be9cee83c81 (patch) | |
| tree | 4bed3bc3b034247b565655d100699374c54ca170 /src | |
| parent | cc6546c9c751c3556db59022e0caddbd4a91d22a (diff) | |
| download | emacs-bae72c12b51affc4dbe7284857af5be9cee83c81.tar.gz emacs-bae72c12b51affc4dbe7284857af5be9cee83c81.tar.bz2 emacs-bae72c12b51affc4dbe7284857af5be9cee83c81.zip | |
* 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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 6 | ||||
| -rw-r--r-- | src/coding.c | 4 | ||||
| -rw-r--r-- | src/fns.c | 2 |
3 files changed, 9 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index cf1c42f73c9..d05ccc44b3d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2007-11-19 Stefan Monnier <monnier@iro.umontreal.ca> + + * 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. + 2007-11-18 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> * sysdep.c (init_system_name): Use getaddrinfo if available. diff --git a/src/coding.c b/src/coding.c index da6049cafbd..331b94e30a6 100644 --- a/src/coding.c +++ b/src/coding.c @@ -4304,7 +4304,7 @@ detect_coding (coding, src, src_bytes) if (! mask) idx = CODING_CATEGORY_IDX_RAW_TEXT; - val = SYMBOL_VALUE (XVECTOR (Vcoding_category_table)->contents[idx]); + val = find_symbol_value (XVECTOR (Vcoding_category_table)->contents[idx]); if (coding->eol_type != CODING_EOL_UNDECIDED) { @@ -7582,7 +7582,7 @@ call this function. */) { Lisp_Object val; - val = SYMBOL_VALUE (XVECTOR (Vcoding_category_table)->contents[i]); + val = find_symbol_value (XVECTOR (Vcoding_category_table)->contents[i]); if (!NILP (val)) { if (! coding_system_table[i]) diff --git a/src/fns.c b/src/fns.c index 7ec0056332a..618ccb5025f 100644 --- a/src/fns.c +++ b/src/fns.c @@ -5559,7 +5559,7 @@ guesswork fails. Normally, an error is signaled in such case. */) if (STRING_MULTIBYTE (object)) /* use default, we can't guess correct value */ - coding_system = SYMBOL_VALUE (XCAR (Vcoding_category_list)); + coding_system = find_symbol_value (XCAR (Vcoding_category_list)); else coding_system = Qraw_text; } |