]> git.eshelyaron.com Git - emacs.git/commitdiff
* src/window.c: Fix bootstrap failure due to window.el changes
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 2 Aug 2016 23:45:30 +0000 (19:45 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 2 Aug 2016 23:45:30 +0000 (19:45 -0400)
(sanitize_window_sizes): Adjust to new calling convention of
window--sanitize-window-sizes and only call it if defined.
(Fwindow__sanitize_window_sizes): Remove.
(syms_of_window): Don't defsubr it.

src/window.c

index e123b89aae3e14cad5ccfc634add069ab82b54c3..2ed83f4627e6657d6a5d9211c8fc8a7eba2a07c5 100644 (file)
@@ -2867,20 +2867,11 @@ resize_root_window (Lisp_Object window, Lisp_Object delta,
                horizontal, ignore, pixelwise);
 }
 
-/* Placeholder used by temacs -nw before window.el is loaded.  */
-DEFUN ("window--sanitize-window-sizes", Fwindow__sanitize_window_sizes,
-       Swindow__sanitize_window_sizes, 2, 2, 0,
-       doc: /* */
-       attributes: const)
-     (Lisp_Object frame, Lisp_Object horizontal)
-{
-  return Qnil;
-}
-
 Lisp_Object
 sanitize_window_sizes (Lisp_Object frame, Lisp_Object horizontal)
 {
-  return call2 (Qwindow__sanitize_window_sizes, frame, horizontal);
+  if (!NILP (Fsymbol_function (Qwindow__sanitize_window_sizes)))
+    return call1 (Qwindow__sanitize_window_sizes, horizontal);
 }
 
 
@@ -7576,7 +7567,6 @@ displayed after a scrolling operation to be somewhat inaccurate.  */);
   defsubr (&Sset_window_display_table);
   defsubr (&Snext_window);
   defsubr (&Sprevious_window);
-  defsubr (&Swindow__sanitize_window_sizes);
   defsubr (&Sget_buffer_window);
   defsubr (&Sdelete_other_windows_internal);
   defsubr (&Sdelete_window_internal);