mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-07 15:21:46 +00:00
Don't let delete_frame select a tooltip frame (Bug#27647)
* src/frame.c (delete_frame): Don't select a tooltip frame. (Bug#27647)
This commit is contained in:
parent
e9dd580cc8
commit
6e6bf60eab
@ -1920,6 +1920,7 @@ delete_frame (Lisp_Object frame, Lisp_Object force)
|
||||
See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=15025. */
|
||||
FOR_EACH_FRAME (tail, frame1)
|
||||
if (!EQ (frame, frame1)
|
||||
&& NILP (Fframe_parameter (frame1, Qtooltip))
|
||||
&& (FRAME_TERMINAL (XFRAME (frame))
|
||||
== FRAME_TERMINAL (XFRAME (frame1)))
|
||||
&& FRAME_VISIBLE_P (XFRAME (frame1)))
|
||||
@ -1930,7 +1931,9 @@ delete_frame (Lisp_Object frame, Lisp_Object force)
|
||||
{
|
||||
FOR_EACH_FRAME (tail, frame1)
|
||||
{
|
||||
if (! EQ (frame, frame1) && FRAME_LIVE_P (XFRAME (frame1)))
|
||||
if (!EQ (frame, frame1)
|
||||
&& FRAME_LIVE_P (XFRAME (frame1))
|
||||
&& NILP (Fframe_parameter (frame1, Qtooltip)))
|
||||
{
|
||||
/* Do not change a text terminal's top-frame. */
|
||||
struct frame *f1 = XFRAME (frame1);
|
||||
|
Loading…
Reference in New Issue
Block a user