Mercurial > emacs
annotate src/casefiddle.c @ 55897:305e52f43c69
*** empty log message ***
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 04 Jun 2004 00:12:24 +0000 |
parents | 4f33fa491183 |
children | 5407da499273 |
rev | line source |
---|---|
118 | 1 /* GNU Emacs case conversion functions. |
20708 | 2 Copyright (C) 1985, 1994, 1997 Free Software Foundation, Inc. |
118 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
12244 | 8 the Free Software Foundation; either version 2, or (at your option) |
118 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14063
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14063
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
118 | 20 |
21 | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
2822
diff
changeset
|
22 #include <config.h> |
118 | 23 #include "lisp.h" |
24 #include "buffer.h" | |
17816 | 25 #include "charset.h" |
118 | 26 #include "commands.h" |
27 #include "syntax.h" | |
26839 | 28 #include "composite.h" |
39748
42b7a798ff79
Include keymap.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
34969
diff
changeset
|
29 #include "keymap.h" |
118 | 30 |
31 enum case_action {CASE_UP, CASE_DOWN, CASE_CAPITALIZE, CASE_CAPITALIZE_UP}; | |
17816 | 32 |
33 Lisp_Object Qidentity; | |
118 | 34 |
35 Lisp_Object | |
36 casify_object (flag, obj) | |
37 enum case_action flag; | |
38 Lisp_Object obj; | |
39 { | |
40 register int i, c, len; | |
41 register int inword = flag == CASE_DOWN; | |
42 | |
15170
0d698228e98c
(casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
43 /* 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
|
44 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
|
45 Fset_case_table (current_buffer->downcase_table); |
0d698228e98c
(casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
46 |
118 | 47 while (1) |
48 { | |
9137
412e94c1dbf2
(casify_object): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
9053
diff
changeset
|
49 if (INTEGERP (obj)) |
118 | 50 { |
22506
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
51 int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER |
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
52 | CHAR_SHIFT | CHAR_CTL | CHAR_META); |
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
53 int flags = XINT (obj) & flagbits; |
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
54 |
55743
4f33fa491183
(casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
55 /* If the character has higher bits set |
4f33fa491183
(casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
56 above the flags, return it unchanged. |
4f33fa491183
(casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
57 It is not a real character. */ |
4f33fa491183
(casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
58 if ((unsigned) XFASTINT (obj) > (unsigned) flagbits) |
4f33fa491183
(casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
59 return obj; |
4f33fa491183
(casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
60 |
22506
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
61 c = DOWNCASE (XFASTINT (obj) & ~flagbits); |
18136
015e9e4a90ed
(casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents:
18005
diff
changeset
|
62 if (inword) |
22506
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
63 XSETFASTINT (obj, c | flags); |
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
64 else if (c == (XFASTINT (obj) & ~flagbits)) |
18136
015e9e4a90ed
(casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents:
18005
diff
changeset
|
65 { |
22506
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
66 c = UPCASE1 ((XFASTINT (obj) & ~flagbits)); |
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
67 XSETFASTINT (obj, c | flags); |
18136
015e9e4a90ed
(casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents:
18005
diff
changeset
|
68 } |
118 | 69 return obj; |
70 } | |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
71 |
9137
412e94c1dbf2
(casify_object): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
9053
diff
changeset
|
72 if (STRINGP (obj)) |
118 | 73 { |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
74 int multibyte = STRING_MULTIBYTE (obj); |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
75 |
118 | 76 obj = Fcopy_sequence (obj); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
40656
diff
changeset
|
77 len = SBYTES (obj); |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
78 |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
79 /* Scan all single-byte characters from start of string. */ |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
80 for (i = 0; i < len;) |
118 | 81 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
40656
diff
changeset
|
82 c = SREF (obj, i); |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
83 |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
84 if (multibyte && c >= 0x80) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
85 /* A multibyte character can't be handled in this |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
86 simple loop. */ |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
87 break; |
9052
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
88 if (inword && flag != CASE_CAPITALIZE_UP) |
118 | 89 c = DOWNCASE (c); |
9052
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
90 else if (!UPPERCASEP (c) |
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
91 && (!inword || flag != CASE_CAPITALIZE_UP)) |
118 | 92 c = UPCASE1 (c); |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
93 /* If this char won't fit in a single-byte string. |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
94 fall out to the multibyte case. */ |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
95 if (multibyte ? ! ASCII_BYTE_P (c) |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
96 : ! SINGLE_BYTE_CHAR_P (c)) |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
97 break; |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
98 |
46420
1ab8a78692f4
* casefiddle.c (casify_object): Use SSET.
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
99 SSET (obj, i, c); |
9052
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
100 if ((int) flag >= (int) CASE_CAPITALIZE) |
118 | 101 inword = SYNTAX (c) == Sword; |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
102 i++; |
118 | 103 } |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
104 |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
105 /* If we didn't do the whole string as single-byte, |
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
106 scan the rest in a more complex way. */ |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
107 if (i < len) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
108 { |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
109 /* The work is not yet finished because of a multibyte |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
110 character just encountered. */ |
34969
d7e7fa35dd10
(casify_object): Remove unused variable `tolen'.
Eli Zaretskii <eliz@gnu.org>
parents:
26839
diff
changeset
|
111 int fromlen, j_byte = i; |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
112 char *buf |
26839 | 113 = (char *) alloca ((len - i) * MAX_MULTIBYTE_LENGTH + i); |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
114 |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
115 /* Copy data already handled. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
40656
diff
changeset
|
116 bcopy (SDATA (obj), buf, i); |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
117 |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
118 /* From now on, I counts bytes. */ |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
119 while (i < len) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
120 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
40656
diff
changeset
|
121 c = STRING_CHAR_AND_LENGTH (SDATA (obj) + i, |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
122 len - i, fromlen); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
123 if (inword && flag != CASE_CAPITALIZE_UP) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
124 c = DOWNCASE (c); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
125 else if (!UPPERCASEP (c) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
126 && (!inword || flag != CASE_CAPITALIZE_UP)) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
127 c = UPCASE1 (c); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
128 i += fromlen; |
26839 | 129 j_byte += CHAR_STRING (c, buf + j_byte); |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
130 if ((int) flag >= (int) CASE_CAPITALIZE) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
131 inword = SYNTAX (c) == Sword; |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
132 } |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
40656
diff
changeset
|
133 obj = make_multibyte_string (buf, SCHARS (obj), |
24883
59b74d3add13
(casify_object): Use make_multibyte_string
Karl Heuer <kwzh@gnu.org>
parents:
23476
diff
changeset
|
134 j_byte); |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
135 } |
118 | 136 return obj; |
137 } | |
1926
952f2a18f83d
* callint.c (Fcall_interactively): Pass the correct number of
Jim Blandy <jimb@redhat.com>
parents:
1505
diff
changeset
|
138 obj = wrong_type_argument (Qchar_or_string_p, obj); |
118 | 139 } |
140 } | |
141 | |
142 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
|
143 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
|
144 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
|
145 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
|
146 See also `capitalize', `downcase' and `upcase-initials'. */) |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39748
diff
changeset
|
147 (obj) |
118 | 148 Lisp_Object obj; |
149 { | |
150 return casify_object (CASE_UP, obj); | |
151 } | |
152 | |
153 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
|
154 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
|
155 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
|
156 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
|
157 (obj) |
118 | 158 Lisp_Object obj; |
159 { | |
160 return casify_object (CASE_DOWN, obj); | |
161 } | |
162 | |
163 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
|
164 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
|
165 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
|
166 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
|
167 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
|
168 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
|
169 (obj) |
118 | 170 Lisp_Object obj; |
171 { | |
172 return casify_object (CASE_CAPITALIZE, obj); | |
173 } | |
9052
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
174 |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
175 /* 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
|
176 |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
177 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
|
178 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
|
179 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
|
180 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
|
181 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
|
182 (obj) |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
183 Lisp_Object obj; |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
184 { |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
185 return casify_object (CASE_CAPITALIZE_UP, obj); |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
186 } |
118 | 187 |
188 /* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP. | |
189 b and e specify range of buffer to operate on. */ | |
190 | |
21514 | 191 void |
118 | 192 casify_region (flag, b, e) |
193 enum case_action flag; | |
194 Lisp_Object b, e; | |
195 { | |
196 register int i; | |
197 register int c; | |
198 register int inword = flag == CASE_DOWN; | |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
199 register int multibyte = !NILP (current_buffer->enable_multibyte_characters); |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
200 int start, end; |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
201 int start_byte, end_byte; |
26839 | 202 int changed = 0; |
118 | 203 |
204 if (EQ (b, e)) | |
205 /* Not modifying because nothing marked */ | |
206 return; | |
207 | |
15170
0d698228e98c
(casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
208 /* 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
|
209 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
|
210 Fset_case_table (current_buffer->downcase_table); |
0d698228e98c
(casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
211 |
118 | 212 validate_region (&b, &e); |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
213 start = XFASTINT (b); |
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
214 end = XFASTINT (e); |
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
215 modify_region (current_buffer, start, end); |
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
216 record_change (start, end - start); |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
217 start_byte = CHAR_TO_BYTE (start); |
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
218 end_byte = CHAR_TO_BYTE (end); |
118 | 219 |
26839 | 220 for (i = start_byte; i < end_byte; i++, start++) |
17816 | 221 { |
26839 | 222 int c2; |
223 c = c2 = FETCH_BYTE (i); | |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
224 if (multibyte && c >= 0x80) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
225 /* A multibyte character can't be handled in this simple loop. */ |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
226 break; |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
227 if (inword && flag != CASE_CAPITALIZE_UP) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
228 c = DOWNCASE (c); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
229 else if (!UPPERCASEP (c) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
230 && (!inword || flag != CASE_CAPITALIZE_UP)) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
231 c = UPCASE1 (c); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
232 FETCH_BYTE (i) = c; |
26839 | 233 if (c != c2) |
234 changed = 1; | |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
235 if ((int) flag >= (int) CASE_CAPITALIZE) |
47965
1099445a76d0
(casify_region): Don't treat a prefix char as part
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46420
diff
changeset
|
236 inword = SYNTAX (c) == Sword && (inword || !SYNTAX_PREFIX (c)); |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
237 } |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
238 if (i < end_byte) |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
239 { |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
240 /* The work is not yet finished because of a multibyte character |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
241 just encountered. */ |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
242 int opoint = PT; |
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
243 int opoint_byte = PT_BYTE; |
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
244 int c2; |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
245 |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
246 while (i < end_byte) |
17816 | 247 { |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
248 if ((c = FETCH_BYTE (i)) >= 0x80) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
249 c = FETCH_MULTIBYTE_CHAR (i); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
250 c2 = c; |
17816 | 251 if (inword && flag != CASE_CAPITALIZE_UP) |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
252 c2 = DOWNCASE (c); |
17816 | 253 else if (!UPPERCASEP (c) |
254 && (!inword || flag != CASE_CAPITALIZE_UP)) | |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
255 c2 = UPCASE1 (c); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
256 if (c != c2) |
17816 | 257 { |
258 int fromlen, tolen, j; | |
26839 | 259 unsigned char str[MAX_MULTIBYTE_LENGTH]; |
17816 | 260 |
26839 | 261 changed = 1; |
17816 | 262 /* Handle the most likely case */ |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
263 if (c < 0400 && c2 < 0400) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
264 FETCH_BYTE (i) = c2; |
26839 | 265 else if (fromlen = CHAR_STRING (c, str), |
266 tolen = CHAR_STRING (c2, str), | |
17816 | 267 fromlen == tolen) |
268 { | |
269 for (j = 0; j < tolen; ++j) | |
270 FETCH_BYTE (i + j) = str[j]; | |
271 } | |
272 else | |
273 { | |
274 error ("Can't casify letters that change length"); | |
275 #if 0 /* This is approximately what we'd like to be able to do here */ | |
276 if (tolen < fromlen) | |
26742
936b39bd05b4
* editfns.c (Fdelete_and_extract_region): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25779
diff
changeset
|
277 del_range_1 (i + tolen, i + fromlen, 0, 0); |
17816 | 278 else if (tolen > fromlen) |
279 { | |
280 TEMP_SET_PT (i + fromlen); | |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
281 insert_1 (str + fromlen, tolen - fromlen, 1, 0, 0); |
17816 | 282 } |
283 #endif | |
284 } | |
285 } | |
286 if ((int) flag >= (int) CASE_CAPITALIZE) | |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
287 inword = SYNTAX (c2) == Sword; |
26839 | 288 INC_BOTH (start, i); |
17816 | 289 } |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
290 TEMP_SET_PT_BOTH (opoint, opoint_byte); |
118 | 291 } |
292 | |
26839 | 293 start = XFASTINT (b); |
294 if (changed) | |
295 { | |
296 signal_after_change (start, end - start, end - start); | |
297 update_compositions (start, end, CHECK_ALL); | |
298 } | |
118 | 299 } |
300 | |
301 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
|
302 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
|
303 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
|
304 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
|
305 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
|
306 See also `capitalize-region'. */) |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39748
diff
changeset
|
307 (beg, end) |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
308 Lisp_Object beg, end; |
118 | 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 | 311 return Qnil; |
312 } | |
313 | |
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. */) |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39748
diff
changeset
|
319 (beg, end) |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
320 Lisp_Object beg, end; |
118 | 321 { |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
322 casify_region (CASE_DOWN, beg, end); |
118 | 323 return Qnil; |
324 } | |
325 | |
326 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
|
327 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
|
328 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
|
329 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
|
330 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
|
331 character positions to operate on. */) |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39748
diff
changeset
|
332 (beg, end) |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
333 Lisp_Object beg, end; |
118 | 334 { |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
335 casify_region (CASE_CAPITALIZE, beg, end); |
118 | 336 return Qnil; |
337 } | |
338 | |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
339 /* 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
|
340 |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
341 DEFUN ("upcase-initials-region", Fupcase_initials_region, |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
342 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
|
343 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
|
344 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
|
345 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
|
346 character positions to operate on. */) |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39748
diff
changeset
|
347 (beg, end) |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
348 Lisp_Object beg, end; |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
349 { |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
350 casify_region (CASE_CAPITALIZE_UP, beg, end); |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
351 return Qnil; |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
352 } |
118 | 353 |
354 Lisp_Object | |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
355 operate_on_word (arg, newpoint) |
118 | 356 Lisp_Object arg; |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
357 int *newpoint; |
118 | 358 { |
1505
4f138b03e5ab
* casefiddle.c (operate_on_word): Declare end to be an int, not a
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
359 Lisp_Object val; |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
360 int farend; |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
361 int iarg; |
118 | 362 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40103
diff
changeset
|
363 CHECK_NUMBER (arg); |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
364 iarg = XINT (arg); |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
365 farend = scan_words (PT, iarg); |
118 | 366 if (!farend) |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
367 farend = iarg > 0 ? ZV : BEGV; |
118 | 368 |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
369 *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
|
370 XSETFASTINT (val, farend); |
118 | 371 |
372 return val; | |
373 } | |
374 | |
375 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
|
376 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
|
377 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
|
378 See also `capitalize-word'. */) |
6b389fb978bc
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39748
diff
changeset
|
379 (arg) |
118 | 380 Lisp_Object arg; |
381 { | |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
382 Lisp_Object beg, end; |
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
383 int newpoint; |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
384 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
|
385 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
|
386 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
|
387 SET_PT (newpoint); |
118 | 388 return Qnil; |
389 } | |
390 | |
391 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
|
392 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
|
393 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
|
394 (arg) |
118 | 395 Lisp_Object arg; |
396 { | |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
397 Lisp_Object beg, end; |
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
398 int newpoint; |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
399 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
|
400 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
|
401 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
|
402 SET_PT (newpoint); |
118 | 403 return Qnil; |
404 } | |
405 | |
406 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
|
407 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
|
408 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
|
409 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
|
410 With negative argument, capitalize 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
|
411 (arg) |
118 | 412 Lisp_Object arg; |
413 { | |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
414 Lisp_Object beg, end; |
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
415 int newpoint; |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
416 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
|
417 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
|
418 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
|
419 SET_PT (newpoint); |
118 | 420 return Qnil; |
421 } | |
422 | |
21514 | 423 void |
118 | 424 syms_of_casefiddle () |
425 { | |
17816 | 426 Qidentity = intern ("identity"); |
427 staticpro (&Qidentity); | |
118 | 428 defsubr (&Supcase); |
429 defsubr (&Sdowncase); | |
430 defsubr (&Scapitalize); | |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
431 defsubr (&Supcase_initials); |
118 | 432 defsubr (&Supcase_region); |
433 defsubr (&Sdowncase_region); | |
434 defsubr (&Scapitalize_region); | |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
435 defsubr (&Supcase_initials_region); |
118 | 436 defsubr (&Supcase_word); |
437 defsubr (&Sdowncase_word); | |
438 defsubr (&Scapitalize_word); | |
439 } | |
440 | |
21514 | 441 void |
118 | 442 keys_of_casefiddle () |
443 { | |
444 initial_define_key (control_x_map, Ctl('U'), "upcase-region"); | |
484 | 445 Fput (intern ("upcase-region"), Qdisabled, Qt); |
118 | 446 initial_define_key (control_x_map, Ctl('L'), "downcase-region"); |
484 | 447 Fput (intern ("downcase-region"), Qdisabled, Qt); |
448 | |
118 | 449 initial_define_key (meta_map, 'u', "upcase-word"); |
450 initial_define_key (meta_map, 'l', "downcase-word"); | |
451 initial_define_key (meta_map, 'c', "capitalize-word"); | |
452 } | |
52401 | 453 |
454 /* arch-tag: 60a73c66-5489-47e7-a81f-cead4057c526 | |
455 (do not change this comment) */ |