diff options
| author | Kenichi Handa | 2002-08-20 07:56:43 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2002-08-20 07:56:43 +0000 |
| commit | e5112ecb727f84e7b06b417d7d9708fc9a722d2b (patch) | |
| tree | e67027742a0e3b425a26637181f3b53dca7bd839 /src/editfns.c | |
| parent | 6d2b9b27d80425adca59b7a79805e4d0aa204100 (diff) | |
| download | emacs-e5112ecb727f84e7b06b417d7d9708fc9a722d2b.tar.gz emacs-e5112ecb727f84e7b06b417d7d9708fc9a722d2b.zip | |
(Fchar_equal): Fix for the unibyte case.
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/src/editfns.c b/src/editfns.c index df23170df28..f758484ed08 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -3603,8 +3603,20 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer. */) | |||
| 3603 | /* Do these in separate statements, | 3603 | /* Do these in separate statements, |
| 3604 | then compare the variables. | 3604 | then compare the variables. |
| 3605 | because of the way DOWNCASE uses temp variables. */ | 3605 | because of the way DOWNCASE uses temp variables. */ |
| 3606 | i1 = DOWNCASE (XFASTINT (c1)); | 3606 | i1 = XFASTINT (c1); |
| 3607 | i2 = DOWNCASE (XFASTINT (c2)); | 3607 | if (NILP (current_buffer->enable_multibyte_characters) |
| 3608 | && ! ASCII_CHAR_P (i1)) | ||
| 3609 | { | ||
| 3610 | MAKE_CHAR_MULTIBYTE (i1); | ||
| 3611 | } | ||
| 3612 | i2 = XFASTINT (c2); | ||
| 3613 | if (NILP (current_buffer->enable_multibyte_characters) | ||
| 3614 | && ! ASCII_CHAR_P (i2)) | ||
| 3615 | { | ||
| 3616 | MAKE_CHAR_MULTIBYTE (i2); | ||
| 3617 | } | ||
| 3618 | i1 = DOWNCASE (i1); | ||
| 3619 | i2 = DOWNCASE (i2); | ||
| 3608 | return (i1 == i2 ? Qt : Qnil); | 3620 | return (i1 == i2 ? Qt : Qnil); |
| 3609 | } | 3621 | } |
| 3610 | 3622 | ||