mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

(Fset_default, Fset): Delete RTPC_REGISTER_BUG conditionals.

Browse source
This commit is contained in:
Richard M. Stallman 1994-09-24 00:17:57 +00:00
parent 16d71e8b20
commit 5c3416a57f
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/data.c
View file

@ -821,12 +821,7 @@ DEFUN ("set", Fset, Sset, 2, 2, 0,
{
int voide = (XTYPE (newval) == Lisp_Void || EQ (newval, Qunbound));
#ifndef RTPC_REGISTER_BUG
register Lisp_Object valcontents, tem1, current_alist_element;
#else /* RTPC_REGISTER_BUG */
register Lisp_Object tem1;
Lisp_Object valcontents, current_alist_element;
#endif /* RTPC_REGISTER_BUG */
CHECK_SYMBOL (sym, 0);
if (NILP (sym) || EQ (sym, Qt))
@ -1026,11 +1021,7 @@ for this variable.")
if (XTYPE (valcontents) == Lisp_Buffer_Objfwd)
{
register int idx = XUINT (valcontents);
#ifndef RTPC_REGISTER_BUG
register struct buffer *b;
#else
struct buffer *b;
#endif
register int mask = *(int *) (idx + (char *) &buffer_local_flags);
if (mask > 0)