Mercurial > hg > xemacs-beta
comparison src/lisp.h @ 4355:a2af1ff1761f
Provide a DEFAULT argument in #'intern-soft.
2007-12-24 Aidan Kehoe <kehoea@parhasard.net>
* symbols.c (Fintern_soft):
Provide a new optional third argument, DEFAULT, for those who want
to check if "nil" is a symbol or not. (More realistically, general
code that may get handed "nil" should probably use this argument.)
* keymap.c (define_key_check_and_coerce_keysym):
Call Fintern_soft with its new argument.
* lisp.h:
Update the declaration of Fintern_soft.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Mon, 24 Dec 2007 14:00:14 +0100 |
parents | d9eb5ea14f65 |
children | cacc942c0d0f |
comparison
equal
deleted
inserted
replaced
4353:4143b78d0df0 | 4355:a2af1ff1761f |
---|---|
5065 EXFUN (Fdefault_boundp, 1); | 5065 EXFUN (Fdefault_boundp, 1); |
5066 EXFUN (Fdefault_value, 1); | 5066 EXFUN (Fdefault_value, 1); |
5067 EXFUN (Ffboundp, 1); | 5067 EXFUN (Ffboundp, 1); |
5068 EXFUN (Ffset, 2); | 5068 EXFUN (Ffset, 2); |
5069 EXFUN (Fintern, 2); | 5069 EXFUN (Fintern, 2); |
5070 EXFUN (Fintern_soft, 2); | 5070 EXFUN (Fintern_soft, 3); |
5071 EXFUN (Fkill_local_variable, 1); | 5071 EXFUN (Fkill_local_variable, 1); |
5072 EXFUN (Fset, 2); | 5072 EXFUN (Fset, 2); |
5073 EXFUN (Fset_default, 2); | 5073 EXFUN (Fset_default, 2); |
5074 EXFUN (Fsymbol_function, 1); | 5074 EXFUN (Fsymbol_function, 1); |
5075 EXFUN (Fsymbol_name, 1); | 5075 EXFUN (Fsymbol_name, 1); |