Mercurial > hg > xemacs-beta

comparison src/fns.c @ 5517:5e128eda1d1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Backed out changeset fa5fc2e3d9a6
author Didier Verna <didier@xemacs.org>
date Wed, 01 Jun 2011 14:53:44 +0200
parents fa5fc2e3d9a6
children 3310f36295a0
comparison
equal deleted inserted replaced
5516:fa5fc2e3d9a6 5517:5e128eda1d1f
6208 newplist); 6208 newplist);
6209 } 6209 }
6210 6210
6211 invalid_operation ("Not possible to set object's plist", object); 6211 invalid_operation ("Not possible to set object's plist", object);
6212 return Qnil; 6212 return Qnil;
6213 }
6214
6215
6216 DEFUN ("object-address", Fobject_address, 1, 1, 0, /*
6217 Return OBJECT's memory address as an integer.
6218 This may be useful for customized printing of unreadable Lisp objects.
6219 As this only makes sense for record type objects, this function returns nil
6220 for chars and integers.
6221 */
6222 (object))
6223 {
6224 switch (XTYPE (object))
6225 {
6226 case Lisp_Type_Int_Even:
6227 case Lisp_Type_Int_Odd:
6228 case Lisp_Type_Char:
6229 {
6230 return Qnil;
6231 }
6232 case Lisp_Type_Record:
6233 {
6234 return make_integer ((EMACS_INT) GET_VOID_FROM_LISP (object));
6235 }
6236 default:
6237 {
6238 signal_error (Qinternal_error,
6239 "Internal error: illegal lisp object tag type",
6240 object);
6241 }
6242 }
6243 } 6213 }
6244 6214
6245 6215
6246 6216
6247 static Lisp_Object 6217 static Lisp_Object
11814 DEFSUBR (Fget); 11784 DEFSUBR (Fget);
11815 DEFSUBR (Fput); 11785 DEFSUBR (Fput);
11816 DEFSUBR (Fremprop); 11786 DEFSUBR (Fremprop);
11817 DEFSUBR (Fobject_plist); 11787 DEFSUBR (Fobject_plist);
11818 DEFSUBR (Fobject_setplist); 11788 DEFSUBR (Fobject_setplist);
11819 DEFSUBR (Fobject_address);
11820 DEFSUBR (Fequal); 11789 DEFSUBR (Fequal);
11821 DEFSUBR (Fequalp); 11790 DEFSUBR (Fequalp);
11822 DEFSUBR (Ffill); 11791 DEFSUBR (Ffill);
11823 11792
11824 #ifdef SUPPORT_CONFOUNDING_FUNCTIONS 11793 #ifdef SUPPORT_CONFOUNDING_FUNCTIONS