aboutsummaryrefslogtreecommitdiffstats
path: root/src/casefiddle.c
diff options
context:
space:
mode:
authorKaroly Lorentey2004-11-06 17:52:02 +0000
committerKaroly Lorentey2004-11-06 17:52:02 +0000
commit65ea79492334e2ef7b5b4e0d23b6f68ba2f4d0bb (patch)
tree853cf391ca1abda4f4ccd6fe8e7bb43f7c86ee08 /src/casefiddle.c
parente0bc17abe6979d607e8de4684dddb96e53c60065 (diff)
parent392cf16dd0ee9358f8af0cd0d8048b822456bbeb (diff)
downloademacs-65ea79492334e2ef7b5b4e0d23b6f68ba2f4d0bb.tar.gz
emacs-65ea79492334e2ef7b5b4e0d23b6f68ba2f4d0bb.zip
Merged in changes from CVS trunk.
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-653 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-654 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-655 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-656 Update from CVS: lisp/man.el (Man-xref-normal-file): Fix help-echo. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-657 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-658 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-659 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-660 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-661 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-662 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-663 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-664 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-665 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-666 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-667 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-668 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-669 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-670 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-671 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-64 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-65 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-66 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-67 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-68 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-264
Diffstat (limited to 'src/casefiddle.c')
-rw-r--r--src/casefiddle.c23
1 files changed, 11 insertions, 12 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c
index 51fc6444f49..ae4888088bd 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -235,6 +235,10 @@ casify_region (flag, b, e)
235 else if (!UPPERCASEP (c) 235 else if (!UPPERCASEP (c)
236 && (!inword || flag != CASE_CAPITALIZE_UP)) 236 && (!inword || flag != CASE_CAPITALIZE_UP))
237 c = UPCASE1 (c); 237 c = UPCASE1 (c);
238 if (multibyte && c >= 0x80)
239 /* A multibyte result character can't be handled in this
240 simple loop. */
241 break;
238 FETCH_BYTE (i) = c; 242 FETCH_BYTE (i) = c;
239 if (c != c2) 243 if (c != c2)
240 changed = 1; 244 changed = 1;
@@ -272,22 +276,17 @@ casify_region (flag, b, e)
272 tolen = CHAR_STRING (c2, str), 276 tolen = CHAR_STRING (c2, str),
273 fromlen == tolen) 277 fromlen == tolen)
274 { 278 {
279 /* Length is unchanged. */
275 for (j = 0; j < tolen; ++j) 280 for (j = 0; j < tolen; ++j)
276 FETCH_BYTE (i + j) = str[j]; 281 FETCH_BYTE (i + j) = str[j];
277 } 282 }
278 else 283 else
279 { 284 /* Replace one character with the other,
280 error ("Can't casify letters that change length"); 285 keeping text properties the same. */
281#if 0 /* This is approximately what we'd like to be able to do here */ 286 replace_range_2 (start + 1, i + tolen,
282 if (tolen < fromlen) 287 start + 2, i + tolen + fromlen,
283 del_range_1 (i + tolen, i + fromlen, 0, 0); 288 str, 1, tolen,
284 else if (tolen > fromlen) 289 0);
285 {
286 TEMP_SET_PT (i + fromlen);
287 insert_1 (str + fromlen, tolen - fromlen, 1, 0, 0);
288 }
289#endif
290 }
291 } 290 }
292 if ((int) flag >= (int) CASE_CAPITALIZE) 291 if ((int) flag >= (int) CASE_CAPITALIZE)
293 inword = SYNTAX (c2) == Sword; 292 inword = SYNTAX (c2) == Sword;