annotate src/casefiddle.c @ 21811:180afb14ad52

(main): Fix bug report address.
author Richard M. Stallman <rms@gnu.org>
date Tue, 28 Apr 1998 21:33:28 +0000
parents fa9ff387d260
children 2107e25fa56f
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.
20708
ed9ed828415e Update copyright year.
Richard M. Stallman <rms@gnu.org>
parents: 20611
diff changeset
2 Copyright (C) 1985, 1994, 1997 Free Software Foundation, Inc.
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 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
8 the Free Software Foundation; either version 2, or (at your option)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
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
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 2822
diff changeset
22 #include <config.h>
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 #include "lisp.h"
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 #include "buffer.h"
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
25 #include "charset.h"
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #include "commands.h"
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #include "syntax.h"
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 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
30
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
31 Lisp_Object Qidentity;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 Lisp_Object
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 casify_object (flag, obj)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 enum case_action flag;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 Lisp_Object obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 register int i, c, len;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 register int inword = flag == CASE_DOWN;
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
40 Lisp_Object tem;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41
15170
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
42 /* 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
43 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
44 Fset_case_table (current_buffer->downcase_table);
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
45
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 while (1)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 {
9137
412e94c1dbf2 (casify_object): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9053
diff changeset
48 if (INTEGERP (obj))
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 {
18613
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 18136
diff changeset
50 c = DOWNCASE (XFASTINT (obj));
18136
015e9e4a90ed (casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents: 18005
diff changeset
51 if (inword)
015e9e4a90ed (casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents: 18005
diff changeset
52 XSETFASTINT (obj, c);
015e9e4a90ed (casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents: 18005
diff changeset
53 else if (c == XFASTINT (obj))
015e9e4a90ed (casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents: 18005
diff changeset
54 {
18613
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 18136
diff changeset
55 c = UPCASE1 (XFASTINT (obj));
18136
015e9e4a90ed (casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents: 18005
diff changeset
56 XSETFASTINT (obj, c);
015e9e4a90ed (casify_object): Fix bug on handling a character
Kenichi Handa <handa@m17n.org>
parents: 18005
diff changeset
57 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 return obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 }
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
60
9137
412e94c1dbf2 (casify_object): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9053
diff changeset
61 if (STRINGP (obj))
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 {
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
63 int multibyte = STRING_MULTIBYTE (obj);
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
64
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 obj = Fcopy_sequence (obj);
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 20708
diff changeset
66 len = STRING_BYTES (XSTRING (obj));
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
67
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
68 /* Scan all single-byte characters from start of string. */
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
69 for (i = 0; i < len;)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 c = XSTRING (obj)->data[i];
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
72
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
73 if (multibyte && c >= 0x80)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
74 /* A multibyte character can't be handled in this
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
75 simple loop. */
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
76 break;
9052
6de22822cf72 (upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
77 if (inword && flag != CASE_CAPITALIZE_UP)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 c = DOWNCASE (c);
9052
6de22822cf72 (upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
79 else if (!UPPERCASEP (c)
6de22822cf72 (upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
80 && (!inword || flag != CASE_CAPITALIZE_UP))
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 c = UPCASE1 (c);
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
82 /* If this char won't fit in a single-byte string.
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
83 fall out to the multibyte case. */
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
84 if (multibyte ? ! ASCII_BYTE_P (c)
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
85 : ! SINGLE_BYTE_CHAR_P (c))
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
86 break;
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
87
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 XSTRING (obj)->data[i] = c;
9052
6de22822cf72 (upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
89 if ((int) flag >= (int) CASE_CAPITALIZE)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 inword = SYNTAX (c) == Sword;
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
91 i++;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 }
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
93
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
94 /* If we didn't do the whole string as single-byte,
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
95 scan the rest in a more complex way. */
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
96 if (i < len)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
97 {
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
98 /* The work is not yet finished because of a multibyte
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
99 character just encountered. */
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
100 int fromlen, tolen, j = i, j_byte = i;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
101 char *buf
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
102 = (char *) alloca ((len - i) * MAX_LENGTH_OF_MULTI_BYTE_FORM
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
103 + i);
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
104 unsigned char *str, workbuf[4];
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
105
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
106 /* Copy data already handled. */
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
107 bcopy (XSTRING (obj)->data, buf, i);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
108
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
109 /* From now on, I counts bytes. */
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
110 while (i < len)
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 c = STRING_CHAR_AND_LENGTH (XSTRING (obj)->data + i,
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
113 len - i, fromlen);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
114 if (inword && flag != CASE_CAPITALIZE_UP)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
115 c = DOWNCASE (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
116 else if (!UPPERCASEP (c)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
117 && (!inword || flag != CASE_CAPITALIZE_UP))
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
118 c = UPCASE1 (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
119 tolen = CHAR_STRING (c, workbuf, str);
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
120 bcopy (str, buf + j_byte, tolen);
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
121 i += fromlen;
20611
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
122 j++;
e351676e5044 (casify_object): Scan string by bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 20543
diff changeset
123 j_byte += tolen;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
124 if ((int) flag >= (int) CASE_CAPITALIZE)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
125 inword = SYNTAX (c) == Sword;
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
126 }
21256
0fda3f197f9c (casify_object): Use make_specified_string.
Richard M. Stallman <rms@gnu.org>
parents: 21244
diff changeset
127 obj = make_specified_string (buf, j, j_byte,
0fda3f197f9c (casify_object): Use make_specified_string.
Richard M. Stallman <rms@gnu.org>
parents: 21244
diff changeset
128 STRING_MULTIBYTE (obj));
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
129 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 return obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 }
1926
952f2a18f83d * callint.c (Fcall_interactively): Pass the correct number of
Jim Blandy <jimb@redhat.com>
parents: 1505
diff changeset
132 obj = wrong_type_argument (Qchar_or_string_p, obj);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 DEFUN ("upcase", Fupcase, Supcase, 1, 1, 0,
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 "Convert argument to upper case and return that.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 The argument may be a character or string. The result has the same type.\n\
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
139 The argument object is not altered--the value is a copy.\n\
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
140 See also `capitalize', `downcase' and `upcase-initials'.")
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 (obj)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 Lisp_Object obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 return casify_object (CASE_UP, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 DEFUN ("downcase", Fdowncase, Sdowncase, 1, 1, 0,
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 "Convert argument to lower case and return that.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 The argument may be a character or string. The result has the same type.\n\
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
150 The argument object is not altered--the value is a copy.")
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 (obj)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 Lisp_Object obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 return casify_object (CASE_DOWN, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 DEFUN ("capitalize", Fcapitalize, Scapitalize, 1, 1, 0,
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 "Convert argument to capitalized form and return that.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 This means that each word's first character is upper case\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 and the rest is lower case.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 The argument may be a character or string. The result has the same type.\n\
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
162 The argument object is not altered--the value is a copy.")
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 (obj)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 Lisp_Object obj;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 return casify_object (CASE_CAPITALIZE, obj);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 }
9052
6de22822cf72 (upcase_initials): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
168
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
169 /* 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
170
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
171 DEFUN ("upcase-initials", Fupcase_initials, Supcase_initials, 1, 1, 0,
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
172 "Convert the initial of each word in the argument to upper case.\n\
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
173 Do not change the other letters of each word.\n\
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
174 The argument may be a character or string. The result has the same type.\n\
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
175 The argument object is not altered--the value is a copy.")
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
176 (obj)
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
177 Lisp_Object obj;
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
178 {
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
179 return casify_object (CASE_CAPITALIZE_UP, obj);
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
180 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 /* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP.
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 b and e specify range of buffer to operate on. */
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
185 void
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 casify_region (flag, b, e)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 enum case_action flag;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 Lisp_Object b, e;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 register int i;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 register int c;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 register int inword = flag == CASE_DOWN;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
193 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
194 int start, end;
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
195 int start_byte, end_byte;
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
196 Lisp_Object ch, downch, val;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 if (EQ (b, e))
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 /* Not modifying because nothing marked */
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 return;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201
15170
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
202 /* 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
203 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
204 Fset_case_table (current_buffer->downcase_table);
0d698228e98c (casify_region, casify_object):
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
205
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206 validate_region (&b, &e);
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
207 start = XFASTINT (b);
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
208 end = XFASTINT (e);
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
209 modify_region (current_buffer, start, end);
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
210 record_change (start, end - start);
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
211 start_byte = CHAR_TO_BYTE (start);
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
212 end_byte = CHAR_TO_BYTE (end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
214 for (i = start_byte; i < end_byte; i++)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
215 {
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
216 c = FETCH_BYTE (i);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
217 if (multibyte && c >= 0x80)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
218 /* 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
219 break;
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
220 if (inword && flag != CASE_CAPITALIZE_UP)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
221 c = DOWNCASE (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
222 else if (!UPPERCASEP (c)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
223 && (!inword || flag != CASE_CAPITALIZE_UP))
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
224 c = UPCASE1 (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
225 FETCH_BYTE (i) = c;
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
226 if ((int) flag >= (int) CASE_CAPITALIZE)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
227 inword = SYNTAX (c) == Sword;
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
228 }
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
229 if (i < end_byte)
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
230 {
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
231 /* 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
232 just encountered. */
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
233 int opoint = PT;
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
234 int opoint_byte = PT_BYTE;
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
235 int c2;
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
236
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
237 while (i < end_byte)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
238 {
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
239 if ((c = FETCH_BYTE (i)) >= 0x80)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
240 c = FETCH_MULTIBYTE_CHAR (i);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
241 c2 = c;
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
242 if (inword && flag != CASE_CAPITALIZE_UP)
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
243 c2 = DOWNCASE (c);
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
244 else if (!UPPERCASEP (c)
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
245 && (!inword || flag != CASE_CAPITALIZE_UP))
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
246 c2 = UPCASE1 (c);
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
247 if (c != c2)
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
248 {
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
249 int fromlen, tolen, j;
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
250 unsigned char workbuf[4], *str;
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
251
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
252 /* Handle the most likely case */
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
253 if (c < 0400 && c2 < 0400)
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
254 FETCH_BYTE (i) = c2;
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
255 else if (fromlen = CHAR_STRING (c, workbuf, str),
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
256 tolen = CHAR_STRING (c2, workbuf, str),
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
257 fromlen == tolen)
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
258 {
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
259 for (j = 0; j < tolen; ++j)
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
260 FETCH_BYTE (i + j) = str[j];
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
261 }
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
262 else
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
263 {
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
264 error ("Can't casify letters that change length");
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
265 #if 0 /* This is approximately what we'd like to be able to do here */
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
266 if (tolen < fromlen)
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
267 del_range_1 (i + tolen, i + fromlen, 0);
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
268 else if (tolen > fromlen)
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
269 {
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
270 TEMP_SET_PT (i + fromlen);
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
271 insert_1 (str + fromlen, tolen - fromlen, 1, 0, 0);
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
272 }
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
273 #endif
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
274 }
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
275 }
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
276 if ((int) flag >= (int) CASE_CAPITALIZE)
18005
ad95aa134d60 (casify_object): Handle multibyte characters.
Kenichi Handa <handa@m17n.org>
parents: 17816
diff changeset
277 inword = SYNTAX (c2) == Sword;
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
278 INC_POS (i);
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
279 }
20543
4dbda4b7c66f (casify_region): Scan in bytes and chars.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
280 TEMP_SET_PT_BOTH (opoint, opoint_byte);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
283 signal_after_change (start, end - start, end - start);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 DEFUN ("upcase-region", Fupcase_region, Supcase_region, 2, 2, "r",
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 "Convert the region to upper case. In programs, wants two arguments.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 These arguments specify the starting and ending character numbers of\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 the region to operate on. When used as a command, the text between\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 point and the mark is operated on.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 See also `capitalize-region'.")
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
292 (beg, end)
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
293 Lisp_Object beg, end;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
295 casify_region (CASE_UP, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 DEFUN ("downcase-region", Fdowncase_region, Sdowncase_region, 2, 2, "r",
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 "Convert the region to lower case. In programs, wants two arguments.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 These arguments specify the starting and ending character numbers of\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 the region to operate on. When used as a command, the text between\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 point and the mark is operated on.")
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
304 (beg, end)
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
305 Lisp_Object beg, end;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
307 casify_region (CASE_DOWN, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 DEFUN ("capitalize-region", Fcapitalize_region, Scapitalize_region, 2, 2, "r",
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 "Convert the region to capitalized form.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 Capitalized form means each word's first character is upper case\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 and the rest of it is lower case.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 In programs, give two arguments, the starting and ending\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 character positions to operate on.")
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
317 (beg, end)
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
318 Lisp_Object beg, end;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
320 casify_region (CASE_CAPITALIZE, beg, end);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
324 /* 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
325
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
326 DEFUN ("upcase-initials-region", Fupcase_initials_region,
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
327 Supcase_initials_region, 2, 2, "r",
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
328 "Upcase the initial of each word in the region.\n\
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
329 Subsequent letters of each word are not changed.\n\
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
330 In programs, give two arguments, the starting and ending\n\
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
331 character positions to operate on.")
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
332 (beg, end)
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
333 Lisp_Object beg, end;
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
334 {
14063
ef7d4117c601 (Fupcase_region, Fdowncase_region, Fcapitalize_region,
Erik Naggum <erik@naggum.no>
parents: 12244
diff changeset
335 casify_region (CASE_CAPITALIZE_UP, beg, end);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
336 return Qnil;
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
337 }
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 Lisp_Object
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
340 operate_on_word (arg, newpoint)
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 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
342 int *newpoint;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 {
1505
4f138b03e5ab * casefiddle.c (operate_on_word): Declare end to be an int, not a
Jim Blandy <jimb@redhat.com>
parents: 484
diff changeset
344 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
345 int farend;
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
346 int iarg;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 CHECK_NUMBER (arg, 0);
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
349 iarg = XINT (arg);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
350 farend = scan_words (PT, iarg);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351 if (!farend)
12089
f7cb17ca1815 (casify_region): Use explicit local vars for start
Karl Heuer <kwzh@gnu.org>
parents: 9299
diff changeset
352 farend = iarg > 0 ? ZV : BEGV;
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
354 *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
355 XSETFASTINT (val, farend);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357 return val;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 DEFUN ("upcase-word", Fupcase_word, Supcase_word, 1, 1, "p",
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 "Convert following word (or ARG words) to upper case, moving over.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 With negative argument, convert previous words but do not move.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 See also `capitalize-word'.")
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 (arg)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 Lisp_Object arg;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
367 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
368 int newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
369 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
370 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
371 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
372 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 DEFUN ("downcase-word", Fdowncase_word, Sdowncase_word, 1, 1, "p",
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 "Convert following word (or ARG words) to lower case, moving over.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378 With negative argument, convert previous words but do not move.")
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379 (arg)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380 Lisp_Object arg;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
382 Lisp_Object beg, end;
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
383 int newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
384 XSETFASTINT (beg, PT);
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
385 end = operate_on_word (arg, &newpoint);
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
386 casify_region (CASE_DOWN, beg, end);
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
387 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 DEFUN ("capitalize-word", Fcapitalize_word, Scapitalize_word, 1, 1, "p",
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392 "Capitalize the following word (or ARG words), moving over.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393 This gives the word(s) a first character in upper case\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394 and the rest lower case.\n\
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
395 With negative argument, capitalize previous words but do not move.")
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 (arg)
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397 Lisp_Object arg;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398 {
6221
c2d29681d218 (operate_on_word): Don't move point; store in *NEWPOINT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
399 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
400 int newpoint;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15170
diff changeset
401 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
402 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
403 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
404 SET_PT (newpoint);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405 return Qnil;
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
406 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
407
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
408 void
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
409 syms_of_casefiddle ()
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 {
17816
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
411 Qidentity = intern ("identity");
380442ed6a1c Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 17059
diff changeset
412 staticpro (&Qidentity);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 defsubr (&Supcase);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 defsubr (&Sdowncase);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 defsubr (&Scapitalize);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
416 defsubr (&Supcase_initials);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417 defsubr (&Supcase_region);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 defsubr (&Sdowncase_region);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 defsubr (&Scapitalize_region);
9053
4887fc1a2dda (Fupcase_initials_region): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9052
diff changeset
420 defsubr (&Supcase_initials_region);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 defsubr (&Supcase_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 defsubr (&Sdowncase_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 defsubr (&Scapitalize_word);
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 }
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21256
diff changeset
426 void
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
427 keys_of_casefiddle ()
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428 {
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 initial_define_key (control_x_map, Ctl('U'), "upcase-region");
484
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
430 Fput (intern ("upcase-region"), Qdisabled, Qt);
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 initial_define_key (control_x_map, Ctl('L'), "downcase-region");
484
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
432 Fput (intern ("downcase-region"), Qdisabled, Qt);
3165b2697c78 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 118
diff changeset
433
118
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 initial_define_key (meta_map, 'u', "upcase-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435 initial_define_key (meta_map, 'l', "downcase-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 initial_define_key (meta_map, 'c', "capitalize-word");
49342840ba00 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 }