aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2007-11-19 07:40:51 +0000
committerStefan Monnier2007-11-19 07:40:51 +0000
commitbae72c12b51affc4dbe7284857af5be9cee83c81 (patch)
tree4bed3bc3b034247b565655d100699374c54ca170
parentcc6546c9c751c3556db59022e0caddbd4a91d22a (diff)
downloademacs-bae72c12b51affc4dbe7284857af5be9cee83c81.tar.gz
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.
-rw-r--r--src/ChangeLog6
-rw-r--r--src/coding.c4
-rw-r--r--src/fns.c2
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 @@
12007-11-19 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * coding.c (detect_coding, Fupdate_coding_systems_internal):
4 * fns.c (Fmd5): Use find_symbol_value rather than SYMBOL_VALUE
5 Since we do not want to see internal Lisp_*fwd objects here.
6
12007-11-18 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> 72007-11-18 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
2 8
3 * sysdep.c (init_system_name): Use getaddrinfo if available. 9 * 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)
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 {
@@ -7582,7 +7582,7 @@ call this function. */)
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])
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. */)
5559 5559
5560 if (STRING_MULTIBYTE (object)) 5560 if (STRING_MULTIBYTE (object))
5561 /* use default, we can't guess correct value */ 5561 /* use default, we can't guess correct value */
5562 coding_system = SYMBOL_VALUE (XCAR (Vcoding_category_list)); 5562 coding_system = find_symbol_value (XCAR (Vcoding_category_list));
5563 else 5563 else
5564 coding_system = Qraw_text; 5564 coding_system = Qraw_text;
5565 } 5565 }