Mercurial > hg > xemacs-beta
comparison src/symbols.c @ 4642:48b45a606961
Support #'function-arglist with built-in special forms.
Also fix a couple of bugs in lisp/help.el.
lisp/ChangeLog addition:
2009-06-14 Aidan Kehoe <kehoea@parhasard.net>
* help.el (describe-function-1):
Check macro-p, not macrop, when describing whether a symbol has an
associated macro or an associated function. Relevant with
autoloaded macros.
(function-arglist):
Accept multi-line arglists in built-in functions, as found in
#'write-region-internal. #'dontusethis-set-symbol-value-handler
is still broken for other reasons.
src/ChangeLog addition:
2009-06-14 Aidan Kehoe <kehoea@parhasard.net>
* eval.c (For):
* eval.c (Fand):
* eval.c (Fif):
* eval.c (Fwhen):
* eval.c (Fcond):
* eval.c (Fprogn):
* eval.c (Fprog1):
* eval.c (Fprog2):
* eval.c (FletX):
* eval.c (Flet):
* eval.c (Fwhile):
* eval.c (Fdefvar):
* eval.c (Fdefconst):
* eval.c (Frun_hooks):
* eval.c (Frun_hooks_with_args):
* eval.c (Frun_hooks_with_args_until_success):
* eval.c (Frun_hooks_with_args_until_failure):
Add arguments information, understood by #'function-arglist, to
all these special forms, functions and macros. Remove the
argument information that was already there that was not
understood by #'function-arglist.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 14 Jun 2009 15:07:13 +0100 |
parents | 69a1eda3da06 |
children | 8f1ee2d15784 |
comparison
equal
deleted
inserted
replaced
4641:a90b63846dc4 | 4642:48b45a606961 |
---|---|
3102 If you do, suffer the wrath of Ben, who is likely to rename | 3102 If you do, suffer the wrath of Ben, who is likely to rename |
3103 this function (or change the semantics of its arguments) without | 3103 this function (or change the semantics of its arguments) without |
3104 pity, thereby invalidating your code. | 3104 pity, thereby invalidating your code. |
3105 */ | 3105 */ |
3106 (variable, handler_type, handler, harg, | 3106 (variable, handler_type, handler, harg, |
3107 UNUSED (keep_existing))) | 3107 UNUSED (keep_existing ))) |
3108 { | 3108 { |
3109 Lisp_Object valcontents; | 3109 Lisp_Object valcontents; |
3110 struct symbol_value_lisp_magic *bfwd; | 3110 struct symbol_value_lisp_magic *bfwd; |
3111 enum lisp_magic_handler htype; | 3111 enum lisp_magic_handler htype; |
3112 int i; | 3112 int i; |