X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fsymbols.c;h=db4fbe411ed0094fd450fec6602022b84dc671f0;hb=5adee1a44654464bbe3928edcca9ec1744ed45b2;hp=bb0fae059ba28ef7285c5ecd14c40659621cddeb;hpb=82f6d62ee211b1d36e8f45fed3ee3edde82b6916;p=chise%2Fxemacs-chise.git.1 diff --git a/src/symbols.c b/src/symbols.c index bb0fae0..db4fbe4 100644 --- a/src/symbols.c +++ b/src/symbols.c @@ -735,7 +735,7 @@ Set SYMBOL's property list to NEWPLIST, and return NEWPLIST. #if 0 /* Inserted for debugging 6/28/1997 -slb */ /* Somebody is setting a property list of integer 0, who? */ /* Not this way apparently. */ - if (EQ(newplist, Qzero)) abort(); + if (EQ(newplist, Qzero)) ABORT(); #endif XSYMBOL (symbol)->plist = newplist; @@ -790,10 +790,15 @@ Set SYMBOL's property list to NEWPLIST, and return NEWPLIST. the symbol-value-forward. (See below.) SYMVAL_FIXNUM_FORWARD: + (declare with DEFVAR_INT) + Similar to SYMVAL_OBJECT_FORWARD except that the C variable + is of type "Fixnum", a typedef for "EMACS_INT", and the corresponding + lisp variable is always the corresponding integer. + SYMVAL_BOOLEAN_FORWARD: - (declare with DEFVAR_INT or DEFVAR_BOOL) + (declare with DEFVAR_BOOL) Similar to SYMVAL_OBJECT_FORWARD except that the C variable - is of type "int" and is an integer or boolean, respectively. + is of type "int" and is a boolean. SYMVAL_CONST_OBJECT_FORWARD: SYMVAL_CONST_FIXNUM_FORWARD: @@ -1073,7 +1078,7 @@ do_symval_forwarding (Lisp_Object valcontents, struct buffer *buffer, { case SYMVAL_FIXNUM_FORWARD: case SYMVAL_CONST_FIXNUM_FORWARD: - return make_int (*((int *)symbol_value_forward_forward (fwd))); + return make_int (*((Fixnum *)symbol_value_forward_forward (fwd))); case SYMVAL_BOOLEAN_FORWARD: case SYMVAL_CONST_BOOLEAN_FORWARD: @@ -1113,7 +1118,7 @@ do_symval_forwarding (Lisp_Object valcontents, struct buffer *buffer, return valcontents; default: - abort (); + ABORT (); } return Qnil; /* suppress compiler warning */ } @@ -1246,7 +1251,7 @@ store_symval_forwarding (Lisp_Object sym, Lisp_Object ovalue, CHECK_INT (newval); if (magicfun) magicfun (sym, &newval, Qnil, 0); - *((int *) symbol_value_forward_forward (fwd)) = XINT (newval); + *((Fixnum *) symbol_value_forward_forward (fwd)) = XINT (newval); return; case SYMVAL_BOOLEAN_FORWARD: @@ -1289,7 +1294,7 @@ store_symval_forwarding (Lisp_Object sym, Lisp_Object ovalue, return; default: - abort (); + ABORT (); } } } @@ -1885,7 +1890,7 @@ Set SYMBOL's value to NEWVAL, and return NEWVAL. break; } default: - abort (); + ABORT (); } store_symval_forwarding (symbol, valcontents, newval); @@ -2154,7 +2159,7 @@ sets it. return variable; default: - abort (); + ABORT (); } } @@ -2163,6 +2168,7 @@ sets it. = alloc_lcrecord_type (struct symbol_value_buffer_local, &lrecord_symbol_value_buffer_local); Lisp_Object foo; + zero_lcrecord (&bfwd->magic); bfwd->magic.type = SYMVAL_BUFFER_LOCAL; bfwd->default_value = find_symbol_value (variable); @@ -2263,13 +2269,14 @@ Use `make-local-hook' instead. } default: - abort (); + ABORT (); } } /* Make sure variable is set up to hold per-buffer values */ bfwd = alloc_lcrecord_type (struct symbol_value_buffer_local, &lrecord_symbol_value_buffer_local); + zero_lcrecord (&bfwd->magic); bfwd->magic.type = SYMVAL_SOME_BUFFER_LOCAL; bfwd->current_buffer = Qnil; @@ -2337,7 +2344,7 @@ Use `make-local-hook' instead. break; default: - abort (); + ABORT (); } } @@ -2655,7 +2662,7 @@ The returned info will be a symbol, one of case SYMVAL_UNBOUND_MARKER: return Qnil; default: - abort (); return Qnil; + ABORT (); return Qnil; } } @@ -2853,7 +2860,7 @@ decode_magic_handler_type (Lisp_Object symbol) if (EQ (symbol, Qmake_local)) return MAGIC_HANDLER_MAKE_LOCAL; signal_simple_error ("Unrecognized symbol value handler type", symbol); - abort (); + ABORT (); return MAGIC_HANDLER_MAX; } @@ -2886,7 +2893,7 @@ handler_type_from_function_symbol (Lisp_Object funsym, int abort_if_not_found) return MAGIC_HANDLER_MAKE_LOCAL; if (abort_if_not_found) - abort (); + ABORT (); signal_simple_error ("Unrecognized symbol-value function", funsym); return MAGIC_HANDLER_MAX; } @@ -2990,6 +2997,7 @@ pity, thereby invalidating your code. { bfwd = alloc_lcrecord_type (struct symbol_value_lisp_magic, &lrecord_symbol_value_lisp_magic); + zero_lcrecord (&bfwd->magic); bfwd->magic.type = SYMVAL_LISP_MAGIC; for (i = 0; i < MAGIC_HANDLER_MAX; i++) { @@ -3126,6 +3134,7 @@ has a buffer-local value in any buffer, or the symbols nil or t. bfwd = alloc_lcrecord_type (struct symbol_value_varalias, &lrecord_symbol_value_varalias); + zero_lcrecord (&bfwd->magic); bfwd->magic.type = SYMVAL_VARALIAS; bfwd->aliasee = alias; bfwd->shadowed = valcontents; @@ -3183,6 +3192,31 @@ variable chain of symbols. return follow_varalias_pointers (object, follow_past_lisp_magic); } +DEFUN ("variable-binding-locus", Fvariable_binding_locus, 1, 1, 0, /* +Return a value indicating where VARIABLE's current binding comes from. +If the current binding is buffer-local, the value is the current buffer. +If the current binding is global (the default), the value is nil. +*/ + (variable)) +{ + Lisp_Object valcontents; + + CHECK_SYMBOL (variable); + variable = Findirect_variable (variable, Qnil); + + /* Make sure the current binding is actually swapped in. */ + find_symbol_value (variable); + + valcontents = XSYMBOL (variable)->value; + + if (SYMBOL_VALUE_MAGIC_P (valcontents) + && ((XSYMBOL_VALUE_MAGIC_TYPE (valcontents) == SYMVAL_BUFFER_LOCAL) + || (XSYMBOL_VALUE_MAGIC_TYPE (valcontents) == SYMVAL_SOME_BUFFER_LOCAL)) + && (!NILP (Flocal_variable_p (variable, Fcurrent_buffer (), Qnil)))) + return Fcurrent_buffer (); + else + return Qnil; +} /************************************************************************/ /* initialization */ @@ -3255,13 +3289,18 @@ init_symbols_once_early (void) XSYMBOL (Qnil)->function = Qunbound; +#ifdef UTF2000 + /* [tomo:2002-01-22] We should not define Qunloaded as a normal symbol */ + defsymbol (&Qunloaded, "#"); +#endif + defsymbol (&Qt, "t"); XSYMBOL (Qt)->value = Qt; /* Veritas aeterna */ Vquit_flag = Qnil; - pdump_wire (&Qnil); - pdump_wire (&Qunbound); - pdump_wire (&Vquit_flag); + dump_add_root_object (&Qnil); + dump_add_root_object (&Qunbound); + dump_add_root_object (&Vquit_flag); } void @@ -3283,8 +3322,8 @@ defsymbol_massage_name_1 (Lisp_Object *location, const char *name, int dump_p, int multiword_predicate_p) { char temp[500]; - int len = strlen (name) - 1; - int i; + size_t len = strlen (name) - 1; + size_t i; if (multiword_predicate_p) assert (len + 1 < sizeof (temp)); @@ -3360,7 +3399,7 @@ void defkeyword_massage_name (Lisp_Object *location, const char *name) { char temp[500]; - int len = strlen (name); + size_t len = strlen (name); assert (len < sizeof (temp)); strcpy (temp, name); @@ -3495,8 +3534,8 @@ deferror_massage_name_and_message (Lisp_Object *symbol, const char *name, Lisp_Object inherits_from) { char temp[500]; - int i; - int len = strlen (name) - 1; + size_t i; + size_t len = strlen (name) - 1; assert (len < sizeof (temp)); strcpy (temp, name + 1); /* Remove initial Q */ @@ -3539,7 +3578,6 @@ syms_of_symbols (void) DEFSYMBOL (Qsymbol_value_in_buffer); DEFSYMBOL (Qsymbol_value_in_console); DEFSYMBOL (Qlocal_variable_p); - DEFSYMBOL (Qconst_integer); DEFSYMBOL (Qconst_boolean); DEFSYMBOL (Qconst_object); @@ -3586,6 +3624,7 @@ syms_of_symbols (void) DEFSUBR (Fdefvaralias); DEFSUBR (Fvariable_alias); DEFSUBR (Findirect_variable); + DEFSUBR (Fvariable_binding_locus); DEFSUBR (Fdontusethis_set_symbol_value_handler); }