annotate src/casefiddle.c @ 111402:435e622dd41e

Refer to set-coding-system-priority instead of the obsolete set-coding-priority in the doc string.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Thu, 04 Nov 2010 23:37:06 +0100
parents f28cc7ff91f9
children 417b1e4d63cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* GNU Emacs case conversion functions.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
2 Copyright (C) 1985, 1994, 1997, 1998, 1999, 2001, 2002, 2003, 2004,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106185
diff changeset
3 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5 This file is part of GNU Emacs.
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93509
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93509
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93509
diff changeset
10 (at your option) any later version.
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 GNU General Public License for more details.
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93509
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 2822
diff changeset
21 #include <config.h>
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105661
diff changeset
22 #include <setjmp.h>
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 #include "lisp.h"
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 #include "buffer.h"
88351
aac41b50c875 Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 40656
diff changeset
25 #include "character.h"
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #include "commands.h"
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #include "syntax.h"
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
28 #include "composite.h"
39748
42b7a798ff79 Include keymap.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34969
diff changeset
29 #include "keymap.h"
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 enum case_action {CASE_UP, CASE_DOWN, CASE_CAPITALIZE, CASE_CAPITALIZE_UP};
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
32
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
33 Lisp_Object Qidentity;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 Lisp_Object
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 106815
diff changeset
36 casify_object (enum case_action flag, Lisp_Object obj)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 {
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
38 register int c, c1;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 register int inword = flag == CASE_DOWN;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
15170
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
41 /* If the case table is flagged as modified, rescan it. */
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
42 if (NILP (XCHAR_TABLE (current_buffer->downcase_table)->extras[1]))
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
43 Fset_case_table (current_buffer->downcase_table);
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
44
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
45 if (INTEGERP (obj))
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 {
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
47 int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
48 | CHAR_SHIFT | CHAR_CTL | CHAR_META);
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
49 int flags = XINT (obj) & flagbits;
90534
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
50 int multibyte = ! NILP (current_buffer->enable_multibyte_characters);
22506
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
51
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
52 /* If the character has higher bits set
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
53 above the flags, return it unchanged.
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
54 It is not a real character. */
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
55 if ((unsigned) XFASTINT (obj) > (unsigned) flagbits)
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
56 return obj;
55743
4f33fa491183 (casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
57
90534
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
58 c1 = XFASTINT (obj) & ~flagbits;
95328
44c693827736 (casify_object): Try to guess better whether the argument is a byte or a char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
59 /* FIXME: Even if enable-multibyte-characters is nil, we may
44c693827736 (casify_object): Try to guess better whether the argument is a byte or a char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
60 manipulate multibyte chars. This means we have a bug for latin-1
44c693827736 (casify_object): Try to guess better whether the argument is a byte or a char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
61 chars since when we receive an int 128-255 we can't tell whether
44c693827736 (casify_object): Try to guess better whether the argument is a byte or a char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
62 it's an eight-bit byte or a latin-1 char. */
44c693827736 (casify_object): Try to guess better whether the argument is a byte or a char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
63 if (c1 >= 256)
44c693827736 (casify_object): Try to guess better whether the argument is a byte or a char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94963
diff changeset
64 multibyte = 1;
90534
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
65 if (! multibyte)
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
66 MAKE_CHAR_MULTIBYTE (c1);
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
67 c = DOWNCASE (c1);
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
68 if (inword)
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
69 XSETFASTINT (obj, c | flags);
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
70 else if (c == (XFASTINT (obj) & ~flagbits))
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
71 {
90534
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
72 if (! inword)
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
73 c = UPCASE1 (c1);
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
74 if (! multibyte)
90534
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
75 MAKE_CHAR_UNIBYTE (c);
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
76 XSETFASTINT (obj, c | flags);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 }
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
78 return obj;
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
79 }
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
80
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
81 if (!STRINGP (obj))
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
82 wrong_type_argument (Qchar_or_string_p, obj);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
83 else if (!STRING_MULTIBYTE (obj))
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
84 {
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
85 EMACS_INT i;
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
86 EMACS_INT size = SCHARS (obj);
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
87
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
88 obj = Fcopy_sequence (obj);
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
89 for (i = 0; i < size; i++)
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
90 {
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
91 c = SREF (obj, i);
105661
bac26aa40069 Remove leftover table unibyte_to_multibyte_table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100951
diff changeset
92 MAKE_CHAR_MULTIBYTE (c);
90534
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
93 c1 = c;
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
94 if (inword && flag != CASE_CAPITALIZE_UP)
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
95 c = DOWNCASE (c);
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
96 else if (!UPPERCASEP (c)
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
97 && (!inword || flag != CASE_CAPITALIZE_UP))
90534
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
98 c = UPCASE1 (c1);
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
99 if ((int) flag >= (int) CASE_CAPITALIZE)
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
100 inword = (SYNTAX (c) == Sword);
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
101 if (c != c1)
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
102 {
90534
2811bff46a36 (casify_object): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
103 MAKE_CHAR_UNIBYTE (c);
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
104 /* If the char can't be converted to a valid byte, just don't
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
105 change it. */
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
106 if (c >= 0 && c < 256)
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
107 SSET (obj, i, c);
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
108 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 }
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
110 return obj;
93509
367250b2af54 (casify_object): Fix up int/EMACS_INT mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93179
diff changeset
111 }
367250b2af54 (casify_object): Fix up int/EMACS_INT mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93179
diff changeset
112 else
367250b2af54 (casify_object): Fix up int/EMACS_INT mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93179
diff changeset
113 {
367250b2af54 (casify_object): Fix up int/EMACS_INT mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93179
diff changeset
114 EMACS_INT i, i_byte, size = SCHARS (obj);
367250b2af54 (casify_object): Fix up int/EMACS_INT mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93179
diff changeset
115 int len;
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
116 USE_SAFE_ALLOCA;
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
117 unsigned char *dst, *o;
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
118 /* Over-allocate by 12%: this is a minor overhead, but should be
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
119 sufficient in 99.999% of the cases to avoid a reallocation. */
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
120 EMACS_INT o_size = SBYTES (obj) + SBYTES (obj) / 8 + MAX_MULTIBYTE_LENGTH;
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
121 SAFE_ALLOCA (dst, void *, o_size);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
122 o = dst;
71827
5e4428007299 (casify_object): Remove loop around wrong_type_argument.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
123
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
124 for (i = i_byte = 0; i < size; i++, i_byte += len)
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
125 {
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
126 if ((o - dst) + MAX_MULTIBYTE_LENGTH > o_size)
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
127 { /* Not enough space for the next char: grow the destination. */
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
128 unsigned char *old_dst = dst;
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
129 o_size += o_size; /* Probably overkill, but extremely rare. */
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
130 SAFE_ALLOCA (dst, void *, o_size);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109126
diff changeset
131 memcpy (dst, old_dst, o - old_dst);
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
132 o = dst + (o - old_dst);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
133 }
106185
f2cea199b0c4 * character.h (STRING_CHAR, STRING_CHAR_AND_LENGTH): Remove
Andreas Schwab <schwab@linux-m68k.org>
parents: 105877
diff changeset
134 c = STRING_CHAR_AND_LENGTH (SDATA (obj) + i_byte, len);
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
135 if (inword && flag != CASE_CAPITALIZE_UP)
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
136 c = DOWNCASE (c);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
137 else if (!UPPERCASEP (c)
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
138 && (!inword || flag != CASE_CAPITALIZE_UP))
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
139 c = UPCASE1 (c);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
140 if ((int) flag >= (int) CASE_CAPITALIZE)
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
141 inword = (SYNTAX (c) == Sword);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
142 o += CHAR_STRING (c, o);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
143 }
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
144 eassert (o - dst <= o_size);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
145 obj = make_multibyte_string (dst, size, o - dst);
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
146 SAFE_FREE ();
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
147 return obj;
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
148 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 DEFUN ("upcase", Fupcase, Supcase, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
152 doc: /* Convert argument to upper case and return that.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
153 The argument may be a character or string. The result has the same type.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
154 The argument object is not altered--the value is a copy.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
155 See also `capitalize', `downcase' and `upcase-initials'. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
156 (Lisp_Object obj)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 return casify_object (CASE_UP, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 DEFUN ("downcase", Fdowncase, Sdowncase, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
162 doc: /* Convert argument to lower case and return that.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
163 The argument may be a character or string. The result has the same type.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
164 The argument object is not altered--the value is a copy. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
165 (Lisp_Object obj)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 return casify_object (CASE_DOWN, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 DEFUN ("capitalize", Fcapitalize, Scapitalize, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
171 doc: /* Convert argument to capitalized form and return that.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
172 This means that each word's first character is upper case
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
173 and the rest is lower case.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
174 The argument may be a character or string. The result has the same type.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
175 The argument object is not altered--the value is a copy. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
176 (Lisp_Object obj)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 return casify_object (CASE_CAPITALIZE, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 }
9052
6de22822cf72 (upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
180
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
181 /* Like Fcapitalize but change only the initials. */
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
182
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
183 DEFUN ("upcase-initials", Fupcase_initials, Supcase_initials, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
184 doc: /* Convert the initial of each word in the argument to upper case.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
185 Do not change the other letters of each word.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
186 The argument may be a character or string. The result has the same type.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
187 The argument object is not altered--the value is a copy. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
188 (Lisp_Object obj)
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
189 {
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
190 return casify_object (CASE_CAPITALIZE_UP, obj);
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
191 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 /* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP.
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 b and e specify range of buffer to operate on. */
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
196 void
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 106815
diff changeset
197 casify_region (enum case_action flag, Lisp_Object b, Lisp_Object e)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 register int c;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 register int inword = flag == CASE_DOWN;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
201 register int multibyte = !NILP (current_buffer->enable_multibyte_characters);
91803
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
202 EMACS_INT start, end;
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
203 EMACS_INT start_byte, end_byte;
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
204 EMACS_INT first = -1, last; /* Position of first and last changes. */
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
205 EMACS_INT opoint = PT;
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
206 EMACS_INT opoint_byte = PT_BYTE;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 if (EQ (b, e))
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 /* Not modifying because nothing marked */
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 return;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211
15170
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
212 /* If the case table is flagged as modified, rescan it. */
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
213 if (NILP (XCHAR_TABLE (current_buffer->downcase_table)->extras[1]))
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
214 Fset_case_table (current_buffer->downcase_table);
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
215
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 validate_region (&b, &e);
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
217 start = XFASTINT (b);
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
218 end = XFASTINT (e);
72592
f6de516bbb4b * buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents: 71970
diff changeset
219 modify_region (current_buffer, start, end, 0);
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
220 record_change (start, end - start);
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
221 start_byte = CHAR_TO_BYTE (start);
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
222 end_byte = CHAR_TO_BYTE (end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223
109836
9212e8bdf79b * casefiddle.c (casify_region): Setup gl_state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109757
diff changeset
224 SETUP_BUFFER_SYNTAX_TABLE(); /* For syntax_prefix_flag_p. */
9212e8bdf79b * casefiddle.c (casify_region): Setup gl_state.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109757
diff changeset
225
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
226 while (start < end)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
227 {
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
228 int c2, len;
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
229
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
230 if (multibyte)
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
231 {
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
232 c = FETCH_MULTIBYTE_CHAR (start_byte);
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
233 len = CHAR_BYTES (c);
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
234 }
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
235 else
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
236 {
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
237 c = FETCH_BYTE (start_byte);
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
238 MAKE_CHAR_MULTIBYTE (c);
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
239 len = 1;
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
240 }
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
241 c2 = c;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
242 if (inword && flag != CASE_CAPITALIZE_UP)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
243 c = DOWNCASE (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
244 else if (!UPPERCASEP (c)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
245 && (!inword || flag != CASE_CAPITALIZE_UP))
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
246 c = UPCASE1 (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
247 if ((int) flag >= (int) CASE_CAPITALIZE)
109757
818e325e0469 Introduce a new comment style "c" flag.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109179
diff changeset
248 inword = ((SYNTAX (c) == Sword)
818e325e0469 Introduce a new comment style "c" flag.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109179
diff changeset
249 && (inword || !syntax_prefix_flag_p (c)));
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
250 if (c != c2)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
251 {
91803
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
252 last = start;
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
253 if (first < 0)
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
254 first = start;
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
255
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
256 if (! multibyte)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
257 {
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
258 MAKE_CHAR_UNIBYTE (c);
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
259 FETCH_BYTE (start_byte) = c;
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
260 }
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
261 else if (ASCII_CHAR_P (c2) && ASCII_CHAR_P (c))
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
262 FETCH_BYTE (start_byte) = c;
90049
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
263 else
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
264 {
90049
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
265 int tolen = CHAR_BYTES (c);
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
266 int j;
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
267 unsigned char str[MAX_MULTIBYTE_LENGTH];
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
268
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
269 CHAR_STRING (c, str);
90049
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
270 if (len == tolen)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
271 {
57877
194fa92926e4 (casify_region): Handle changes in byte-length using replace_range_2.
Richard M. Stallman <rms@gnu.org>
parents: 57726
diff changeset
272 /* Length is unchanged. */
90049
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
273 for (j = 0; j < len; ++j)
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
274 FETCH_BYTE (start_byte + j) = str[j];
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
275 }
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
276 else
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
277 {
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
278 /* Replace one character with the other,
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
279 keeping text properties the same. */
90049
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
280 replace_range_2 (start, start_byte,
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
281 start + 1, start_byte + len,
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
282 str, 1, tolen,
90049
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
283 0);
73c7169fe4ff (casify_region): Handle changes in byte-length
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
284 len = tolen;
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
285 }
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
286 }
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
287 }
89017
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
288 start++;
6a9e0cb7368b (casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents: 88426
diff changeset
289 start_byte += len;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89056
diff changeset
292 if (PT != opoint)
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89056
diff changeset
293 TEMP_SET_PT_BOTH (opoint, opoint_byte);
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89056
diff changeset
294
91803
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
295 if (first >= 0)
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
296 {
91803
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
297 signal_after_change (first, last + 1 - first, last + 1 - first);
78fbdbd37286 (casify_region): Only call after-change and composition
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91327
diff changeset
298 update_compositions (first, last + 1, CHECK_ALL);
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
299 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 DEFUN ("upcase-region", Fupcase_region, Supcase_region, 2, 2, "r",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
303 doc: /* Convert the region to upper case. In programs, wants two arguments.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
304 These arguments specify the starting and ending character numbers of
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
305 the region to operate on. When used as a command, the text between
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
306 point and the mark is operated on.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
307 See also `capitalize-region'. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
308 (Lisp_Object beg, Lisp_Object end)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
310 casify_region (CASE_UP, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 DEFUN ("downcase-region", Fdowncase_region, Sdowncase_region, 2, 2, "r",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
315 doc: /* Convert the region to lower case. In programs, wants two arguments.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
316 These arguments specify the starting and ending character numbers of
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
317 the region to operate on. When used as a command, the text between
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
318 point and the mark is operated on. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
319 (Lisp_Object beg, Lisp_Object end)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
321 casify_region (CASE_DOWN, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 DEFUN ("capitalize-region", Fcapitalize_region, Scapitalize_region, 2, 2, "r",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
326 doc: /* Convert the region to capitalized form.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
327 Capitalized form means each word's first character is upper case
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
328 and the rest of it is lower case.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
329 In programs, give two arguments, the starting and ending
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
330 character positions to operate on. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
331 (Lisp_Object beg, Lisp_Object end)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
333 casify_region (CASE_CAPITALIZE, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
337 /* Like Fcapitalize_region but change only the initials. */
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
338
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
339 DEFUN ("upcase-initials-region", Fupcase_initials_region,
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
340 Supcase_initials_region, 2, 2, "r",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
341 doc: /* Upcase the initial of each word in the region.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
342 Subsequent letters of each word are not changed.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
343 In programs, give two arguments, the starting and ending
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
344 character positions to operate on. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
345 (Lisp_Object beg, Lisp_Object end)
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
346 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
347 casify_region (CASE_CAPITALIZE_UP, beg, end);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
348 return Qnil;
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
349 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
351 static Lisp_Object
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 106815
diff changeset
352 operate_on_word (Lisp_Object arg, EMACS_INT *newpoint)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 {
1505
4f138b03e5ab * casefiddle.c (operate_on_word): Declare end to be an int, not a
Jim Blandy <jimb@redhat.com>
parents: 484
diff changeset
354 Lisp_Object val;
110551
f28cc7ff91f9 Fix int/EMACS_INT use in casefiddle.c and syntax.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109836
diff changeset
355 EMACS_INT farend;
f28cc7ff91f9 Fix int/EMACS_INT use in casefiddle.c and syntax.c.
Eli Zaretskii <eliz@gnu.org>
parents: 109836
diff changeset
356 EMACS_INT iarg;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40103
diff changeset
358 CHECK_NUMBER (arg);
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
359 iarg = XINT (arg);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
360 farend = scan_words (PT, iarg);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 if (!farend)
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
362 farend = iarg > 0 ? ZV : BEGV;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
364 *newpoint = PT > farend ? PT : farend;
9299
e8c880f2723e (casify_object, operate_on_word, Fupcase_word, Fdowncase_word,
Karl Heuer <kwzh@gnu.org>
parents: 9137
diff changeset
365 XSETFASTINT (val, farend);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 return val;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 DEFUN ("upcase-word", Fupcase_word, Supcase_word, 1, 1, "p",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
371 doc: /* Convert following word (or ARG words) to upper case, moving over.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
372 With negative argument, convert previous words but do not move.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
373 See also `capitalize-word'. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
374 (Lisp_Object arg)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
376 Lisp_Object beg, end;
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
377 EMACS_INT newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
378 XSETFASTINT (beg, PT);
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
379 end = operate_on_word (arg, &newpoint);
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
380 casify_region (CASE_UP, beg, end);
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
381 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385 DEFUN ("downcase-word", Fdowncase_word, Sdowncase_word, 1, 1, "p",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
386 doc: /* Convert following word (or ARG words) to lower case, moving over.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
387 With negative argument, convert previous words but do not move. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
388 (Lisp_Object arg)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
390 Lisp_Object beg, end;
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
391 EMACS_INT newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
392 XSETFASTINT (beg, PT);
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
393 end = operate_on_word (arg, &newpoint);
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
394 casify_region (CASE_DOWN, beg, end);
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
395 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
399 DEFUN ("capitalize-word", Fcapitalize_word, Scapitalize_word, 1, 1, "p",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
400 doc: /* Capitalize the following word (or ARG words), moving over.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
401 This gives the word(s) a first character in upper case
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
402 and the rest lower case.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39748
diff changeset
403 With negative argument, capitalize previous words but do not move. */)
109179
8cfee7d2955f Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109165
diff changeset
404 (Lisp_Object arg)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
406 Lisp_Object beg, end;
93179
139d0b227fdc (casify_object): Avoid pathological N^2 worst case if
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91803
diff changeset
407 EMACS_INT newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
408 XSETFASTINT (beg, PT);
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
409 end = operate_on_word (arg, &newpoint);
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
410 casify_region (CASE_CAPITALIZE, beg, end);
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
411 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
415 void
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 106815
diff changeset
416 syms_of_casefiddle (void)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417 {
105877
21bdda3ded62 * xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105669
diff changeset
418 Qidentity = intern_c_string ("identity");
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
419 staticpro (&Qidentity);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 defsubr (&Supcase);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 defsubr (&Sdowncase);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 defsubr (&Scapitalize);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
423 defsubr (&Supcase_initials);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 defsubr (&Supcase_region);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 defsubr (&Sdowncase_region);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 defsubr (&Scapitalize_region);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
427 defsubr (&Supcase_initials_region);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428 defsubr (&Supcase_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 defsubr (&Sdowncase_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 defsubr (&Scapitalize_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
433 void
109126
aec1143e8d85 Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 106815
diff changeset
434 keys_of_casefiddle (void)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 initial_define_key (control_x_map, Ctl('U'), "upcase-region");
484
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
437 Fput (intern ("upcase-region"), Qdisabled, Qt);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 initial_define_key (control_x_map, Ctl('L'), "downcase-region");
484
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
439 Fput (intern ("downcase-region"), Qdisabled, Qt);
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
440
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 initial_define_key (meta_map, 'u', "upcase-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 initial_define_key (meta_map, 'l', "downcase-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 initial_define_key (meta_map, 'c', "capitalize-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 47965
diff changeset
445
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 47965
diff changeset
446 /* arch-tag: 60a73c66-5489-47e7-a81f-cead4057c526
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 47965
diff changeset
447 (do not change this comment) */