diff options
| author | Richard M. Stallman | 1993-03-27 04:20:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-27 04:20:05 +0000 |
| commit | c34beca9541463bc8cc1aad6e4d295ef210fc81d (patch) | |
| tree | 43155695b71c8d2bf5d4d8dd8c28a16925bfe412 /src | |
| parent | 08159178ca75f2b6fb226988e1905849d7906f3a (diff) | |
| download | emacs-c34beca9541463bc8cc1aad6e4d295ef210fc81d.tar.gz emacs-c34beca9541463bc8cc1aad6e4d295ef210fc81d.zip | |
(Fchar_equal): Don't ignore high bits of character.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/editfns.c b/src/editfns.c index d936dc4cdb6..99365930c23 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -1416,7 +1416,8 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.") | |||
| 1416 | CHECK_NUMBER (c2, 1); | 1416 | CHECK_NUMBER (c2, 1); |
| 1417 | 1417 | ||
| 1418 | if (!NILP (current_buffer->case_fold_search) | 1418 | if (!NILP (current_buffer->case_fold_search) |
| 1419 | ? downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)] | 1419 | ? (downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)] |
| 1420 | && (XFASTINT (c1) & ~0xff) == (XFASTINT (c2) & ~0xff)) | ||
| 1420 | : XINT (c1) == XINT (c2)) | 1421 | : XINT (c1) == XINT (c2)) |
| 1421 | return Qt; | 1422 | return Qt; |
| 1422 | return Qnil; | 1423 | return Qnil; |