diff options
| author | Stefan Monnier | 2007-11-19 07:40:51 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-11-19 07:40:51 +0000 |
| commit | bae72c12b51affc4dbe7284857af5be9cee83c81 (patch) | |
| tree | 4bed3bc3b034247b565655d100699374c54ca170 | |
| parent | cc6546c9c751c3556db59022e0caddbd4a91d22a (diff) | |
| download | emacs-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/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 @@ | |||
| 1 | 2007-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 | |||
| 1 | 2007-11-18 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> | 7 | 2007-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]) |
| @@ -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 | } |