procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(frame_allow_splitting): New variable.

Browse source 
(Fsplit_window): Ignore `unsplittable' if frame_allow_splitting.
(syms_of_window): Set up Lisp var.
This commit is contained in:
Richard M. Stallman 1997-04-23 00:30:43 +00:00
parent 38c1d5e379
commit 7d601aaaf6
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/window.c
View file

@ -119,6 +119,9 @@ Lisp_Object Vwindow_configuration_change_hook;
at the same screen height as previously. */
static int scroll_preserve_screen_position;
/* Non-nil means we can split a frame even if it is "unsplittable". */
static int frame_override_unsplittable;
#define min(a, b) ((a) < (b) ? (a) : (b))
extern int scroll_margin;
@ -2387,7 +2390,7 @@ and put SIZE columns in the first of the pair.")
if (MINI_WINDOW_P (o))
error ("Attempt to split minibuffer window");
else if (FRAME_NO_SPLIT_P (fo))
else if (FRAME_NO_SPLIT_P (fo) && ! frame_override_unsplittable)
error ("Attempt to split unsplittable frame");
check_min_window_sizes ();
@ -3767,6 +3770,12 @@ If there is only one window, it is split regardless of this value.");
The selected frae is the one whose configuration has changed.");
Vwindow_configuration_change_hook = Qnil;
DEFVAR_BOOL ("frame-override-unsplittable", &frame_override_unsplittable,
"Non-nil means allow splitting an `unsplittable' frame.\n\
\(That means, a frame whise `unsplittable' parameter is non-nil.)\n\
Packages such as Ispell that work by splitting the selected frame\n\
can bind this, so that they will work when used in an unsplittable frame.");
defsubr (&Sselected_window);
defsubr (&Sminibuffer_window);
defsubr (&Swindow_minibuffer_p);