[Emacs-diffs] /srv/bzr/emacs/trunk r107584: Rename inhibit_window_configuration_change_hook to inhibit_lisp_code.

[Chong Yidong]

------------------------------------------------------------
revno: 107584
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2012-03-12 14:34:32 +0800
message:
  Rename inhibit_window_configuration_change_hook to inhibit_lisp_code.
  This is a tweak to r107391, suggested by Stefan.
  
  * eval.c (inhibit_lisp_code): Rename from
  inhibit_window_configuration_change_hook; move from window.c.
  
  * xfns.c (unwind_create_frame_1, Fx_create_frame):
  * window.c (run_window_configuration_change_hook)
  (syms_of_window): Callers changed.
modified:
  src/ChangeLog
  src/eval.c
  src/lisp.h
  src/window.c
  src/window.h
  src/xfns.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-03-11 17:08:10 +0000
+++ b/src/ChangeLog     2012-03-12 06:34:32 +0000
@@ -1,3 +1,12 @@
+2012-03-12  Chong Yidong  <address@hidden>
+
+       * eval.c (inhibit_lisp_code): Rename from
+       inhibit_window_configuration_change_hook; move from window.c.
+
+       * xfns.c (unwind_create_frame_1, Fx_create_frame):
+       * window.c (run_window_configuration_change_hook)
+       (syms_of_window): Callers changed.
+
 2012-03-11  Chong Yidong  <address@hidden>
 
        * keymap.c (Fkey_description): Doc fix (Bug#9700).

=== modified file 'src/eval.c'
--- a/src/eval.c        2012-02-15 04:00:34 +0000
+++ b/src/eval.c        2012-03-12 06:34:32 +0000
@@ -124,6 +124,12 @@
 
 int handling_signal;
 
+/* If non-nil, Lisp code must not be run since some part of Emacs is
+   in an inconsistent state.  Currently, x-create-frame uses this to
+   avoid triggering window-configuration-change-hook while the new
+   frame is half-initialized.  */
+Lisp_Object inhibit_lisp_code;
+
 static Lisp_Object funcall_lambda (Lisp_Object, ptrdiff_t, Lisp_Object *);
 static void unwind_to_catch (struct catchtag *, Lisp_Object) NO_RETURN;
 static int interactive_p (int);
@@ -3766,6 +3772,8 @@
   staticpro (&Vsignaling_function);
   Vsignaling_function = Qnil;
 
+  inhibit_lisp_code = Qnil;
+
   defsubr (&Sor);
   defsubr (&Sand);
   defsubr (&Sif);

=== modified file 'src/lisp.h'
--- a/src/lisp.h        2012-02-25 19:39:42 +0000
+++ b/src/lisp.h        2012-03-12 06:34:32 +0000
@@ -2937,6 +2937,7 @@
 extern Lisp_Object Qand_rest;
 extern Lisp_Object Vautoload_queue;
 extern Lisp_Object Vsignaling_function;
+extern Lisp_Object inhibit_lisp_code;
 extern int handling_signal;
 #if BYTE_MARK_STACK
 extern struct catchtag *catchlist;

=== modified file 'src/window.c'
--- a/src/window.c      2012-02-23 17:40:33 +0000
+++ b/src/window.c      2012-03-12 06:34:32 +0000
@@ -122,9 +122,6 @@
 /* Hook to run when window config changes.  */
 static Lisp_Object Qwindow_configuration_change_hook;
 
-/* If non-nil, run_window_configuration_change_hook does nothing.  */
-Lisp_Object inhibit_window_configuration_change_hook;
-
 /* Used by the function window_scroll_pixel_based */
 static int window_scroll_pixel_based_preserve_x;
 static int window_scroll_pixel_based_preserve_y;
@@ -2897,7 +2894,7 @@
     = Fdefault_value (Qwindow_configuration_change_hook);
   XSETFRAME (frame, f);
 
-  if (NILP (Vrun_hooks) || !NILP (inhibit_window_configuration_change_hook))
+  if (NILP (Vrun_hooks) || !NILP (inhibit_lisp_code))
     return;
 
   /* Use the right buffer.  Matters when running the local hooks.  */
@@ -6527,8 +6524,6 @@
   window_scroll_preserve_hpos = -1;
   window_scroll_preserve_vpos = -1;
 
-  inhibit_window_configuration_change_hook = Qnil;
-
   DEFVAR_LISP ("temp-buffer-show-function", Vtemp_buffer_show_function,
               doc: /* Non-nil means call as function to display a help buffer.
 The function is called with one argument, the buffer to be displayed.

=== modified file 'src/window.h'
--- a/src/window.h      2012-02-23 07:28:21 +0000
+++ b/src/window.h      2012-03-12 06:34:32 +0000
@@ -810,10 +810,6 @@
 
 extern Lisp_Object Vmouse_event;
 
-/* If non-nil, run_window_configuration_change_hook does nothing.  */
-
-extern Lisp_Object inhibit_window_configuration_change_hook;
-
 EXFUN (Fnext_window, 3);
 EXFUN (Fselect_window, 2);
 EXFUN (Fset_window_buffer, 3);

=== modified file 'src/xfns.c'
--- a/src/xfns.c        2012-02-23 07:28:21 +0000
+++ b/src/xfns.c        2012-03-12 06:34:32 +0000
@@ -2952,7 +2952,7 @@
 static Lisp_Object
 unwind_create_frame_1 (Lisp_Object val)
 {
-  inhibit_window_configuration_change_hook = val;
+  inhibit_lisp_code = val;
   return Qnil;
 }
 
@@ -3337,9 +3337,8 @@
      Vframe_list.  */
   {
     int count2 = SPECPDL_INDEX ();
-    record_unwind_protect (unwind_create_frame_1,
-                          inhibit_window_configuration_change_hook);
-    inhibit_window_configuration_change_hook = Qt;
+    record_unwind_protect (unwind_create_frame_1, inhibit_lisp_code);
+    inhibit_lisp_code = Qt;
 
     x_default_parameter (f, parms, Qmenu_bar_lines,
                         NILP (Vmenu_bar_mode)