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