diff options
| author | Dmitry Antipov | 2012-07-29 21:14:51 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-07-29 21:14:51 +0400 |
| commit | 7e63e0c3c6c94188a614cdd934a8e784c295fdc5 (patch) | |
| tree | a7e102cd4e204804b802d2e54c1bbfb94308c4ec /src/alloc.c | |
| parent | 1117bd24d198694f3f6922fa5c2abe5318b732cd (diff) | |
| download | emacs-7e63e0c3c6c94188a614cdd934a8e784c295fdc5.tar.gz emacs-7e63e0c3c6c94188a614cdd934a8e784c295fdc5.zip | |
Remove HIDE_LISP_IMPLEMENTATION and cleanup cons free list check.
* lisp.h (HIDE_LISP_IMPLEMENTATION): Remove as useless for a long
time. Adjust users.
(CHECK_CONS_LIST): Remove. Convert all users to check_cons_list.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/alloc.c b/src/alloc.c index 7680b3a2d84..f6f656fffa3 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -29,11 +29,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 29 | #include <pthread.h> | 29 | #include <pthread.h> |
| 30 | #endif | 30 | #endif |
| 31 | 31 | ||
| 32 | /* This file is part of the core Lisp implementation, and thus must | ||
| 33 | deal with the real data structures. If the Lisp implementation is | ||
| 34 | replaced, this file likely will not be used. */ | ||
| 35 | |||
| 36 | #undef HIDE_LISP_IMPLEMENTATION | ||
| 37 | #include "lisp.h" | 32 | #include "lisp.h" |
| 38 | #include "process.h" | 33 | #include "process.h" |
| 39 | #include "intervals.h" | 34 | #include "intervals.h" |
| @@ -5447,7 +5442,7 @@ See Info node `(elisp)Garbage Collection'. */) | |||
| 5447 | if (pure_bytes_used_before_overflow) | 5442 | if (pure_bytes_used_before_overflow) |
| 5448 | return Qnil; | 5443 | return Qnil; |
| 5449 | 5444 | ||
| 5450 | CHECK_CONS_LIST (); | 5445 | check_cons_list (); |
| 5451 | 5446 | ||
| 5452 | /* Don't keep undo information around forever. | 5447 | /* Don't keep undo information around forever. |
| 5453 | Do this early on, so it is no problem if the user quits. */ | 5448 | Do this early on, so it is no problem if the user quits. */ |
| @@ -5615,7 +5610,7 @@ See Info node `(elisp)Garbage Collection'. */) | |||
| 5615 | 5610 | ||
| 5616 | UNBLOCK_INPUT; | 5611 | UNBLOCK_INPUT; |
| 5617 | 5612 | ||
| 5618 | CHECK_CONS_LIST (); | 5613 | check_cons_list (); |
| 5619 | 5614 | ||
| 5620 | gc_in_progress = 0; | 5615 | gc_in_progress = 0; |
| 5621 | 5616 | ||