1 |
/* Random utility Lisp functions. |
/* Random utility Lisp functions. |
2 |
Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 2002 |
Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 02, 2003 |
3 |
Free Software Foundation, Inc. |
Free Software Foundation, Inc. |
4 |
|
|
5 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
4748 |
/* Make sure key and value survive. */ |
/* Make sure key and value survive. */ |
4749 |
if (!key_known_to_survive_p) |
if (!key_known_to_survive_p) |
4750 |
{ |
{ |
4751 |
mark_object (&HASH_KEY (h, i)); |
mark_object (HASH_KEY (h, i)); |
4752 |
marked = 1; |
marked = 1; |
4753 |
} |
} |
4754 |
|
|
4755 |
if (!value_known_to_survive_p) |
if (!value_known_to_survive_p) |
4756 |
{ |
{ |
4757 |
mark_object (&HASH_VALUE (h, i)); |
mark_object (HASH_VALUE (h, i)); |
4758 |
marked = 1; |
marked = 1; |
4759 |
} |
} |
4760 |
} |
} |