diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-13 22:04:02 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-13 22:04:02 -0700 |
| commit | a7ca3326c4740ed3ed118b794d35d235de49f346 (patch) | |
| tree | 5d38e0eac8e839c84a4ccb6e8a07c3c7858fff54 /src/chartab.c | |
| parent | e87b6180b08c60a256dd8557945321ce2354a3a9 (diff) | |
| download | emacs-a7ca3326c4740ed3ed118b794d35d235de49f346.tar.gz emacs-a7ca3326c4740ed3ed118b794d35d235de49f346.tar.bz2 emacs-a7ca3326c4740ed3ed118b794d35d235de49f346.zip | |
Undo the DEFUN->DEFUE change.
Diffstat (limited to 'src/chartab.c')
| -rw-r--r-- | src/chartab.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/chartab.c b/src/chartab.c index 2f0e88bd404..eb72d973c87 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -54,7 +54,7 @@ static const int chartab_bits[4] = (((c) - (min_char)) >> chartab_bits[(depth)]) -DEFUE ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0, +DEFUN ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0, doc: /* Return a newly created char-table, with purpose PURPOSE. Each element is initialized to INIT, which defaults to nil. @@ -459,7 +459,7 @@ then the actual applicable value is inherited from the parent char-table return XCHAR_TABLE (char_table)->parent; } -DEFUE ("set-char-table-parent", Fset_char_table_parent, Sset_char_table_parent, +DEFUN ("set-char-table-parent", Fset_char_table_parent, Sset_char_table_parent, 2, 2, 0, doc: /* Set the parent char-table of CHAR-TABLE to PARENT. Return PARENT. PARENT must be either nil or another char-table. */) @@ -483,7 +483,7 @@ Return PARENT. PARENT must be either nil or another char-table. */) return parent; } -DEFUE ("char-table-extra-slot", Fchar_table_extra_slot, Schar_table_extra_slot, +DEFUN ("char-table-extra-slot", Fchar_table_extra_slot, Schar_table_extra_slot, 2, 2, 0, doc: /* Return the value of CHAR-TABLE's extra-slot number N. */) (Lisp_Object char_table, Lisp_Object n) @@ -497,7 +497,7 @@ DEFUE ("char-table-extra-slot", Fchar_table_extra_slot, Schar_table_extra_slot, return XCHAR_TABLE (char_table)->extras[XINT (n)]; } -DEFUE ("set-char-table-extra-slot", Fset_char_table_extra_slot, +DEFUN ("set-char-table-extra-slot", Fset_char_table_extra_slot, Sset_char_table_extra_slot, 3, 3, 0, doc: /* Set CHAR-TABLE's extra-slot number N to VALUE. */) @@ -541,7 +541,7 @@ a cons of character codes (for characters in the range), or a character code. * return val; } -DEFUE ("set-char-table-range", Fset_char_table_range, Sset_char_table_range, +DEFUN ("set-char-table-range", Fset_char_table_range, Sset_char_table_range, 3, 3, 0, doc: /* Set the value in CHAR-TABLE for a range of characters RANGE to VALUE. RANGE should be t (for all characters), nil (for the default value), @@ -626,7 +626,7 @@ optimize_sub_char_table (Lisp_Object table, Lisp_Object test) return (optimizable ? elt : table); } -DEFUE ("optimize-char-table", Foptimize_char_table, Soptimize_char_table, +DEFUN ("optimize-char-table", Foptimize_char_table, Soptimize_char_table, 1, 2, 0, doc: /* Optimize CHAR-TABLE. TEST is the comparison function used to decide whether two entries are |