Mercurial > emacs

changeset 46285:3f111801efb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 10 Jul 2002 08:45:24 +0000
parents 36c70758a8d7
children 6117ca314143
files src/alloc.c src/emacs.c src/fileio.c src/frame.c src/keyboard.c src/macfns.c src/minibuf.c src/undo.c src/w32fns.c src/window.c src/xdisp.c src/xfaces.c src/xfns.c src/xselect.c
diffstat 14 files changed, 37 insertions(+), 37 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/alloc.c	Wed Jul 10 08:45:24 2002 +0000
@@ -4048,7 +4048,7 @@
   register int i;
   int message_p;
   Lisp_Object total[8];
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
 
   /* Can't GC if pure storage overflowed because we can't determine
      if something is a pure object or not.  */
--- a/src/emacs.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/emacs.c	Wed Jul 10 08:45:24 2002 +0000
@@ -2057,7 +2057,7 @@
   extern char my_edata[];
   Lisp_Object tem;
   Lisp_Object symbol;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
 
   check_pure_size ();
 
--- a/src/fileio.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/fileio.c	Wed Jul 10 08:45:24 2002 +0000
@@ -3588,7 +3588,7 @@
   int inserted = 0;
   register int how_much;
   register int unprocessed;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   Lisp_Object handler, val, insval, orig_filename;
   Lisp_Object p;
--- a/src/frame.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/frame.c	Wed Jul 10 08:45:24 2002 +0000
@@ -2162,7 +2162,7 @@
 {
   FRAME_PTR f;
   register Lisp_Object tail, prop, val;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
 
   /* Bind this to t to inhibit initialization of the default face from
      X resources in face-set-after-frame-default.  If we don't inhibit
--- a/src/keyboard.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/keyboard.c	Wed Jul 10 08:45:24 2002 +0000
@@ -2090,7 +2090,7 @@
 	{
 	  if (STRINGP (help))
 	    {
-	      int count = BINDING_STACK_SIZE ();
+	      int count = SPECPDL_INDEX ();
 
 	      if (!help_echo_showing_p)
 		Vpre_help_message = current_message ();
@@ -4204,7 +4204,7 @@
 	  if (NILP (vector[0]))
 	    {
 	      int was_locked = single_kboard;
-	      int count = BINDING_STACK_SIZE ();
+	      int count = SPECPDL_INDEX ();
 	      Lisp_Object old_deactivate_mark = Vdeactivate_mark;
 
 	      /* Mark the timer as triggered to prevent problems if the lisp
@@ -9517,7 +9517,7 @@
 	  Lisp_Object binding;
 	  char *newmessage;
 	  int message_p = push_message ();
-	  int count = BINDING_STACK_SIZE ();
+	  int count = SPECPDL_INDEX ();
 
 	  record_unwind_protect (push_message_unwind, Qnil);
 	  binding = Fkey_description (bindings);
--- a/src/macfns.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/macfns.c	Wed Jul 10 08:45:24 2002 +0000
@@ -3825,7 +3825,7 @@
   int minibuffer_only = 0;
   long window_prompting = 0;
   int width, height;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   Lisp_Object display;
   struct mac_display_info *dpyinfo = NULL;
@@ -9750,7 +9750,7 @@
   GCPRO2 (frame, timer);
   tip_frame = tip_timer = deleted = Qnil;
   
-  count = BINDING_STACK_SIZE ();
+  count = SPECPDL_INDEX ();
   specbind (Qinhibit_redisplay, Qt);
   specbind (Qinhibit_quit, Qt);
   
--- a/src/minibuf.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/minibuf.c	Wed Jul 10 08:45:24 2002 +0000
@@ -565,7 +565,7 @@
 
   /* Erase the buffer.  */
   {
-    int count1 = BINDING_STACK_SIZE ();
+    int count1 = SPECPDL_INDEX ();
     specbind (Qinhibit_read_only, Qt);
     specbind (Qinhibit_modification_hooks, Qt);
     Ferase_buffer ();
--- a/src/undo.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/undo.c	Wed Jul 10 08:45:24 2002 +0000
@@ -399,7 +399,7 @@
 {
   struct gcpro gcpro1, gcpro2;
   Lisp_Object next;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   register int arg;
   
 #if 0  /* This is a good feature, but would make undo-start
--- a/src/w32fns.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/w32fns.c	Wed Jul 10 08:45:24 2002 +0000
@@ -5498,7 +5498,7 @@
   int minibuffer_only = 0;
   long window_prompting = 0;
   int width, height;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   Lisp_Object display;
   struct w32_display_info *dpyinfo = NULL;
@@ -13657,7 +13657,7 @@
   Lisp_Object name;
   long window_prompting = 0;
   int width, height;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3;
   struct kboard *kb;
   int face_change_count_before = face_change_count;
@@ -13997,7 +13997,7 @@
   int i, width, height;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   int old_windows_or_buffers_changed = windows_or_buffers_changed;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   
   specbind (Qinhibit_redisplay, Qt);
 
@@ -14228,7 +14228,7 @@
   GCPRO2 (frame, timer);
   tip_frame = tip_timer = deleted = Qnil;
   
-  count = BINDING_STACK_SIZE ();
+  count = SPECPDL_INDEX ();
   specbind (Qinhibit_redisplay, Qt);
   specbind (Qinhibit_quit, Qt);
   
--- a/src/window.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/window.c	Wed Jul 10 08:45:24 2002 +0000
@@ -4398,7 +4398,7 @@
      Lisp_Object n;
      int direction;
 {
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
 
   xassert (abs (direction) == 1);
 
@@ -4512,7 +4512,7 @@
 {
   Lisp_Object window;
   struct window *w;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
 
   window = Fother_window_for_scrolling ();
   w = XWINDOW (window);
--- a/src/xdisp.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/xdisp.c	Wed Jul 10 08:45:24 2002 +0000
@@ -1328,7 +1328,7 @@
     val = Qnil;
   else
     {
-      int count = BINDING_STACK_SIZE ();
+      int count = SPECPDL_INDEX ();
       struct gcpro gcpro1;
 
       GCPRO1 (sexpr);
@@ -1360,7 +1360,7 @@
     val = Qnil;
   else
     {
-      int count = BINDING_STACK_SIZE ();
+      int count = SPECPDL_INDEX ();
       struct gcpro gcpro1;
 
       GCPRO1 (args[0]);
@@ -2241,7 +2241,7 @@
 	  prop = Fget_char_property (pos, Qfontified, Qnil),
 	  NILP (prop)))
     {
-      int count = BINDING_STACK_SIZE ();
+      int count = SPECPDL_INDEX ();
       Lisp_Object val;
 
       val = Vfontification_functions;
@@ -2864,7 +2864,7 @@
 
   if (!NILP (form) && !EQ (form, Qt))
     {
-      int count = BINDING_STACK_SIZE ();
+      int count = SPECPDL_INDEX ();
       struct gcpro gcpro1;
 
       /* Bind `object' to the object having the `display' property, a
@@ -2935,7 +2935,7 @@
 	      /* Evaluate IT->font_height with `height' bound to the
 		 current specified height to get the new height.  */
 	      Lisp_Object value;
-	      int count = BINDING_STACK_SIZE ();
+	      int count = SPECPDL_INDEX ();
 
 	      specbind (Qheight, face->lface[LFACE_HEIGHT_INDEX]);
 	      value = safe_eval (it->font_height);
@@ -6271,7 +6271,7 @@
 {
   Lisp_Object buffer;
   int this_one, the_other, clear_buffer_p, rc;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
 
   /* If buffers aren't live, make new ones.  */
   ensure_echo_area_buffers ();
@@ -6446,7 +6446,7 @@
 
       if (Z > BEG)
 	{
-	  int count = BINDING_STACK_SIZE ();
+	  int count = SPECPDL_INDEX ();
 	  specbind (Qinhibit_read_only, Qt);
 	  del_range (BEG, Z);
 	  unbind_to (count, Qnil);
@@ -7126,7 +7126,7 @@
 	      /* Must update other windows.  Likewise as in other
 		 cases, don't let this update be interrupted by
 		 pending input.  */
-	      int count = BINDING_STACK_SIZE ();
+	      int count = SPECPDL_INDEX ();
 	      specbind (Qredisplay_dont_pause, Qt);
 	      windows_or_buffers_changed = 1;
 	      redisplay_internal (0);
@@ -7359,7 +7359,7 @@
   if (all_windows)
     {
       Lisp_Object tail, frame;
-      int count = BINDING_STACK_SIZE ();
+      int count = SPECPDL_INDEX ();
 
       record_unwind_protect (Fset_match_data, Fmatch_data (Qnil, Qnil));
 
@@ -7477,7 +7477,7 @@
 	      != !NILP (w->region_showing)))
 	{
 	  struct buffer *prev = current_buffer;
-	  int count = BINDING_STACK_SIZE ();
+	  int count = SPECPDL_INDEX ();
 
 	  specbind (Qinhibit_menubar_update, Qt);
 
@@ -7571,7 +7571,7 @@
 	      != !NILP (w->region_showing)))
 	{
 	  struct buffer *prev = current_buffer;
-	  int count = BINDING_STACK_SIZE ();
+	  int count = SPECPDL_INDEX ();
 
 	  /* Set current_buffer to the buffer of the selected
 	     window of the frame, so that we get the right local
@@ -8504,7 +8504,7 @@
 
   /* Record a function that resets redisplaying_p to its old value
      when we leave this function.  */
-  count = BINDING_STACK_SIZE ();
+  count = SPECPDL_INDEX ();
   record_unwind_protect (unwind_redisplay, make_number (redisplaying_p));
   ++redisplaying_p;
 
@@ -10090,7 +10090,7 @@
   /* Record it now because it's overwritten.  */
   int current_matrix_up_to_date_p = 0;
   int temp_scroll_step = 0;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   int rc;
   int centering_position;
 
--- a/src/xfaces.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/xfaces.c	Wed Jul 10 08:45:24 2002 +0000
@@ -6304,7 +6304,7 @@
       /* Try scalable fonts before giving up.  */
       if (nfonts == 0 && NILP (Vscalable_fonts_allowed))
 	{
-	  int count = BINDING_STACK_SIZE ();
+	  int count = SPECPDL_INDEX ();
 	  specbind (Qscalable_fonts_allowed, Qt);
 	  nfonts = try_alternative_families (f, family, registry, fonts);
 	  unbind_to (count, Qnil);
@@ -6450,7 +6450,7 @@
      struct frame *f;
 {
   int success_p = 0;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
 
   /* Block input here so that we won't be surprised by an X expose
      event, for instance, without having the faces set up.  */
--- a/src/xfns.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/xfns.c	Wed Jul 10 08:45:24 2002 +0000
@@ -4299,7 +4299,7 @@
   int minibuffer_only = 0;
   long window_prompting = 0;
   int width, height;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   Lisp_Object display;
   struct x_display_info *dpyinfo = NULL;
@@ -10932,7 +10932,7 @@
   Lisp_Object name;
   long window_prompting = 0;
   int width, height;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3;
   struct kboard *kb;
   int face_change_count_before = face_change_count;
@@ -11323,7 +11323,7 @@
   int i, width, height;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   int old_windows_or_buffers_changed = windows_or_buffers_changed;
-  int count = BINDING_STACK_SIZE ();
+  int count = SPECPDL_INDEX ();
   
   specbind (Qinhibit_redisplay, Qt);
 
@@ -11516,7 +11516,7 @@
   GCPRO2 (frame, timer);
   tip_frame = tip_timer = deleted = Qnil;
   
-  count = BINDING_STACK_SIZE ();
+  count = SPECPDL_INDEX ();
   specbind (Qinhibit_redisplay, Qt);
   specbind (Qinhibit_quit, Qt);
   
--- a/src/xselect.c	Wed Jul 10 08:41:28 2002 +0000
+++ b/src/xselect.c	Wed Jul 10 08:45:24 2002 +0000
@@ -786,7 +786,7 @@
     }
 
   x_selection_current_request = event;
-  count = BINDING_STACK_SIZE ();
+  count = SPECPDL_INDEX ();
   selection_request_dpyinfo = dpyinfo;
   record_unwind_protect (x_selection_request_lisp_error, Qnil);