diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Random utility Lisp functions. | 1 | /* Random utility Lisp functions. |
| 2 | Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 2002 | 2 | Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 02, 2003 |
| 3 | Free Software Foundation, Inc. | 3 | Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| @@ -4748,13 +4748,13 @@ sweep_weak_table (h, remove_entries_p) | |||
| 4748 | /* Make sure key and value survive. */ | 4748 | /* Make sure key and value survive. */ |
| 4749 | if (!key_known_to_survive_p) | 4749 | if (!key_known_to_survive_p) |
| 4750 | { | 4750 | { |
| 4751 | mark_object (&HASH_KEY (h, i)); | 4751 | mark_object (HASH_KEY (h, i)); |
| 4752 | marked = 1; | 4752 | marked = 1; |
| 4753 | } | 4753 | } |
| 4754 | 4754 | ||
| 4755 | if (!value_known_to_survive_p) | 4755 | if (!value_known_to_survive_p) |
| 4756 | { | 4756 | { |
| 4757 | mark_object (&HASH_VALUE (h, i)); | 4757 | mark_object (HASH_VALUE (h, i)); |
| 4758 | marked = 1; | 4758 | marked = 1; |
| 4759 | } | 4759 | } |
| 4760 | } | 4760 | } |