comparison src/alloc.c @ 16538:1e1026e6cd9d

(Fgarbage_collect): Use Vhistory_length for truncating Vcommand_history.

16537:f47030b411f9

#else
#define	__malloc_size_t		unsigned int
#endif
extern __malloc_size_t _bytes_used;
extern int __malloc_extra_blocks;

#define max(A,B) ((A) > (B) ? (A) : (B))
#define min(A,B) ((A) < (B) ? (A) : (B))

/* Macro to verify that storage intended for Lisp objects is not

#endif /* MAX_SAVE_STACK > 0 */

  if (garbage_collection_messages)
    message1_nolog ("Garbage collecting...");

  /* Don't keep command history around forever */
  tem = Fnthcdr (make_number (30), Vcommand_history);
  if (CONSP (tem))
    XCONS (tem)->cdr = Qnil;

  /* Likewise for undo information.  */
  {
    register struct buffer *nextb = all_buffers;

16538:1e1026e6cd9d

#else
#define	__malloc_size_t		unsigned int
#endif
extern __malloc_size_t _bytes_used;
extern int __malloc_extra_blocks;

extern Lisp_Object Vhistory_length;

#define max(A,B) ((A) > (B) ? (A) : (B))
#define min(A,B) ((A) < (B) ? (A) : (B))

/* Macro to verify that storage intended for Lisp objects is not

#endif /* MAX_SAVE_STACK > 0 */

  if (garbage_collection_messages)
    message1_nolog ("Garbage collecting...");

  /* Don't keep command history around forever.  */
  if (NUMBERP (Vhistory_length) && XINT (Vhistory_length) > 0)
    {
      tem = Fnthcdr (Vhistory_length, Vcommand_history);
      if (CONSP (tem))
	XCONS (tem)->cdr = Qnil;
    }

  /* Likewise for undo information.  */
  {
    register struct buffer *nextb = all_buffers;