HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make Emacs functions such as Fatom 'static' by default.
[bpt/emacs.git]
/
src
/
chartab.c
diff --git
a/src/chartab.c
b/src/chartab.c
index
7a0a3aa
..
50c3fd7
100644
(file)
--- a/
src/chartab.c
+++ b/
src/chartab.c
@@
-54,7
+54,7
@@
const int chartab_bits[4] =
(((c) - (min_char)) >> chartab_bits[(depth)])
(((c) - (min_char)) >> chartab_bits[(depth)])
-DEFU
N
("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0,
+DEFU
E
("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.
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;
}
return XCHAR_TABLE (char_table)->parent;
}
-DEFU
N
("set-char-table-parent", Fset_char_table_parent, Sset_char_table_parent,
+DEFU
E
("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. */)
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;
}
return parent;
}
-DEFU
N
("char-table-extra-slot", Fchar_table_extra_slot, Schar_table_extra_slot,
+DEFU
E
("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)
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
@@
DEFUN ("char-table-extra-slot", Fchar_table_extra_slot, Schar_table_extra_slot,
return XCHAR_TABLE (char_table)->extras[XINT (n)];
}
return XCHAR_TABLE (char_table)->extras[XINT (n)];
}
-DEFU
N
("set-char-table-extra-slot", Fset_char_table_extra_slot,
+DEFU
E
("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. */)
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;
}
return val;
}
-DEFU
N
("set-char-table-range", Fset_char_table_range, Sset_char_table_range,
+DEFU
E
("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),
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);
}
return (optimizable ? elt : table);
}
-DEFU
N
("optimize-char-table", Foptimize_char_table, Soptimize_char_table,
+DEFU
E
("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
1, 2, 0,
doc: /* Optimize CHAR-TABLE.
TEST is the comparison function used to decide whether two entries are