Mercurial > emacs
changeset 27226:44dc06740e6c
(Fuser_variable_p): Check customizability too.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 06 Jan 2000 16:37:03 +0000 |
| parents | ee242fddb1ab |
| children | 10ee0084db53 |
| files | src/eval.c |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Thu Jan 06 00:17:52 2000 +0000 +++ b/src/eval.c Thu Jan 06 16:37:03 2000 +0000 @@ -680,7 +680,9 @@ "Returns t if VARIABLE is intended to be set and modified by users.\n\ \(The alternative is a variable used internally in a Lisp program.)\n\ Determined by whether the first character of the documentation\n\ -for the variable is `*'.") +for the variable is `*' or if the variable is customizable (has a non-nil\n\ +value of any of `custom-type', `custom-loads' or `standard-value'\n\ +on its property list).") (variable) Lisp_Object variable; { @@ -701,6 +703,11 @@ && INTEGERP (XCDR (documentation)) && XINT (XCDR (documentation)) < 0) return Qt; + /* Customizable? */ + if ((!NILP (Fget (variable, intern ("custom-type")))) + || (!NILP (Fget (variable, intern ("custom-loads")))) + || (!NILP (Fget (variable, intern ("standard-value"))))) + return Qt; return Qnil; } @@ -2128,7 +2135,7 @@ /* If we are dying or still initializing, don't do anything--it would probably crash if we tried. */ if (NILP (Vrun_hooks)) - return; + return Qnil; sym = args[0]; val = find_symbol_value (sym);