diff options
| author | Jim Blandy | 1992-10-07 20:42:40 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-10-07 20:42:40 +0000 |
| commit | 0d73ca8156c17b1174576108a99bed4fe1b46719 (patch) | |
| tree | 9ecd4aebe3ea10f3d6f77eb8eacb0cc5083a19fe /src/alloc.c | |
| parent | 5bf3eac4a6c10e331e08b5d62c98ae95c3648fd2 (diff) | |
| download | emacs-0d73ca8156c17b1174576108a99bed4fe1b46719.tar.gz emacs-0d73ca8156c17b1174576108a99bed4fe1b46719.zip | |
* alloc.c (Fmemory_limit): Explain why we divide by 1024.
Don't bother trying to display the size in the minibuffer.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/alloc.c b/src/alloc.c index dcdbd65d85e..9f5cdd0822e 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -2015,15 +2015,12 @@ compact_strings () | |||
| 2015 | DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, "", | 2015 | DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, "", |
| 2016 | "Return the address of the last byte Emacs has allocated, divided by 1024.\n\ | 2016 | "Return the address of the last byte Emacs has allocated, divided by 1024.\n\ |
| 2017 | This may be helpful in debugging Emacs's memory usage.\n\ | 2017 | This may be helpful in debugging Emacs's memory usage.\n\ |
| 2018 | If called interactively, print the result in the minibuffer.") | 2018 | The value is divided by 1024 to make sure it will fit in a lisp integer.") |
| 2019 | () | 2019 | () |
| 2020 | { | 2020 | { |
| 2021 | Lisp_Object end; | 2021 | Lisp_Object end; |
| 2022 | 2022 | ||
| 2023 | XSET (end, Lisp_Int, (int) sbrk (0)); | 2023 | XSET (end, Lisp_Int, (int) sbrk (0) / 1024); |
| 2024 | |||
| 2025 | if (! NILP (Finteractive_p)) | ||
| 2026 | message ("Memory limit at %dk.", XINT (end)); | ||
| 2027 | 2024 | ||
| 2028 | return end; | 2025 | return end; |
| 2029 | } | 2026 | } |