Mercurial > emacs
annotate src/casefiddle.c @ 89072:603b787e6146
(syms_of_syntax) <multibyte-syntax-as-symbol>: Doc fix.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 05 Sep 2002 17:03:03 +0000 |
parents | 496be2b262c6 |
children | 2f877ed80fa6 |
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" | |
88351
aac41b50c875
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
40656
diff
changeset
|
25 #include "character.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 { | |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
40 register int c, c1; |
118 | 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; |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
54 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
|
55 |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
56 c1 = XFASTINT (obj) & ~flagbits; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
57 if (! multibyte) |
89056
496be2b262c6
(casify_object): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89017
diff
changeset
|
58 MAKE_CHAR_MULTIBYTE (c1); |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
59 c = DOWNCASE (c1); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
60 if (inword || c == c1) |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
61 { |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
62 if (! inword) |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
63 c = UPCASE1 (c1); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
64 if (! multibyte) |
89056
496be2b262c6
(casify_object): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89017
diff
changeset
|
65 MAKE_CHAR_UNIBYTE (c); |
22506
2107e25fa56f
(casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents:
21514
diff
changeset
|
66 XSETFASTINT (obj, c | flags); |
18136
015e9e4a90ed
(casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents:
18005
diff
changeset
|
67 } |
118 | 68 return obj; |
69 } | |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
70 |
9137
412e94c1dbf2
(casify_object): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
9053
diff
changeset
|
71 if (STRINGP (obj)) |
118 | 72 { |
20611
e351676e5044
(casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
20543
diff
changeset
|
73 int multibyte = STRING_MULTIBYTE (obj); |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
74 int i, i_byte, len; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
75 int size = XSTRING (obj)->size; |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
76 |
118 | 77 obj = Fcopy_sequence (obj); |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
78 for (i = i_byte = 0; i < size; i++, i_byte += len) |
118 | 79 { |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
80 if (multibyte) |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
81 c = STRING_CHAR_AND_LENGTH (XSTRING (obj)->data + i_byte, |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
82 0, len); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
83 else |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
84 { |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
85 c = XSTRING (obj)->data[i_byte]; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
86 len = 1; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
87 MAKE_CHAR_MULTIBYTE (c); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
88 } |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
89 c1 = c; |
9052
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
90 if (inword && flag != CASE_CAPITALIZE_UP) |
118 | 91 c = DOWNCASE (c); |
9052
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
92 else if (!UPPERCASEP (c) |
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
93 && (!inword || flag != CASE_CAPITALIZE_UP)) |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
94 c = UPCASE1 (c1); |
9052
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
95 if ((int) flag >= (int) CASE_CAPITALIZE) |
118 | 96 inword = SYNTAX (c) == Sword; |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
97 if (c != c1) |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
98 { |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
99 if (! multibyte) |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
100 { |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
101 MAKE_CHAR_UNIBYTE (c); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
102 XSTRING (obj)->data[i_byte] = c; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
103 } |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
104 else if (ASCII_CHAR_P (c1) && ASCII_CHAR_P (c)) |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
105 XSTRING (obj)->data[i_byte] = c; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
106 else |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
107 { |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
108 Faset (obj, make_number (i), make_number (c)); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
109 i_byte += CHAR_BYTES (c) - len; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
110 } |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
111 } |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
112 } |
118 | 113 return obj; |
114 } | |
1926
952f2a18f83d
* callint.c (Fcall_interactively): Pass the correct number of
Jim Blandy <jimb@redhat.com>
parents:
1505
diff
changeset
|
115 obj = wrong_type_argument (Qchar_or_string_p, obj); |
118 | 116 } |
117 } | |
118 | |
119 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
|
120 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
|
121 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
|
122 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
|
123 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
|
124 (obj) |
118 | 125 Lisp_Object obj; |
126 { | |
127 return casify_object (CASE_UP, obj); | |
128 } | |
129 | |
130 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
|
131 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
|
132 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
|
133 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
|
134 (obj) |
118 | 135 Lisp_Object obj; |
136 { | |
137 return casify_object (CASE_DOWN, obj); | |
138 } | |
139 | |
140 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
|
141 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
|
142 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
|
143 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
|
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 (obj) |
118 | 147 Lisp_Object obj; |
148 { | |
149 return casify_object (CASE_CAPITALIZE, obj); | |
150 } | |
9052
6de22822cf72
(upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
151 |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
152 /* 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
|
153 |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
154 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
|
155 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
|
156 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
|
157 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
|
158 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
|
159 (obj) |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
160 Lisp_Object obj; |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
161 { |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
162 return casify_object (CASE_CAPITALIZE_UP, obj); |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
163 } |
118 | 164 |
165 /* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP. | |
166 b and e specify range of buffer to operate on. */ | |
167 | |
21514 | 168 void |
118 | 169 casify_region (flag, b, e) |
170 enum case_action flag; | |
171 Lisp_Object b, e; | |
172 { | |
173 register int i; | |
174 register int c; | |
175 register int inword = flag == CASE_DOWN; | |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
176 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
|
177 int start, end; |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
178 int start_byte, end_byte; |
26839 | 179 int changed = 0; |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
180 int opoint = PT; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
181 int opoint_byte = PT_BYTE; |
118 | 182 |
183 if (EQ (b, e)) | |
184 /* Not modifying because nothing marked */ | |
185 return; | |
186 | |
15170
0d698228e98c
(casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
187 /* 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
|
188 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
|
189 Fset_case_table (current_buffer->downcase_table); |
0d698228e98c
(casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
190 |
118 | 191 validate_region (&b, &e); |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
192 start = XFASTINT (b); |
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
193 end = XFASTINT (e); |
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
194 modify_region (current_buffer, start, end); |
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
195 record_change (start, end - start); |
20543
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
196 start_byte = CHAR_TO_BYTE (start); |
4dbda4b7c66f
(casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
197 end_byte = CHAR_TO_BYTE (end); |
118 | 198 |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
199 while (start < end) |
17816 | 200 { |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
201 int c2, len; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
202 |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
203 if (multibyte) |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
204 { |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
205 c = FETCH_MULTIBYTE_CHAR (start_byte); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
206 len = CHAR_BYTES (c); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
207 } |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
208 else |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
209 { |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
210 c = FETCH_BYTE (start_byte); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
211 MAKE_CHAR_MULTIBYTE (c); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
212 len = 1; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
213 } |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
214 c2 = c; |
18005
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
215 if (inword && flag != CASE_CAPITALIZE_UP) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
216 c = DOWNCASE (c); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
217 else if (!UPPERCASEP (c) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
218 && (!inword || flag != CASE_CAPITALIZE_UP)) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
219 c = UPCASE1 (c); |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
220 if ((int) flag >= (int) CASE_CAPITALIZE) |
ad95aa134d60
(casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents:
17816
diff
changeset
|
221 inword = SYNTAX (c) == Sword; |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
222 if (c != c2) |
17816 | 223 { |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
224 changed = 1; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
225 if (! multibyte) |
17816 | 226 { |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
227 MAKE_CHAR_UNIBYTE (c); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
228 FETCH_BYTE (start_byte) = c; |
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 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
|
231 FETCH_BYTE (start_byte) = c; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
232 else if (len == CHAR_BYTES (c)) |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
233 { |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
234 int j; |
26839 | 235 unsigned char str[MAX_MULTIBYTE_LENGTH]; |
17816 | 236 |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
237 CHAR_STRING (c, str); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
238 for (j = 0; j < len; ++j) |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
239 FETCH_BYTE (start_byte + j) = str[j]; |
17816 | 240 } |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
241 else |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
242 { |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
243 TEMP_SET_PT_BOTH (start, start_byte); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
244 del_range_2 (start, start_byte, start + 1, start_byte + len, 0); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
245 insert_char (c); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
246 len = CHAR_BYTES (c); |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
247 } |
17816 | 248 } |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
249 start++; |
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
250 start_byte += len; |
118 | 251 } |
252 | |
26839 | 253 if (changed) |
254 { | |
89017
6a9e0cb7368b
(casify_object): Simplified. Handle the case that
Kenichi Handa <handa@m17n.org>
parents:
88426
diff
changeset
|
255 start = XFASTINT (b); |
26839 | 256 signal_after_change (start, end - start, end - start); |
257 update_compositions (start, end, CHECK_ALL); | |
258 } | |
118 | 259 } |
260 | |
261 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
|
262 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
|
263 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
|
264 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
|
265 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
|
266 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
|
267 (beg, end) |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
268 Lisp_Object beg, end; |
118 | 269 { |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
270 casify_region (CASE_UP, beg, end); |
118 | 271 return Qnil; |
272 } | |
273 | |
274 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
|
275 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
|
276 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
|
277 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
|
278 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
|
279 (beg, end) |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
280 Lisp_Object beg, end; |
118 | 281 { |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
282 casify_region (CASE_DOWN, beg, end); |
118 | 283 return Qnil; |
284 } | |
285 | |
286 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
|
287 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
|
288 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
|
289 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
|
290 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
|
291 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
|
292 (beg, end) |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
293 Lisp_Object beg, end; |
118 | 294 { |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
295 casify_region (CASE_CAPITALIZE, beg, end); |
118 | 296 return Qnil; |
297 } | |
298 | |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
299 /* 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
|
300 |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
301 DEFUN ("upcase-initials-region", Fupcase_initials_region, |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
302 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
|
303 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
|
304 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
|
305 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
|
306 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
|
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; |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
309 { |
14063
ef7d4117c601
(Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents:
12244
diff
changeset
|
310 casify_region (CASE_CAPITALIZE_UP, beg, end); |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
311 return Qnil; |
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
312 } |
118 | 313 |
314 Lisp_Object | |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
315 operate_on_word (arg, newpoint) |
118 | 316 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
|
317 int *newpoint; |
118 | 318 { |
1505
4f138b03e5ab
* casefiddle.c (operate_on_word): Declare end to be an int, not a
Jim Blandy <jimb@redhat.com>
parents:
484
diff
changeset
|
319 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
|
320 int farend; |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
321 int iarg; |
118 | 322 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40103
diff
changeset
|
323 CHECK_NUMBER (arg); |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
324 iarg = XINT (arg); |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
325 farend = scan_words (PT, iarg); |
118 | 326 if (!farend) |
12089
f7cb17ca1815
(casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents:
9299
diff
changeset
|
327 farend = iarg > 0 ? ZV : BEGV; |
118 | 328 |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
329 *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
|
330 XSETFASTINT (val, farend); |
118 | 331 |
332 return val; | |
333 } | |
334 | |
335 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
|
336 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
|
337 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
|
338 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
|
339 (arg) |
118 | 340 Lisp_Object arg; |
341 { | |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
342 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
|
343 int newpoint; |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
344 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
|
345 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
|
346 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
|
347 SET_PT (newpoint); |
118 | 348 return Qnil; |
349 } | |
350 | |
351 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
|
352 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
|
353 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
|
354 (arg) |
118 | 355 Lisp_Object arg; |
356 { | |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
357 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
|
358 int newpoint; |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
359 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
|
360 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
|
361 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
|
362 SET_PT (newpoint); |
118 | 363 return Qnil; |
364 } | |
365 | |
366 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
|
367 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
|
368 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
|
369 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
|
370 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
|
371 (arg) |
118 | 372 Lisp_Object arg; |
373 { | |
6221
c2d29681d218
(operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
374 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
|
375 int newpoint; |
16039
855c8d8ba0f0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
15170
diff
changeset
|
376 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
|
377 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
|
378 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
|
379 SET_PT (newpoint); |
118 | 380 return Qnil; |
381 } | |
382 | |
21514 | 383 void |
118 | 384 syms_of_casefiddle () |
385 { | |
17816 | 386 Qidentity = intern ("identity"); |
387 staticpro (&Qidentity); | |
118 | 388 defsubr (&Supcase); |
389 defsubr (&Sdowncase); | |
390 defsubr (&Scapitalize); | |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
391 defsubr (&Supcase_initials); |
118 | 392 defsubr (&Supcase_region); |
393 defsubr (&Sdowncase_region); | |
394 defsubr (&Scapitalize_region); | |
9053
4887fc1a2dda
(Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9052
diff
changeset
|
395 defsubr (&Supcase_initials_region); |
118 | 396 defsubr (&Supcase_word); |
397 defsubr (&Sdowncase_word); | |
398 defsubr (&Scapitalize_word); | |
399 } | |
400 | |
21514 | 401 void |
118 | 402 keys_of_casefiddle () |
403 { | |
404 initial_define_key (control_x_map, Ctl('U'), "upcase-region"); | |
484 | 405 Fput (intern ("upcase-region"), Qdisabled, Qt); |
118 | 406 initial_define_key (control_x_map, Ctl('L'), "downcase-region"); |
484 | 407 Fput (intern ("downcase-region"), Qdisabled, Qt); |
408 | |
118 | 409 initial_define_key (meta_map, 'u', "upcase-word"); |
410 initial_define_key (meta_map, 'l', "downcase-word"); | |
411 initial_define_key (meta_map, 'c', "capitalize-word"); | |
412 } |