annotate src/casefiddle.c @ 70176:92dfa83b08e5 mh-e-doc-7_94

Release MH-E manual version 7.94. * mh-e.texi (VERSION, EDITION, UPDATED, UPDATE-MONTH): Update for release 7.94.
author Bill Wohler <wohler@newt.com>
date Fri, 21 Apr 2006 22:36:37 +0000
parents 3bd95f4f2941
children 5e4428007299 c5406394f567
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,
68651
3bd95f4f2941 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 66077
diff changeset
3 2005, 2006 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
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
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
12244
ac7375e60931 Update GPL to version 2.
Karl Heuer <kwzh@gnu.org>
parents: 12089
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 any later version.
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
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 59856
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 59856
diff changeset
20 Boston, MA 02110-1301, USA. */
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 2822
diff changeset
23 #include <config.h>
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 #include "lisp.h"
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #include "buffer.h"
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
26 #include "charset.h"
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #include "commands.h"
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 #include "syntax.h"
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
29 #include "composite.h"
39748
42b7a798ff79 Include keymap.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 34969
diff changeset
30 #include "keymap.h"
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 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
33
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
34 Lisp_Object Qidentity;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 Lisp_Object
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 casify_object (flag, obj)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 enum case_action flag;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 Lisp_Object obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 register int i, c, len;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 register int inword = flag == CASE_DOWN;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43
15170
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
44 /* 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
45 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
46 Fset_case_table (current_buffer->downcase_table);
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
47
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 while (1)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 {
9137
412e94c1dbf2 (casify_object): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9053
diff changeset
50 if (INTEGERP (obj))
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 {
22506
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
52 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
53 | CHAR_SHIFT | CHAR_CTL | CHAR_META);
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
54 int flags = XINT (obj) & flagbits;
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
55
55743
4f33fa491183 (casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
56 /* 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
57 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
58 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
59 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
60 return obj;
4f33fa491183 (casify_object): Return OBJ unchanged if not real char.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
61
22506
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
62 c = DOWNCASE (XFASTINT (obj) & ~flagbits);
18136
015e9e4a90ed (casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents: 18005
diff changeset
63 if (inword)
22506
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
64 XSETFASTINT (obj, c | flags);
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
65 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
66 {
22506
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
67 c = UPCASE1 ((XFASTINT (obj) & ~flagbits));
2107e25fa56f (casify_object): Cope with modifier bits in character.
Karl Heuer <kwzh@gnu.org>
parents: 21514
diff changeset
68 XSETFASTINT (obj, c | flags);
18136
015e9e4a90ed (casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents: 18005
diff changeset
69 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 return obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 }
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
72
9137
412e94c1dbf2 (casify_object): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9053
diff changeset
73 if (STRINGP (obj))
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 {
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
75 int multibyte = STRING_MULTIBYTE (obj);
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
76 int n;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
77
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 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
79 len = SBYTES (obj);
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
80
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
81 /* I counts bytes, and N counts chars. */
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
82 for (i = n = 0; i < len; n++)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 {
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
84 int from_len = 1, to_len = 1;
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
85
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 40656
diff changeset
86 c = SREF (obj, i);
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
87
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
88 if (multibyte && c >= 0x80)
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
89 c = STRING_CHAR_AND_LENGTH (SDATA (obj) + i, len -i, from_len);
9052
6de22822cf72 (upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
90 if (inword && flag != CASE_CAPITALIZE_UP)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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))
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 c = UPCASE1 (c);
66077
68d711d80f2f (casify_object): Fix for the case that case
Kenichi Handa <handa@m17n.org>
parents: 64770
diff changeset
95 if ((ASCII_BYTE_P (c) && from_len == 1)
68d711d80f2f (casify_object): Fix for the case that case
Kenichi Handa <handa@m17n.org>
parents: 64770
diff changeset
96 || (! multibyte && SINGLE_BYTE_CHAR_P (c)))
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
97 SSET (obj, i, c);
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
98 else
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
99 {
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
100 to_len = CHAR_BYTES (c);
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
101 if (from_len == to_len)
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
102 CHAR_STRING (c, SDATA (obj) + i);
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
103 else
66077
68d711d80f2f (casify_object): Fix for the case that case
Kenichi Handa <handa@m17n.org>
parents: 64770
diff changeset
104 {
68d711d80f2f (casify_object): Fix for the case that case
Kenichi Handa <handa@m17n.org>
parents: 64770
diff changeset
105 Faset (obj, make_number (n), make_number (c));
68d711d80f2f (casify_object): Fix for the case that case
Kenichi Handa <handa@m17n.org>
parents: 64770
diff changeset
106 len += to_len - from_len;
68d711d80f2f (casify_object): Fix for the case that case
Kenichi Handa <handa@m17n.org>
parents: 64770
diff changeset
107 }
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
108 }
9052
6de22822cf72 (upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
109 if ((int) flag >= (int) CASE_CAPITALIZE)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 inword = SYNTAX (c) == Sword;
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
111 i += to_len;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
112 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 return obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 Lisp_Object obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 return casify_object (CASE_UP, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 Lisp_Object obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 return casify_object (CASE_DOWN, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 Lisp_Object obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 return casify_object (CASE_CAPITALIZE, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 /* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP.
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 b and e specify range of buffer to operate on. */
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
168 void
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169 casify_region (flag, b, e)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 enum case_action flag;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 Lisp_Object b, e;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 register int i;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 register int c;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
179 int changed = 0;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 if (EQ (b, e))
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 /* Not modifying because nothing marked */
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 return;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184
15170
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
185 /* 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
186 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
187 Fset_case_table (current_buffer->downcase_table);
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
188
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 validate_region (&b, &e);
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
190 start = XFASTINT (b);
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
191 end = XFASTINT (e);
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
192 modify_region (current_buffer, start, end);
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
193 record_change (start, end - start);
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
194 start_byte = CHAR_TO_BYTE (start);
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
195 end_byte = CHAR_TO_BYTE (end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
197 for (i = start_byte; i < end_byte; i++, start++)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
198 {
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
199 int c2;
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
200 c = c2 = FETCH_BYTE (i);
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
201 if (multibyte && c >= 0x80)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
202 /* 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
203 break;
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
204 if (inword && flag != CASE_CAPITALIZE_UP)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
205 c = DOWNCASE (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
206 else if (!UPPERCASEP (c)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
207 && (!inword || flag != CASE_CAPITALIZE_UP))
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
208 c = UPCASE1 (c);
57877
194fa92926e4 (casify_region): Handle changes in byte-length using replace_range_2.
Richard M. Stallman <rms@gnu.org>
parents: 57726
diff changeset
209 if (multibyte && c >= 0x80)
194fa92926e4 (casify_region): Handle changes in byte-length using replace_range_2.
Richard M. Stallman <rms@gnu.org>
parents: 57726
diff changeset
210 /* A multibyte result character can't be handled in this
194fa92926e4 (casify_region): Handle changes in byte-length using replace_range_2.
Richard M. Stallman <rms@gnu.org>
parents: 57726
diff changeset
211 simple loop. */
194fa92926e4 (casify_region): Handle changes in byte-length using replace_range_2.
Richard M. Stallman <rms@gnu.org>
parents: 57726
diff changeset
212 break;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
213 FETCH_BYTE (i) = c;
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
214 if (c != c2)
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
215 changed = 1;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
216 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
217 inword = SYNTAX (c) == Sword && (inword || !SYNTAX_PREFIX (c));
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
218 }
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
219 if (i < end_byte)
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
220 {
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
221 /* 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
222 just encountered. */
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
223 int opoint = PT;
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
224 int opoint_byte = PT_BYTE;
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
225 int c2;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
226
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
227 while (start < end)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
228 {
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
229 if ((c = FETCH_BYTE (i)) >= 0x80)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
230 c = FETCH_MULTIBYTE_CHAR (i);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
231 c2 = c;
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
232 if (inword && flag != CASE_CAPITALIZE_UP)
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
233 c2 = DOWNCASE (c);
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
234 else if (!UPPERCASEP (c)
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
235 && (!inword || flag != CASE_CAPITALIZE_UP))
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
236 c2 = UPCASE1 (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
237 if (c != c2)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
238 {
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
239 int fromlen, tolen, j;
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
240 unsigned char str[MAX_MULTIBYTE_LENGTH];
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
241
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
242 changed = 1;
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
243 /* Handle the most likely case */
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
244 if (c < 0400 && c2 < 0400)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
245 FETCH_BYTE (i) = c2;
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
246 else if (fromlen = CHAR_STRING (c, str),
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
247 tolen = CHAR_STRING (c2, str),
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
248 fromlen == tolen)
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
249 {
57877
194fa92926e4 (casify_region): Handle changes in byte-length using replace_range_2.
Richard M. Stallman <rms@gnu.org>
parents: 57726
diff changeset
250 /* Length is unchanged. */
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
251 for (j = 0; j < tolen; ++j)
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
252 FETCH_BYTE (i + j) = str[j];
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
253 }
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
254 else
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
255 {
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
256 /* Replace one character with the other,
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
257 keeping text properties the same. */
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
258 replace_range_2 (start, i,
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
259 start + 1, i + fromlen,
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
260 str, 1, tolen,
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
261 1);
59856
4832f1833501 (casify_region): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 59854
diff changeset
262 if (opoint > start)
4832f1833501 (casify_region): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 59854
diff changeset
263 opoint_byte += tolen - fromlen;
59854
75a481e7d8f1 (casify_object): Enable changing characters of
Kenichi Handa <handa@m17n.org>
parents: 57877
diff changeset
264 }
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
265 }
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
266 if ((int) flag >= (int) CASE_CAPITALIZE)
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
267 inword = SYNTAX (c2) == Sword;
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
268 INC_BOTH (start, i);
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
269 }
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
270 TEMP_SET_PT_BOTH (opoint, opoint_byte);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272
26839
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
273 start = XFASTINT (b);
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
274 if (changed)
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
275 {
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
276 signal_after_change (start, end - start, end - start);
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
277 update_compositions (start, end, CHECK_ALL);
97029667b1a9 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
278 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 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
282 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
283 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
284 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
285 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
286 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
287 (beg, end)
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
288 Lisp_Object beg, end;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
290 casify_region (CASE_UP, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 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
295 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
296 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
297 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
298 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
299 (beg, end)
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
300 Lisp_Object beg, end;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
302 casify_region (CASE_DOWN, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 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
307 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
308 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
309 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
310 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
311 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
312 (beg, end)
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
313 Lisp_Object beg, end;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
315 casify_region (CASE_CAPITALIZE, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
319 /* 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
320
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
321 DEFUN ("upcase-initials-region", Fupcase_initials_region,
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
322 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
323 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
324 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
325 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
326 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
327 (beg, end)
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
328 Lisp_Object beg, end;
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
329 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
330 casify_region (CASE_CAPITALIZE_UP, beg, end);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
331 return Qnil;
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
332 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 Lisp_Object
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
335 operate_on_word (arg, newpoint)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 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
337 int *newpoint;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 {
1505
4f138b03e5ab * casefiddle.c (operate_on_word): Declare end to be an int, not a
Jim Blandy <jimb@redhat.com>
parents: 484
diff changeset
339 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
340 int farend;
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
341 int iarg;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40103
diff changeset
343 CHECK_NUMBER (arg);
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
344 iarg = XINT (arg);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
345 farend = scan_words (PT, iarg);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 if (!farend)
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
347 farend = iarg > 0 ? ZV : BEGV;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
349 *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
350 XSETFASTINT (val, farend);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 return val;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 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
356 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
357 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
358 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
359 (arg)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 Lisp_Object arg;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
362 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
363 int newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
364 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
365 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
366 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
367 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 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
372 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
373 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
374 (arg)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 Lisp_Object arg;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
377 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
378 int newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
379 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
380 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
381 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
382 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386 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
387 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
388 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
389 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
390 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
391 (arg)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392 Lisp_Object arg;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
394 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
395 int newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
396 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
397 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
398 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
399 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
400 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
401 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
402
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
403 void
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
404 syms_of_casefiddle ()
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405 {
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
406 Qidentity = intern ("identity");
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
407 staticpro (&Qidentity);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
408 defsubr (&Supcase);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
409 defsubr (&Sdowncase);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 defsubr (&Scapitalize);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
411 defsubr (&Supcase_initials);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412 defsubr (&Supcase_region);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 defsubr (&Sdowncase_region);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 defsubr (&Scapitalize_region);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
415 defsubr (&Supcase_initials_region);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416 defsubr (&Supcase_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417 defsubr (&Sdowncase_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 defsubr (&Scapitalize_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
421 void
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 keys_of_casefiddle ()
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 initial_define_key (control_x_map, Ctl('U'), "upcase-region");
484
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
425 Fput (intern ("upcase-region"), Qdisabled, Qt);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 initial_define_key (control_x_map, Ctl('L'), "downcase-region");
484
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
427 Fput (intern ("downcase-region"), Qdisabled, Qt);
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
428
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 initial_define_key (meta_map, 'u', "upcase-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 initial_define_key (meta_map, 'l', "downcase-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 initial_define_key (meta_map, 'c', "capitalize-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 47965
diff changeset
433
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 47965
diff changeset
434 /* arch-tag: 60a73c66-5489-47e7-a81f-cead4057c526
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 47965
diff changeset
435 (do not change this comment) */