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 ()
 DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, "",
   "Return the address of the last byte Emacs has allocated, divided by 1024.\n\
 This may be helpful in debugging Emacs's memory usage.\n\
-If called interactively, print the result in the minibuffer.")
+The value is divided by 1024 to make sure it will fit in a lisp integer.")
   ()
 {
   Lisp_Object end;
 
-  XSET (end, Lisp_Int, (int) sbrk (0));
-
-  if (! NILP (Finteractive_p))
-    message ("Memory limit at %dk.", XINT (end));
+  XSET (end, Lisp_Int, (int) sbrk (0) / 1024);
 
   return end;
 }