HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove mention of latex-complete, which was removed before the release.
[bpt/emacs.git]
/
src
/
casetab.c
diff --git
a/src/casetab.c
b/src/casetab.c
index
d205600
..
ca8979b
100644
(file)
--- a/
src/casetab.c
+++ b/
src/casetab.c
@@
-1,6
+1,8
@@
/* GNU Emacs routines to deal with case tables.
/* GNU Emacs routines to deal with case tables.
- Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
- 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+ Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+ 2008, 2009 Free Software Foundation, Inc.
+
+Author: Howard Gayle
This file is part of GNU Emacs.
This file is part of GNU Emacs.
@@
-17,9
+19,8
@@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
-/* Written by Howard Gayle. */
-
#include <config.h>
#include <config.h>
+#include <setjmp.h>
#include "lisp.h"
#include "buffer.h"
#include "character.h"
#include "lisp.h"
#include "buffer.h"
#include "character.h"
@@
-229,7
+230,6
@@
shuffle (table, c, elt)
{
if (NATNUMP (elt))
{
{
if (NATNUMP (elt))
{
- Lisp_Object tem = Faref (table, elt);
int from, to;
if (CONSP (c))
int from, to;
if (CONSP (c))
@@
-241,11
+241,11
@@
shuffle (table, c, elt)
from = to = XINT (c);
for (; from <= to; from++)
from = to = XINT (c);
for (; from <= to; from++)
- if (from != XINT (elt))
- {
-
Faset (table, elt, make_number (from));
-
Faset (table, make_number (from), tem);
-
}
+ {
+ Lisp_Object tem = Faref (table, elt);
+ Faset (table, elt, make_number (from));
+ Faset (table, make_number (from), tem);
+ }
}
}
\f
}
}
\f
@@
-254,13
+254,13
@@
init_casetab_once ()
{
register int i;
Lisp_Object down, up;
{
register int i;
Lisp_Object down, up;
- Qcase_table = intern ("case-table");
+ Qcase_table = intern
_c_string
("case-table");
staticpro (&Qcase_table);
/* Intern this now in case it isn't already done.
Setting this variable twice is harmless.
But don't staticpro it here--that is done in alloc.c. */
staticpro (&Qcase_table);
/* Intern this now in case it isn't already done.
Setting this variable twice is harmless.
But don't staticpro it here--that is done in alloc.c. */
- Qchar_table_extra_slots = intern ("char-table-extra-slots");
+ Qchar_table_extra_slots = intern
_c_string
("char-table-extra-slots");
/* Now we are ready to set up this property, so we can
create char tables. */
/* Now we are ready to set up this property, so we can
create char tables. */
@@
-285,7
+285,7
@@
init_casetab_once ()
{
int c = ((i >= 'A' && i <= 'Z') ? i + ('a' - 'A')
: ((i >= 'a' && i <= 'z') ? i + ('A' - 'a')
{
int c = ((i >= 'A' && i <= 'Z') ? i + ('a' - 'A')
: ((i >= 'a' && i <= 'z') ? i + ('A' - 'a')
- : i));
;
+ : i));
CHAR_TABLE_SET (up, i, make_number (c));
}
CHAR_TABLE_SET (up, i, make_number (c));
}
@@
-298,7
+298,7
@@
init_casetab_once ()
void
syms_of_casetab ()
{
void
syms_of_casetab ()
{
- Qcase_table_p = intern ("case-table-p");
+ Qcase_table_p = intern
_c_string
("case-table-p");
staticpro (&Qcase_table_p);
staticpro (&Vascii_canon_table);
staticpro (&Qcase_table_p);
staticpro (&Vascii_canon_table);