procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* coding.c (detect_coding, Fupdate_coding_systems_internal):

Browse source 
* fns.c (Fmd5): Use find_symbol_value rather than SYMBOL_VALUE
Since we do not want to see internal Lisp_*fwd objects here.
This commit is contained in:
Stefan Monnier 2007-11-19 07:40:51 +00:00
parent cc6546c9c7
commit bae72c12b5
3 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ChangeLog
View file

@ -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.

4
src/coding.c
View file

@ -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])

2
src/fns.c
View file

@ -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;
}