Mercurial > hg > xemacs-beta

comparison src/eval.c @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 501cfd01ee6d
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
1055 void.) 1055 void.)
1056 If SYMBOL is buffer-local, its default value is what is set; 1056 If SYMBOL is buffer-local, its default value is what is set;
1057 buffer-local values are not affected. 1057 buffer-local values are not affected.
1058 INITVALUE and DOCSTRING are optional. 1058 INITVALUE and DOCSTRING are optional.
1059 If DOCSTRING starts with *, this variable is identified as a user option. 1059 If DOCSTRING starts with *, this variable is identified as a user option.
1060 This means that M-x set-variable and M-x edit-options recognize it. 1060 This means that M-x set-variable recognizes it.
1061 If INITVALUE is missing, SYMBOL's value is not set. 1061 If INITVALUE is missing, SYMBOL's value is not set.
1062 1062
1063 In lisp-interaction-mode defvar is treated as defconst. 1063 In lisp-interaction-mode defvar is treated as defconst.
1064 */ 1064 */
1065 (args)) 1065 (args))
1105 Always sets the value of SYMBOL to the result of evalling INITVALUE. 1105 Always sets the value of SYMBOL to the result of evalling INITVALUE.
1106 If SYMBOL is buffer-local, its default value is what is set; 1106 If SYMBOL is buffer-local, its default value is what is set;
1107 buffer-local values are not affected. 1107 buffer-local values are not affected.
1108 DOCSTRING is optional. 1108 DOCSTRING is optional.
1109 If DOCSTRING starts with *, this variable is identified as a user option. 1109 If DOCSTRING starts with *, this variable is identified as a user option.
1110 This means that M-x set-variable and M-x edit-options recognize it. 1110 This means that M-x set-variable recognizes it.
1111 1111
1112 Note: do not use `defconst' for user options in libraries that are not 1112 Note: do not use `defconst' for user options in libraries that are not
1113 normally loaded, since it is useful for users to be able to specify 1113 normally loaded, since it is useful for users to be able to specify
1114 their own values for such variables before loading the library. 1114 their own values for such variables before loading the library.
1115 Since `defconst' unconditionally assigns the variable, 1115 Since `defconst' unconditionally assigns the variable,
3313 if (SYMBOLP (function)) 3313 if (SYMBOLP (function))
3314 function = indirect_function (function, 1); 3314 function = indirect_function (function, 1);
3315 3315
3316 if (SUBRP (function)) 3316 if (SUBRP (function))
3317 { 3317 {
3318 return function_min_args_p ? 3318 /* Using return with the ?: operator tickles a DEC CC compiler bug. */
3319 Fsubr_min_args (function): 3319 if (function_min_args_p)
3320 Fsubr_max_args (function); 3320 return Fsubr_min_args (function);
3321 else
3322 return Fsubr_max_args (function);
3321 } 3323 }
3322 else if (COMPILED_FUNCTIONP (function)) 3324 else if (COMPILED_FUNCTIONP (function))
3323 { 3325 {
3324 arglist = compiled_function_arglist (XCOMPILED_FUNCTION (function)); 3326 arglist = compiled_function_arglist (XCOMPILED_FUNCTION (function));
3325 } 3327 }