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

(coordinates_in_window): Inside the window but outside

Browse source 
its box to the L or R, return ON_VERTICAL_BORDER.
(window_list_1): Rotate the list to start with WINDOW.
This commit is contained in:
Richard M. Stallman 2004-07-17 14:59:02 +00:00
parent 15479e8b2f
commit 403de3b40e
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/window.c
View file

@ -670,7 +670,7 @@ coordinates_in_window (w, x, y)
/* Outside any interesting column? */
if (*x < left_x || *x > right_x)
return ON_NOTHING;
return ON_VERTICAL_BORDER;
lmargin_width = window_box_width (w, LEFT_MARGIN_AREA);
rmargin_width = window_box_width (w, RIGHT_MARGIN_AREA);
@ -1799,7 +1799,7 @@ static Lisp_Object
window_list_1 (window, minibuf, all_frames)
Lisp_Object window, minibuf, all_frames;
{
Lisp_Object tail, list;
Lisp_Object tail, list, rest;
decode_next_window_args (&window, &minibuf, &all_frames);
list = Qnil;
@ -1808,7 +1808,17 @@ window_list_1 (window, minibuf, all_frames)
if (candidate_window_p (XCAR (tail), window, minibuf, all_frames))
list = Fcons (XCAR (tail), list);
return Fnreverse (list);
/* Rotate the list to start with WINDOW. */
list = Fnreverse (list);
rest = Fmemq (window, list);
if (!NILP (rest) && !EQ (rest, list))
{
for (tail = list; XCDR (tail) != rest; tail = XCDR (tail))
;
XSETCDR (tail, Qnil);
list = nconc2 (rest, list);
}
return list;
}