Mercurial > emacs

changeset 71967:3254b987edcb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(buffer_memory_full, memory_full): Use xsignal. Remove loop. (list1): New function.
author Kim F. Storm <storm@cua.dk>
date Tue, 18 Jul 2006 13:25:40 +0000
parents df9c2080845c
children b0505e901bff
files src/alloc.c
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Tue Jul 18 08:12:51 2006 +0000
+++ b/src/alloc.c	Tue Jul 18 13:25:40 2006 +0000
@@ -559,8 +559,7 @@
 
   /* This used to call error, but if we've run out of memory, we could
      get infinite recursion trying to build the string.  */
-  while (1)
-    Fsignal (Qnil, Vmemory_signal_data);
+  xsignal (Qnil, Vmemory_signal_data);
 }
 
 
@@ -2777,7 +2776,14 @@
 #endif
 }
 
-/* Make a list of 2, 3, 4 or 5 specified objects.  */
+/* Make a list of 1, 2, 3, 4 or 5 specified objects.  */
+
+Lisp_Object
+list1 (arg1)
+     Lisp_Object arg1;
+{
+  return Fcons (arg1, Qnil);
+}
 
 Lisp_Object
 list2 (arg1, arg2)
@@ -3493,8 +3499,7 @@
 
   /* This used to call error, but if we've run out of memory, we could
      get infinite recursion trying to build the string.  */
-  while (1)
-    Fsignal (Qnil, Vmemory_signal_data);
+  xsignal (Qnil, Vmemory_signal_data);
 }
 
 /* If we released our reserve (due to running out of memory),