]> code.delx.au - gnu-emacs/blobdiff - src/casetab.c
Merge from trunk.
[gnu-emacs] / src / casetab.c
index 4bea6ee7e71c2246df1d0c490d0a14f1afe353c3..3433b313c037a045fa72f8d3829eeab9a3d1ba20 100644 (file)
@@ -81,7 +81,7 @@ This is the one used for new buffers.  */)
 
 static Lisp_Object set_case_table (Lisp_Object table, int standard);
 
-DEFUE ("set-case-table", Fset_case_table, Sset_case_table, 1, 1, 0,
+DEFUN ("set-case-table", Fset_case_table, Sset_case_table, 1, 1, 0,
        doc: /* Select a new case table for the current buffer.
 A case table is a char-table which maps characters
 to their lower-case equivalents.  It also has three \"extra\" slots
@@ -103,7 +103,7 @@ EQUIVALENCES is a map that cyclicly permutes each equivalence class
   return set_case_table (table, 0);
 }
 
-DEFUE ("set-standard-case-table", Fset_standard_case_table,
+DEFUN ("set-standard-case-table", Fset_standard_case_table,
        Sset_standard_case_table, 1, 1, 0,
        doc: /* Select a new standard case table for new buffers.
 See `set-case-table' for more info on case tables.  */)
@@ -244,8 +244,7 @@ init_casetab_once (void)
 {
   register int i;
   Lisp_Object down, up;
-  Qcase_table = intern_c_string ("case-table");
-  staticpro (&Qcase_table);
+  DEFSYM (Qcase_table, "case-table");
 
   /* Intern this now in case it isn't already done.
      Setting this variable twice is harmless.
@@ -288,8 +287,7 @@ init_casetab_once (void)
 void
 syms_of_casetab (void)
 {
-  Qcase_table_p = intern_c_string ("case-table-p");
-  staticpro (&Qcase_table_p);
+  DEFSYM (Qcase_table_p, "case-table-p");
 
   staticpro (&Vascii_canon_table);
   staticpro (&Vascii_downcase_table);