diff options
| author | Paul Eggert | 2011-03-15 14:14:06 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-03-15 14:14:06 -0700 |
| commit | 5da9919f99ebacbc511113134ef8f687a562d5b8 (patch) | |
| tree | 93ca25d179a3ad53796e4132fc98c06ecb704a91 /src/editfns.c | |
| parent | b313f9d86378db4dd4619923572b07513c53ceac (diff) | |
| download | emacs-5da9919f99ebacbc511113134ef8f687a562d5b8.tar.gz emacs-5da9919f99ebacbc511113134ef8f687a562d5b8.zip | |
Use functions, not macros, for up- and down-casing.
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/editfns.c b/src/editfns.c index d92d3482d09..59cf269ef7b 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -1374,7 +1374,7 @@ name, or nil if there is no such user. */) | |||
| 1374 | memcpy (r, p, q - p); | 1374 | memcpy (r, p, q - p); |
| 1375 | r[q - p] = 0; | 1375 | r[q - p] = 0; |
| 1376 | strcat (r, SSDATA (login)); | 1376 | strcat (r, SSDATA (login)); |
| 1377 | r[q - p] = UPCASE ((unsigned char) r[q - p]); | 1377 | r[q - p] = upcase ((unsigned char) r[q - p]); |
| 1378 | strcat (r, q + 1); | 1378 | strcat (r, q + 1); |
| 1379 | full = build_string (r); | 1379 | full = build_string (r); |
| 1380 | } | 1380 | } |
| @@ -4213,7 +4213,7 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer. */) | |||
| 4213 | { | 4213 | { |
| 4214 | int i1, i2; | 4214 | int i1, i2; |
| 4215 | /* Check they're chars, not just integers, otherwise we could get array | 4215 | /* Check they're chars, not just integers, otherwise we could get array |
| 4216 | bounds violations in DOWNCASE. */ | 4216 | bounds violations in downcase. */ |
| 4217 | CHECK_CHARACTER (c1); | 4217 | CHECK_CHARACTER (c1); |
| 4218 | CHECK_CHARACTER (c2); | 4218 | CHECK_CHARACTER (c2); |
| 4219 | 4219 | ||
| @@ -4224,7 +4224,7 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer. */) | |||
| 4224 | 4224 | ||
| 4225 | /* Do these in separate statements, | 4225 | /* Do these in separate statements, |
| 4226 | then compare the variables. | 4226 | then compare the variables. |
| 4227 | because of the way DOWNCASE uses temp variables. */ | 4227 | because of the way downcase uses temp variables. */ |
| 4228 | i1 = XFASTINT (c1); | 4228 | i1 = XFASTINT (c1); |
| 4229 | if (NILP (BVAR (current_buffer, enable_multibyte_characters)) | 4229 | if (NILP (BVAR (current_buffer, enable_multibyte_characters)) |
| 4230 | && ! ASCII_CHAR_P (i1)) | 4230 | && ! ASCII_CHAR_P (i1)) |
| @@ -4237,8 +4237,8 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer. */) | |||
| 4237 | { | 4237 | { |
| 4238 | MAKE_CHAR_MULTIBYTE (i2); | 4238 | MAKE_CHAR_MULTIBYTE (i2); |
| 4239 | } | 4239 | } |
| 4240 | i1 = DOWNCASE (i1); | 4240 | i1 = downcase (i1); |
| 4241 | i2 = DOWNCASE (i2); | 4241 | i2 = downcase (i2); |
| 4242 | return (i1 == i2 ? Qt : Qnil); | 4242 | return (i1 == i2 ? Qt : Qnil); |
| 4243 | } | 4243 | } |
| 4244 | 4244 | ||