Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 5229:7d06a8bf47d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move #'purecopy from alloc.c to being an obsolete alias for #'identity lisp/ChangeLog addition: 2010-06-08 Aidan Kehoe <kehoea@parhasard.net> * paragraphs.el (sentence-end): * gtk-faces.el: * custom.el (custom-declare-variable): Remove all core code calls to #'purecopy. * obsolete.el (purecopy): Make the function itself an obsolete alias to #'identity. src/ChangeLog addition: 2010-06-08 Aidan Kehoe <kehoea@parhasard.net> * alloc.c (Fpurecopy): Moved to obsolete.el as an alias for #'identity, marked obsolete.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 08 Jun 2010 15:58:47 +0100
parents 71ee43b8a74d
children c096d8051f89 308d34e9f07d
comparison
equal deleted inserted replaced
5228:5efbd1253905 5229:7d06a8bf47d2
3341 assert (!EQ (all_lcrecord_lists[type], Qzero)); 3341 assert (!EQ (all_lcrecord_lists[type], Qzero));
3342 3342
3343 free_managed_lcrecord (all_lcrecord_lists[type], rec); 3343 free_managed_lcrecord (all_lcrecord_lists[type], rec);
3344 } 3344 }
3345 #endif /* not NEW_GC */ 3345 #endif /* not NEW_GC */
3346
3347
3348 DEFUN ("purecopy", Fpurecopy, 1, 1, 0, /*
3349 Kept for compatibility, returns its argument.
3350 Old:
3351 Make a copy of OBJECT in pure storage.
3352 Recursively copies contents of vectors and cons cells.
3353 Does not copy symbols.
3354 */
3355 (object))
3356 {
3357 return object;
3358 }
3359 3346
3360 3347
3361 /************************************************************************/ 3348 /************************************************************************/
3362 /* Staticpro, MCpro */ 3349 /* Staticpro, MCpro */
3363 /************************************************************************/ 3350 /************************************************************************/
5720 DEFSUBR (Fmake_bit_vector); 5707 DEFSUBR (Fmake_bit_vector);
5721 DEFSUBR (Fmake_string); 5708 DEFSUBR (Fmake_string);
5722 DEFSUBR (Fstring); 5709 DEFSUBR (Fstring);
5723 DEFSUBR (Fmake_symbol); 5710 DEFSUBR (Fmake_symbol);
5724 DEFSUBR (Fmake_marker); 5711 DEFSUBR (Fmake_marker);
5725 DEFSUBR (Fpurecopy);
5726 #ifdef ALLOC_TYPE_STATS 5712 #ifdef ALLOC_TYPE_STATS
5727 DEFSUBR (Fobject_memory_usage_stats); 5713 DEFSUBR (Fobject_memory_usage_stats);
5728 DEFSUBR (Ftotal_object_memory_usage); 5714 DEFSUBR (Ftotal_object_memory_usage);
5729 #endif /* ALLOC_TYPE_STATS */ 5715 #endif /* ALLOC_TYPE_STATS */
5730 #ifdef MEMORY_USAGE_STATS 5716 #ifdef MEMORY_USAGE_STATS