From bae72c12b51affc4dbe7284857af5be9cee83c81 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 19 Nov 2007 07:40:51 +0000 Subject: [PATCH] * 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. --- src/ChangeLog | 6 ++++++ src/coding.c | 4 ++-- 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 + + * 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 * 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; } -- 2.39.2