1 /* X Communication module for terminals which understand the X protocol.
2 Copyright (C) 1989, 93, 94, 95, 1996 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 /* Xt features made by Fred Pierresteguy. */
23 /* On 4.3 these lose if they come after xterm.h. */
24 /* On HP-UX 8.0 signal.h loses if it comes after config.h. */
25 /* Putting these at the beginning seems to be standard for other .c files. */
32 /* Need syssignal.h for various externs and definitions that may be required
33 by some configurations for calls to signal later in this source file. */
34 #include "syssignal.h"
39 #include "blockinput.h"
41 /* This may include sys/types.h, and that somehow loses
42 if this is not done before the other system files. */
44 #include <X11/cursorfont.h>
47 /* Load sys/types.h if not already loaded.
48 In some systems loading it twice is suicidal. */
50 #include <sys/types.h>
55 #include <sys/ioctl.h>
56 #endif /* ! defined (BSD) */
61 #ifndef INCLUDED_FCNTL
68 /* Caused redefinition of DBL_DIG on Netbsd; seems not to be needed. */
69 /* #include <sys/param.h> */
72 #include "dispextern.h"
73 #include "termhooks.h"
85 #include "intervals.h"
88 #include <X11/Shell.h>
92 extern void free_frame_menubar ();
93 extern FRAME_PTR
x_menubar_window_to_frame ();
94 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
96 extern void _XEditResCheckMessages ();
97 #endif /* not NO_EDITRES */
98 #endif /* USE_X_TOOLKIT */
100 #ifndef USE_X_TOOLKIT
101 #define x_any_window_to_frame x_window_to_frame
102 #define x_top_window_to_frame x_window_to_frame
107 #ifndef XtNinitialState
108 #define XtNinitialState "initialState"
112 #ifdef HAVE_SETLOCALE
113 /* So we can do setlocale. */
118 /* memmove will be defined as a macro in Xfuncs.h unless
119 <string.h> is included beforehand. The declaration for memmove in
120 <string.h> will cause a syntax error when Xfuncs.h later includes it. */
125 #define X_CONNECTION_LOCK_FLAG XlibDisplayWriting
129 #define min(a,b) ((a)<(b) ? (a) : (b))
132 #define max(a,b) ((a)>(b) ? (a) : (b))
135 /* This is a chain of structures for all the X displays currently in use. */
136 struct x_display_info
*x_display_list
;
138 /* This is a list of cons cells, each of the form (NAME . FONT-LIST-CACHE),
139 one for each element of x_display_list and in the same order.
140 NAME is the name of the frame.
141 FONT-LIST-CACHE records previous values returned by x-list-fonts. */
142 Lisp_Object x_display_name_list
;
144 /* Frame being updated by update_frame. This is declared in term.c.
145 This is set by update_begin and looked at by all the
146 XT functions. It is zero while not inside an update.
147 In that case, the XT functions assume that `selected_frame'
148 is the frame to apply to. */
149 extern struct frame
*updating_frame
;
151 /* This is a frame waiting to be autoraised, within XTread_socket. */
152 struct frame
*pending_autoraise_frame
;
155 /* The application context for Xt use. */
156 XtAppContext Xt_app_con
;
158 static String Xt_default_resources
[] =
164 /* During an update, maximum vpos for ins/del line operations to affect. */
166 static int flexlines
;
168 /* During an update, nonzero if chars output now should be highlighted. */
170 static int highlight
;
172 /* Nominal cursor position -- where to draw output.
173 During an update, these are different from the cursor-box position. */
180 Formerly, we used PointerMotionHintMask (in STANDARD_EVENT_MASK)
181 so that we would have to call XQueryPointer after each MotionNotify
182 event to ask for another such event. However, this made mouse tracking
183 slow, and there was a bug that made it eventually stop.
185 Simply asking for MotionNotify all the time seems to work better.
187 In order to avoid asking for motion events and then throwing most
188 of them away or busy-polling the server for mouse positions, we ask
189 the server for pointer motion hints. This means that we get only
190 one event per group of mouse movements. "Groups" are delimited by
191 other kinds of events (focus changes and button clicks, for
192 example), or by XQueryPointer calls; when one of these happens, we
193 get another MotionNotify event the next time the mouse moves. This
194 is at least as efficient as getting motion events when mouse
195 tracking is on, and I suspect only negligibly worse when tracking
198 /* Where the mouse was last time we reported a mouse event. */
199 static FRAME_PTR last_mouse_frame
;
200 static XRectangle last_mouse_glyph
;
202 /* The scroll bar in which the last X motion event occurred.
204 If the last X motion event occurred in a scroll bar, we set this
205 so XTmouse_position can know whether to report a scroll bar motion or
208 If the last X motion event didn't occur in a scroll bar, we set this
209 to Qnil, to tell XTmouse_position to return an ordinary motion event. */
210 static Lisp_Object last_mouse_scroll_bar
;
212 /* This is a hack. We would really prefer that XTmouse_position would
213 return the time associated with the position it returns, but there
214 doesn't seem to be any way to wrest the timestamp from the server
215 along with the position query. So, we just keep track of the time
216 of the last movement we received, and return that in hopes that
217 it's somewhat accurate. */
218 static Time last_mouse_movement_time
;
220 /* Incremented by XTread_socket whenever it really tries to read events. */
222 static int volatile input_signal_count
;
224 static int input_signal_count
;
227 /* Used locally within XTread_socket. */
228 static int x_noop_count
;
230 /* Initial values of argv and argc. */
231 extern char **initial_argv
;
232 extern int initial_argc
;
234 extern Lisp_Object Vcommand_line_args
, Vsystem_name
;
236 /* Tells if a window manager is present or not. */
238 extern Lisp_Object Vx_no_window_manager
;
240 extern Lisp_Object Qface
, Qmouse_face
;
244 /* A mask of extra modifier bits to put into every keyboard char. */
245 extern int extra_keyboard_modifiers
;
247 static Lisp_Object Qvendor_specific_keysyms
;
249 extern XrmDatabase
x_load_resources ();
251 extern Lisp_Object
x_icon_type ();
253 void x_delete_display ();
255 static void redraw_previous_char ();
256 static void redraw_following_char ();
257 static unsigned int x_x_to_emacs_modifiers ();
259 static int fast_find_position ();
260 static void note_mouse_highlight ();
261 static void clear_mouse_face ();
262 static void show_mouse_face ();
263 static void do_line_dance ();
265 static int XTcursor_to ();
266 static int XTclear_end_of_line ();
267 static int x_io_error_quitter ();
268 void x_catch_errors ();
269 void x_uncatch_errors ();
272 /* This is a function useful for recording debugging information
273 about the sequence of occurrences in this file. */
281 struct record event_record
[100];
283 int event_record_index
;
285 record_event (locus
, type
)
289 if (event_record_index
== sizeof (event_record
) / sizeof (struct record
))
290 event_record_index
= 0;
292 event_record
[event_record_index
].locus
= locus
;
293 event_record
[event_record_index
].type
= type
;
294 event_record_index
++;
299 /* Return the struct x_display_info corresponding to DPY. */
301 struct x_display_info
*
302 x_display_info_for_display (dpy
)
305 struct x_display_info
*dpyinfo
;
307 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
308 if (dpyinfo
->display
== dpy
)
314 /* Starting and ending updates.
316 These hooks are called by update_frame at the beginning and end
317 of a frame update. We record in `updating_frame' the identity
318 of the frame being updated, so that the XT... functions do not
319 need to take a frame as argument. Most of the XT... functions
320 should never be called except during an update, the only exceptions
321 being XTcursor_to, XTwrite_glyphs and XTreassert_line_highlight. */
332 flexlines
= f
->height
;
337 if (f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
)
339 /* Don't do highlighting for mouse motion during the update. */
340 FRAME_X_DISPLAY_INFO (f
)->mouse_face_defer
= 1;
342 /* If the frame needs to be redrawn,
343 simply forget about any prior mouse highlighting. */
344 if (FRAME_GARBAGED_P (f
))
345 FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
= Qnil
;
347 if (!NILP (FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
))
349 int firstline
, lastline
, i
;
350 struct window
*w
= XWINDOW (FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
);
352 /* Find the first, and the last+1, lines affected by redisplay. */
353 for (firstline
= 0; firstline
< f
->height
; firstline
++)
354 if (FRAME_DESIRED_GLYPHS (f
)->enable
[firstline
])
357 lastline
= f
->height
;
358 for (i
= f
->height
- 1; i
>= 0; i
--)
360 if (FRAME_DESIRED_GLYPHS (f
)->enable
[i
])
366 /* Can we tell that this update does not affect the window
367 where the mouse highlight is? If so, no need to turn off.
368 Likewise, don't do anything if the frame is garbaged;
369 in that case, the FRAME_CURRENT_GLYPHS that we would use
370 are all wrong, and we will redisplay that line anyway. */
371 if (! (firstline
> (XFASTINT (w
->top
) + window_internal_height (w
))
372 || lastline
< XFASTINT (w
->top
)))
373 clear_mouse_face (FRAME_X_DISPLAY_INFO (f
));
389 x_display_cursor (f
, 1);
391 if (f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
)
392 FRAME_X_DISPLAY_INFO (f
)->mouse_face_defer
= 0;
394 /* This fails in the case of having updated only the echo area
395 if we have switched buffers. In that case, FRAME_CURRENT_GLYPHS
396 has no relation to the current contents, and its charstarts
397 have no relation to the contents of the window-buffer.
398 I don't know a clean way to check
399 for that case. window_end_valid isn't set up yet. */
400 if (f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
)
401 note_mouse_highlight (f
, FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_x
,
402 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_y
);
405 XFlush (FRAME_X_DISPLAY (f
));
409 /* This is called after a redisplay on frame F. */
412 XTframe_up_to_date (f
)
416 if (FRAME_X_DISPLAY_INFO (f
)->mouse_face_deferred_gc
417 || f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
)
419 note_mouse_highlight (FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
,
420 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_x
,
421 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_y
);
422 FRAME_X_DISPLAY_INFO (f
)->mouse_face_deferred_gc
= 0;
427 /* External interface to control of standout mode.
428 Call this when about to modify line at position VPOS
429 and not change whether it is highlighted. */
431 XTreassert_line_highlight (new, vpos
)
437 /* Call this when about to modify line at position VPOS
438 and change whether it is highlighted. */
441 XTchange_line_highlight (new_highlight
, vpos
, first_unused_hpos
)
442 int new_highlight
, vpos
, first_unused_hpos
;
444 highlight
= new_highlight
;
445 XTcursor_to (vpos
, 0);
446 XTclear_end_of_line (updating_frame
->width
);
449 /* This is used when starting Emacs and when restarting after suspend.
450 When starting Emacs, no X window is mapped. And nothing must be done
451 to Emacs's own window if it is suspended (though that rarely happens). */
454 XTset_terminal_modes ()
458 /* This is called when exiting or suspending Emacs.
459 Exiting will make the X-windows go away, and suspending
460 requires no action. */
463 XTreset_terminal_modes ()
465 /* XTclear_frame (); */
468 /* Set the nominal cursor position of the frame.
469 This is where display update commands will take effect.
470 This does not affect the place where the cursor-box is displayed. */
473 XTcursor_to (row
, col
)
474 register int row
, col
;
482 if (updating_frame
== 0)
485 x_display_cursor (selected_frame
, 1);
486 XFlush (FRAME_X_DISPLAY (selected_frame
));
491 /* Display a sequence of N glyphs found at GP.
492 WINDOW is the x-window to output to. LEFT and TOP are starting coords.
493 HL is 1 if this text is highlighted, 2 if the cursor is on it,
494 3 if should appear in its mouse-face.
495 JUST_FOREGROUND if 1 means draw only the foreground;
496 don't alter the background.
498 FONT is the default font to use (for glyphs whose font-code is 0).
500 Since the display generation code is responsible for calling
501 compute_char_face and compute_glyph_face on everything it puts in
502 the display structure, we can assume that the face code on each
503 glyph is a valid index into FRAME_COMPUTED_FACES (f), and the one
504 to which we can actually apply intern_face.
505 Call this function with input blocked. */
508 /* This is the multi-face code. */
511 dumpglyphs (f
, left
, top
, gp
, n
, hl
, just_foreground
)
514 register GLYPH
*gp
; /* Points to first GLYPH. */
515 register int n
; /* Number of glyphs to display. */
519 /* Holds characters to be displayed. */
520 char *buf
= (char *) alloca (f
->width
* sizeof (*buf
));
521 register char *cp
; /* Steps through buf[]. */
522 register int tlen
= GLYPH_TABLE_LENGTH
;
523 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
524 Window window
= FRAME_X_WINDOW (f
);
525 int orig_left
= left
;
529 /* Get the face-code of the next GLYPH. */
533 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
534 cf
= FAST_GLYPH_FACE (g
);
536 /* Find the run of consecutive glyphs with the same face-code.
537 Extract their character codes into BUF. */
542 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
543 if (FAST_GLYPH_FACE (g
) != cf
)
546 *cp
++ = FAST_GLYPH_CHAR (g
);
551 /* LEN gets the length of the run. */
554 /* Now output this run of chars, with the font and pixel values
555 determined by the face code CF. */
557 struct face
*face
= FRAME_DEFAULT_FACE (f
);
558 XFontStruct
*font
= FACE_FONT (face
);
559 GC gc
= FACE_GC (face
);
562 /* HL = 3 means use a mouse face previously chosen. */
564 cf
= FRAME_X_DISPLAY_INFO (f
)->mouse_face_face_id
;
566 /* First look at the face of the text itself. */
569 /* It's possible for the display table to specify
570 a face code that is out of range. Use 0 in that case. */
571 if (cf
< 0 || cf
>= FRAME_N_COMPUTED_FACES (f
)
572 || FRAME_COMPUTED_FACES (f
) [cf
] == 0)
576 face
= FRAME_MODE_LINE_FACE (f
);
578 face
= intern_face (f
, FRAME_COMPUTED_FACES (f
) [cf
]);
579 font
= FACE_FONT (face
);
581 if (FACE_STIPPLE (face
))
585 /* Then comes the distinction between modeline and normal text. */
590 face
= FRAME_MODE_LINE_FACE (f
);
591 font
= FACE_FONT (face
);
593 if (FACE_STIPPLE (face
))
597 #define FACE_DEFAULT (~0)
599 /* Now override that if the cursor's on this character. */
602 /* The cursor overrides stippling. */
606 || face
->font
== (XFontStruct
*) FACE_DEFAULT
607 || face
->font
== f
->output_data
.x
->font
)
608 && face
->background
== f
->output_data
.x
->background_pixel
609 && face
->foreground
== f
->output_data
.x
->foreground_pixel
)
611 gc
= f
->output_data
.x
->cursor_gc
;
613 /* Cursor on non-default face: must merge. */
619 xgcv
.background
= f
->output_data
.x
->cursor_pixel
;
620 xgcv
.foreground
= face
->background
;
621 /* If the glyph would be invisible,
622 try a different foreground. */
623 if (xgcv
.foreground
== xgcv
.background
)
624 xgcv
.foreground
= face
->foreground
;
625 if (xgcv
.foreground
== xgcv
.background
)
626 xgcv
.foreground
= f
->output_data
.x
->cursor_foreground_pixel
;
627 if (xgcv
.foreground
== xgcv
.background
)
628 xgcv
.foreground
= face
->foreground
;
629 /* Make sure the cursor is distinct from text in this face. */
630 if (xgcv
.background
== face
->background
631 && xgcv
.foreground
== face
->foreground
)
633 xgcv
.background
= face
->foreground
;
634 xgcv
.foreground
= face
->background
;
636 xgcv
.font
= face
->font
->fid
;
637 xgcv
.graphics_exposures
= 0;
638 mask
= GCForeground
| GCBackground
| GCFont
| GCGraphicsExposures
;
639 if (FRAME_X_DISPLAY_INFO (f
)->scratch_cursor_gc
)
640 XChangeGC (FRAME_X_DISPLAY (f
),
641 FRAME_X_DISPLAY_INFO (f
)->scratch_cursor_gc
,
644 FRAME_X_DISPLAY_INFO (f
)->scratch_cursor_gc
645 = XCreateGC (FRAME_X_DISPLAY (f
), window
, mask
, &xgcv
);
646 gc
= FRAME_X_DISPLAY_INFO (f
)->scratch_cursor_gc
;
648 /* If this code is restored, it must also reset to the default stipple
650 if (face
->stipple
&& face
->stipple
!= FACE_DEFAULT
)
651 XSetStipple (FRAME_X_DISPLAY (f
), gc
, face
->stipple
);
656 if (font
== (XFontStruct
*) FACE_DEFAULT
)
657 font
= f
->output_data
.x
->font
;
660 XDrawString (FRAME_X_DISPLAY (f
), window
, gc
,
661 left
, top
+ FONT_BASE (font
), buf
, len
);
666 /* Turn stipple on. */
667 XSetFillStyle (FRAME_X_DISPLAY (f
), gc
, FillOpaqueStippled
);
669 /* Draw stipple on background. */
670 XFillRectangle (FRAME_X_DISPLAY (f
), window
, gc
,
672 FONT_WIDTH (font
) * len
,
675 /* Turn stipple off. */
676 XSetFillStyle (FRAME_X_DISPLAY (f
), gc
, FillSolid
);
678 /* Draw the text, solidly, onto the stipple pattern. */
679 XDrawString (FRAME_X_DISPLAY (f
), window
, gc
,
680 left
, top
+ FONT_BASE (font
), buf
, len
);
683 XDrawImageString (FRAME_X_DISPLAY (f
), window
, gc
,
684 left
, top
+ FONT_BASE (font
), buf
, len
);
686 /* Clear the rest of the line's height. */
687 if (f
->output_data
.x
->line_height
!= FONT_HEIGHT (font
))
688 XClearArea (FRAME_X_DISPLAY (f
), window
, left
,
689 top
+ FONT_HEIGHT (font
),
690 FONT_WIDTH (font
) * len
,
691 /* This is how many pixels of height
693 f
->output_data
.x
->line_height
- FONT_HEIGHT (font
),
697 #if 0 /* Doesn't work, because it uses FRAME_CURRENT_GLYPHS,
698 which often is not up to date yet. */
699 if (!just_foreground
)
701 if (left
== orig_left
)
702 redraw_previous_char (f
, PIXEL_TO_CHAR_COL (f
, left
),
703 PIXEL_TO_CHAR_ROW (f
, top
), hl
== 1);
705 redraw_following_char (f
, PIXEL_TO_CHAR_COL (f
, left
+ len
* FONT_WIDTH (font
)),
706 PIXEL_TO_CHAR_ROW (f
, top
), hl
== 1);
710 /* We should probably check for XA_UNDERLINE_POSITION and
711 XA_UNDERLINE_THICKNESS properties on the font, but let's
712 just get the thing working, and come back to that. */
714 int underline_position
= 1;
716 if (font
->descent
<= underline_position
)
717 underline_position
= font
->descent
- 1;
720 XFillRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
724 + underline_position
),
725 len
* FONT_WIDTH (font
), 1);
728 left
+= len
* FONT_WIDTH (font
);
735 /* This is the old single-face code. */
738 dumpglyphs (f
, left
, top
, gp
, n
, hl
, font
)
741 register GLYPH
*gp
; /* Points to first GLYPH. */
742 register int n
; /* Number of glyphs to display. */
747 Window window
= FRAME_X_WINDOW (f
);
748 GC drawing_gc
= (hl
== 2 ? f
->output_data
.x
->cursor_gc
749 : (hl
? f
->output_data
.x
->reverse_gc
750 : f
->output_data
.x
->normal_gc
));
752 if (sizeof (GLYPH
) == sizeof (XChar2b
))
753 XDrawImageString16 (FRAME_X_DISPLAY (f
), window
, drawing_gc
,
754 left
, top
+ FONT_BASE (font
), (XChar2b
*) gp
, n
);
755 else if (sizeof (GLYPH
) == sizeof (unsigned char))
756 XDrawImageString (FRAME_X_DISPLAY (f
), window
, drawing_gc
,
757 left
, top
+ FONT_BASE (font
), (char *) gp
, n
);
759 /* What size of glyph ARE you using? And does X have a function to
765 /* Output some text at the nominal frame cursor position.
766 Advance the cursor over the text.
767 Output LEN glyphs at START.
769 `highlight', set up by XTreassert_line_highlight or XTchange_line_highlight,
770 controls the pixel values used for foreground and background. */
773 XTwrite_glyphs (start
, len
)
774 register GLYPH
*start
;
777 register int temp_length
;
788 /* If not within an update,
789 output at the frame's visible cursor. */
790 curs_x
= f
->cursor_x
;
791 curs_y
= f
->cursor_y
;
795 CHAR_TO_PIXEL_COL (f
, curs_x
),
796 CHAR_TO_PIXEL_ROW (f
, curs_y
),
797 start
, len
, highlight
, 0);
799 /* If we drew on top of the cursor, note that it is turned off. */
800 if (curs_y
== f
->phys_cursor_y
801 && curs_x
<= f
->phys_cursor_x
802 && curs_x
+ len
> f
->phys_cursor_x
)
803 f
->phys_cursor_x
= -1;
805 if (updating_frame
== 0)
808 x_display_cursor (f
, 1);
817 /* Clear to the end of the line.
818 Erase the current text line from the nominal cursor position (inclusive)
819 to column FIRST_UNUSED (exclusive). The idea is that everything
820 from FIRST_UNUSED onward is already erased. */
823 XTclear_end_of_line (first_unused
)
824 register int first_unused
;
826 struct frame
*f
= updating_frame
;
832 if (curs_y
< 0 || curs_y
>= f
->height
)
834 if (first_unused
<= 0)
837 if (first_unused
>= f
->width
)
838 first_unused
= f
->width
;
844 /* Notice if the cursor will be cleared by this operation. */
845 if (curs_y
== f
->phys_cursor_y
846 && curs_x
<= f
->phys_cursor_x
847 && f
->phys_cursor_x
< first_unused
)
848 f
->phys_cursor_x
= -1;
850 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
851 CHAR_TO_PIXEL_COL (f
, curs_x
),
852 CHAR_TO_PIXEL_ROW (f
, curs_y
),
853 FONT_WIDTH (f
->output_data
.x
->font
) * (first_unused
- curs_x
),
854 f
->output_data
.x
->line_height
, False
);
856 redraw_previous_char (f
, curs_x
, curs_y
, highlight
);
866 struct frame
*f
= updating_frame
;
871 f
->phys_cursor_x
= -1; /* Cursor not visible. */
872 curs_x
= 0; /* Nominal cursor position is top left. */
877 XClearWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
879 /* We have to clear the scroll bars, too. If we have changed
880 colors or something like that, then they should be notified. */
881 x_scroll_bar_clear (f
);
883 XFlush (FRAME_X_DISPLAY (f
));
888 /* This currently does not work because FRAME_CURRENT_GLYPHS doesn't
889 always contain the right glyphs to use.
891 It also needs to be changed to look at the details of the font and
892 see whether there is really overlap, and do nothing when there is
893 not. This can use font_char_overlap_left and font_char_overlap_right,
894 but just how to use them is not clear. */
896 /* Erase the character (if any) at the position just before X, Y in frame F,
897 then redraw it and the character before it.
898 This is necessary when we erase starting at X,
899 in case the character after X overlaps into the one before X.
900 Call this function with input blocked. */
903 redraw_previous_char (f
, x
, y
, highlight_flag
)
908 /* Erase the character before the new ones, in case
909 what was here before overlaps it.
910 Reoutput that character, and the previous character
911 (in case the previous character overlaps it). */
917 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
918 CHAR_TO_PIXEL_COL (f
, x
- 1),
919 CHAR_TO_PIXEL_ROW (f
, y
),
920 FONT_WIDTH (f
->output_data
.x
->font
),
921 f
->output_data
.x
->line_height
, False
);
923 dumpglyphs (f
, CHAR_TO_PIXEL_COL (f
, start_x
),
924 CHAR_TO_PIXEL_ROW (f
, y
),
925 &FRAME_CURRENT_GLYPHS (f
)->glyphs
[y
][start_x
],
926 x
- start_x
, highlight_flag
, 1);
930 /* Erase the character (if any) at the position X, Y in frame F,
931 then redraw it and the character after it.
932 This is necessary when we erase endng at X,
933 in case the character after X overlaps into the one before X.
934 Call this function with input blocked. */
937 redraw_following_char (f
, x
, y
, highlight_flag
)
942 int limit
= FRAME_CURRENT_GLYPHS (f
)->used
[y
];
943 /* Erase the character after the new ones, in case
944 what was here before overlaps it.
945 Reoutput that character, and the following character
946 (in case the following character overlaps it). */
948 && FRAME_CURRENT_GLYPHS (f
)->glyphs
[y
][x
] != SPACEGLYPH
)
953 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
954 CHAR_TO_PIXEL_COL (f
, x
),
955 CHAR_TO_PIXEL_ROW (f
, y
),
956 FONT_WIDTH (f
->output_data
.x
->font
),
957 f
->output_data
.x
->line_height
, False
);
959 dumpglyphs (f
, CHAR_TO_PIXEL_COL (f
, x
),
960 CHAR_TO_PIXEL_ROW (f
, y
),
961 &FRAME_CURRENT_GLYPHS (f
)->glyphs
[y
][x
],
962 end_x
- x
, highlight_flag
, 1);
967 #if 0 /* Not in use yet */
969 /* Return 1 if character C in font F extends past its left edge. */
972 font_char_overlap_left (font
, c
)
978 /* Find the bounding-box info for C. */
979 if (font
->per_char
== 0)
980 s
= &font
->max_bounds
;
983 int rowlen
= font
->max_char_or_byte2
- font
->min_char_or_byte2
+ 1;
986 /* Decode char into row number (byte 1) and code within row (byte 2). */
989 if (!(within
>= font
->min_char_or_byte2
990 && within
<= font
->max_char_or_byte2
991 && row
>= font
->min_byte1
992 && row
<= font
->max_byte1
))
994 /* If char is out of range, try the font's default char instead. */
995 c
= font
->default_char
;
996 row
= c
>> (BITS_PER_INT
- 8);
999 if (!(within
>= font
->min_char_or_byte2
1000 && within
<= font
->max_char_or_byte2
1001 && row
>= font
->min_byte1
1002 && row
<= font
->max_byte1
))
1003 /* Still out of range means this char does not overlap. */
1006 /* We found the info for this char. */
1007 s
= (font
->per_char
+ (within
- font
->min_char_or_byte2
)
1011 return (s
&& s
->lbearing
< 0);
1014 /* Return 1 if character C in font F extends past its right edge. */
1017 font_char_overlap_right (font
, c
)
1023 /* Find the bounding-box info for C. */
1024 if (font
->per_char
== 0)
1025 s
= &font
->max_bounds
;
1028 int rowlen
= font
->max_char_or_byte2
- font
->min_char_or_byte2
+ 1;
1031 /* Decode char into row number (byte 1) and code within row (byte 2). */
1034 if (!(within
>= font
->min_char_or_byte2
1035 && within
<= font
->max_char_or_byte2
1036 && row
>= font
->min_byte1
1037 && row
<= font
->max_byte1
))
1039 /* If char is out of range, try the font's default char instead. */
1040 c
= font
->default_char
;
1041 row
= c
>> (BITS_PER_INT
- 8);
1044 if (!(within
>= font
->min_char_or_byte2
1045 && within
<= font
->max_char_or_byte2
1046 && row
>= font
->min_byte1
1047 && row
<= font
->max_byte1
))
1048 /* Still out of range means this char does not overlap. */
1051 /* We found the info for this char. */
1052 s
= (font
->per_char
+ (within
- font
->min_char_or_byte2
)
1056 return (s
&& s
->rbearing
>= s
->width
);
1060 /* Invert the middle quarter of the frame for .15 sec. */
1062 /* We use the select system call to do the waiting, so we have to make sure
1063 it's available. If it isn't, we just won't do visual bells. */
1064 #if defined (HAVE_TIMEVAL) && defined (HAVE_SELECT)
1066 /* Subtract the `struct timeval' values X and Y,
1067 storing the result in RESULT.
1068 Return 1 if the difference is negative, otherwise 0. */
1071 timeval_subtract (result
, x
, y
)
1072 struct timeval
*result
, x
, y
;
1074 /* Perform the carry for the later subtraction by updating y.
1075 This is safer because on some systems
1076 the tv_sec member is unsigned. */
1077 if (x
.tv_usec
< y
.tv_usec
)
1079 int nsec
= (y
.tv_usec
- x
.tv_usec
) / 1000000 + 1;
1080 y
.tv_usec
-= 1000000 * nsec
;
1083 if (x
.tv_usec
- y
.tv_usec
> 1000000)
1085 int nsec
= (y
.tv_usec
- x
.tv_usec
) / 1000000;
1086 y
.tv_usec
+= 1000000 * nsec
;
1090 /* Compute the time remaining to wait. tv_usec is certainly positive. */
1091 result
->tv_sec
= x
.tv_sec
- y
.tv_sec
;
1092 result
->tv_usec
= x
.tv_usec
- y
.tv_usec
;
1094 /* Return indication of whether the result should be considered negative. */
1095 return x
.tv_sec
< y
.tv_sec
;
1106 /* Create a GC that will use the GXxor function to flip foreground pixels
1107 into background pixels. */
1111 values
.function
= GXxor
;
1112 values
.foreground
= (f
->output_data
.x
->foreground_pixel
1113 ^ f
->output_data
.x
->background_pixel
);
1115 gc
= XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1116 GCFunction
| GCForeground
, &values
);
1120 int width
= PIXEL_WIDTH (f
);
1121 int height
= PIXEL_HEIGHT (f
);
1123 XFillRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), gc
,
1124 width
/4, height
/4, width
/2, height
/2);
1125 XFlush (FRAME_X_DISPLAY (f
));
1128 struct timeval wakeup
, now
;
1130 EMACS_GET_TIME (wakeup
);
1132 /* Compute time to wait until, propagating carry from usecs. */
1133 wakeup
.tv_usec
+= 150000;
1134 wakeup
.tv_sec
+= (wakeup
.tv_usec
/ 1000000);
1135 wakeup
.tv_usec
%= 1000000;
1137 /* Keep waiting until past the time wakeup. */
1140 struct timeval timeout
;
1142 EMACS_GET_TIME (timeout
);
1144 /* In effect, timeout = wakeup - timeout.
1145 Break if result would be negative. */
1146 if (timeval_subtract (&timeout
, wakeup
, timeout
))
1149 /* Try to wait that long--but we might wake up sooner. */
1150 select (0, NULL
, NULL
, NULL
, &timeout
);
1154 XFillRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), gc
,
1155 width
/4, height
/4, width
/2, height
/2);
1156 XFreeGC (FRAME_X_DISPLAY (f
), gc
);
1157 XFlush (FRAME_X_DISPLAY (f
));
1167 /* Make audible bell. */
1169 #define XRINGBELL XBell (FRAME_X_DISPLAY (selected_frame), 0)
1173 if (FRAME_X_DISPLAY (selected_frame
) == 0)
1176 #if defined (HAVE_TIMEVAL) && defined (HAVE_SELECT)
1178 XTflash (selected_frame
);
1184 XFlush (FRAME_X_DISPLAY (selected_frame
));
1189 /* Insert and delete character.
1190 These are not supposed to be used because we are supposed to turn
1191 off the feature of using them. */
1194 XTinsert_glyphs (start
, len
)
1195 register char *start
;
1208 /* Specify how many text lines, from the top of the window,
1209 should be affected by insert-lines and delete-lines operations.
1210 This, and those operations, are used only within an update
1211 that is bounded by calls to XTupdate_begin and XTupdate_end. */
1214 XTset_terminal_window (n
)
1217 if (updating_frame
== 0)
1220 if ((n
<= 0) || (n
> updating_frame
->height
))
1221 flexlines
= updating_frame
->height
;
1226 /* These variables need not be per frame
1227 because redisplay is done on a frame-by-frame basis
1228 and the line dance for one frame is finished before
1229 anything is done for anoter frame. */
1231 /* Array of line numbers from cached insert/delete operations.
1232 line_dance[i] is the old position of the line that we want
1233 to move to line i, or -1 if we want a blank line there. */
1234 static int *line_dance
;
1236 /* Allocated length of that array. */
1237 static int line_dance_len
;
1239 /* Flag indicating whether we've done any work. */
1240 static int line_dance_in_progress
;
1242 /* Perform an insert-lines or delete-lines operation,
1243 inserting N lines or deleting -N lines at vertical position VPOS. */
1244 XTins_del_lines (vpos
, n
)
1247 register int fence
, i
;
1249 if (vpos
>= flexlines
)
1252 if (!line_dance_in_progress
)
1254 int ht
= updating_frame
->height
;
1255 if (ht
> line_dance_len
)
1257 line_dance
= (int *)xrealloc (line_dance
, ht
* sizeof (int));
1258 line_dance_len
= ht
;
1260 for (i
= 0; i
< ht
; ++i
) line_dance
[i
] = i
;
1261 line_dance_in_progress
= 1;
1265 if (n
> flexlines
- vpos
)
1266 n
= flexlines
- vpos
;
1268 for (i
= flexlines
; --i
>= fence
;)
1269 line_dance
[i
] = line_dance
[i
-n
];
1270 for (i
= fence
; --i
>= vpos
;)
1276 if (n
> flexlines
- vpos
)
1277 n
= flexlines
- vpos
;
1278 fence
= flexlines
- n
;
1279 for (i
= vpos
; i
< fence
; ++i
)
1280 line_dance
[i
] = line_dance
[i
+ n
];
1281 for (i
= fence
; i
< flexlines
; ++i
)
1286 /* Here's where we actually move the pixels around.
1287 Must be called with input blocked. */
1291 register int i
, j
, distance
;
1292 register struct frame
*f
;
1296 /* Must check this flag first. If it's not set, then not only is the
1297 array uninitialized, but we might not even have a frame. */
1298 if (!line_dance_in_progress
)
1306 intborder
= f
->output_data
.x
->internal_border_width
;
1308 x_display_cursor (updating_frame
, 0);
1310 for (i
= 0; i
< ht
; ++i
)
1311 if (line_dance
[i
] != -1 && (distance
= line_dance
[i
]-i
) > 0)
1313 for (j
= i
; (j
< ht
&& line_dance
[j
] != -1
1314 && line_dance
[j
]-j
== distance
); ++j
);
1315 /* Copy [i,j) upward from [i+distance,j+distance) */
1316 XCopyArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1317 FRAME_X_WINDOW (f
), f
->output_data
.x
->normal_gc
,
1318 intborder
, CHAR_TO_PIXEL_ROW (f
, i
+distance
),
1319 f
->width
* FONT_WIDTH (f
->output_data
.x
->font
),
1320 (j
-i
) * f
->output_data
.x
->line_height
,
1321 intborder
, CHAR_TO_PIXEL_ROW (f
, i
));
1325 for (i
= ht
; --i
>=0; )
1326 if (line_dance
[i
] != -1 && (distance
= line_dance
[i
]-i
) < 0)
1328 for (j
= i
; (--j
>= 0 && line_dance
[j
] != -1
1329 && line_dance
[j
]-j
== distance
););
1330 /* Copy (j,i] downward from (j+distance, i+distance] */
1331 XCopyArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1332 FRAME_X_WINDOW (f
), f
->output_data
.x
->normal_gc
,
1333 intborder
, CHAR_TO_PIXEL_ROW (f
, j
+1+distance
),
1334 f
->width
* FONT_WIDTH (f
->output_data
.x
->font
),
1335 (i
-j
) * f
->output_data
.x
->line_height
,
1336 intborder
, CHAR_TO_PIXEL_ROW (f
, j
+1));
1340 for (i
= 0; i
< ht
; ++i
)
1341 if (line_dance
[i
] == -1)
1343 for (j
= i
; j
< ht
&& line_dance
[j
] == -1; ++j
);
1345 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1346 intborder
, CHAR_TO_PIXEL_ROW (f
, i
),
1347 f
->width
* FONT_WIDTH (f
->output_data
.x
->font
),
1348 (j
-i
) * f
->output_data
.x
->line_height
, False
);
1351 line_dance_in_progress
= 0;
1354 /* Support routines for exposure events. */
1355 static void clear_cursor ();
1357 /* Output into a rectangle of an X-window (for frame F)
1358 the characters in f->phys_lines that overlap that rectangle.
1359 TOP and LEFT are the position of the upper left corner of the rectangle.
1360 ROWS and COLS are the size of the rectangle.
1361 Call this function with input blocked. */
1364 dumprectangle (f
, left
, top
, cols
, rows
)
1366 register int left
, top
, cols
, rows
;
1368 register struct frame_glyphs
*active_frame
= FRAME_CURRENT_GLYPHS (f
);
1369 int cursor_cleared
= 0;
1373 if (FRAME_GARBAGED_P (f
))
1376 /* Express rectangle as four edges, instead of position-and-size. */
1377 bottom
= top
+ rows
;
1378 right
= left
+ cols
;
1380 /* Convert rectangle edges in pixels to edges in chars.
1381 Round down for left and top, up for right and bottom. */
1382 top
= PIXEL_TO_CHAR_ROW (f
, top
);
1383 left
= PIXEL_TO_CHAR_COL (f
, left
);
1384 bottom
+= (f
->output_data
.x
->line_height
- 1);
1385 right
+= (FONT_WIDTH (f
->output_data
.x
->font
) - 1);
1386 bottom
= PIXEL_TO_CHAR_ROW (f
, bottom
);
1387 right
= PIXEL_TO_CHAR_COL (f
, right
);
1389 /* Clip the rectangle to what can be visible. */
1394 if (right
> f
->width
)
1396 if (bottom
> f
->height
)
1399 /* Get size in chars of the rectangle. */
1400 cols
= right
- left
;
1401 rows
= bottom
- top
;
1403 /* If rectangle has zero area, return. */
1404 if (rows
<= 0) return;
1405 if (cols
<= 0) return;
1407 /* Turn off the cursor if it is in the rectangle.
1408 We will turn it back on afterward. */
1409 if ((f
->phys_cursor_x
>= left
) && (f
->phys_cursor_x
< right
)
1410 && (f
->phys_cursor_y
>= top
) && (f
->phys_cursor_y
< bottom
))
1416 /* Display the text in the rectangle, one text line at a time. */
1418 for (y
= top
; y
< bottom
; y
++)
1420 GLYPH
*line
= &active_frame
->glyphs
[y
][left
];
1422 if (! active_frame
->enable
[y
] || left
> active_frame
->used
[y
])
1426 CHAR_TO_PIXEL_COL (f
, left
),
1427 CHAR_TO_PIXEL_ROW (f
, y
),
1428 line
, min (cols
, active_frame
->used
[y
] - left
),
1429 active_frame
->highlight
[y
], 0);
1432 /* Turn the cursor on if we turned it off. */
1435 x_display_cursor (f
, 1);
1442 /* We used to only do this if Vx_no_window_manager was non-nil, but
1443 the ICCCM (section 4.1.6) says that the window's border pixmap
1444 and border pixel are window attributes which are "private to the
1445 client", so we can always change it to whatever we want. */
1447 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1448 f
->output_data
.x
->border_pixel
);
1450 x_update_cursor (f
, 1);
1454 frame_unhighlight (f
)
1457 /* We used to only do this if Vx_no_window_manager was non-nil, but
1458 the ICCCM (section 4.1.6) says that the window's border pixmap
1459 and border pixel are window attributes which are "private to the
1460 client", so we can always change it to whatever we want. */
1462 XSetWindowBorderPixmap (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1463 f
->output_data
.x
->border_tile
);
1465 x_update_cursor (f
, 1);
1468 static void XTframe_rehighlight ();
1469 static void x_frame_rehighlight ();
1471 /* The focus has changed. Update the frames as necessary to reflect
1472 the new situation. Note that we can't change the selected frame
1473 here, because the Lisp code we are interrupting might become confused.
1474 Each event gets marked with the frame in which it occurred, so the
1475 Lisp code can tell when the switch took place by examining the events. */
1478 x_new_focus_frame (dpyinfo
, frame
)
1479 struct x_display_info
*dpyinfo
;
1480 struct frame
*frame
;
1482 struct frame
*old_focus
= dpyinfo
->x_focus_frame
;
1483 int events_enqueued
= 0;
1485 if (frame
!= dpyinfo
->x_focus_frame
)
1487 /* Set this before calling other routines, so that they see
1488 the correct value of x_focus_frame. */
1489 dpyinfo
->x_focus_frame
= frame
;
1491 if (old_focus
&& old_focus
->auto_lower
)
1492 x_lower_frame (old_focus
);
1495 selected_frame
= frame
;
1496 XSETFRAME (XWINDOW (selected_frame
->selected_window
)->frame
,
1498 Fselect_window (selected_frame
->selected_window
);
1499 choose_minibuf_frame ();
1502 if (dpyinfo
->x_focus_frame
&& dpyinfo
->x_focus_frame
->auto_raise
)
1503 pending_autoraise_frame
= dpyinfo
->x_focus_frame
;
1505 pending_autoraise_frame
= 0;
1508 x_frame_rehighlight (dpyinfo
);
1511 /* Handle an event saying the mouse has moved out of an Emacs frame. */
1514 x_mouse_leave (dpyinfo
)
1515 struct x_display_info
*dpyinfo
;
1517 x_new_focus_frame (dpyinfo
, dpyinfo
->x_focus_event_frame
);
1520 /* The focus has changed, or we have redirected a frame's focus to
1521 another frame (this happens when a frame uses a surrogate
1522 minibuffer frame). Shift the highlight as appropriate.
1524 The FRAME argument doesn't necessarily have anything to do with which
1525 frame is being highlighted or unhighlighted; we only use it to find
1526 the appropriate X display info. */
1528 XTframe_rehighlight (frame
)
1529 struct frame
*frame
;
1531 x_frame_rehighlight (FRAME_X_DISPLAY_INFO (frame
));
1535 x_frame_rehighlight (dpyinfo
)
1536 struct x_display_info
*dpyinfo
;
1538 struct frame
*old_highlight
= dpyinfo
->x_highlight_frame
;
1540 if (dpyinfo
->x_focus_frame
)
1542 dpyinfo
->x_highlight_frame
1543 = ((GC_FRAMEP (FRAME_FOCUS_FRAME (dpyinfo
->x_focus_frame
)))
1544 ? XFRAME (FRAME_FOCUS_FRAME (dpyinfo
->x_focus_frame
))
1545 : dpyinfo
->x_focus_frame
);
1546 if (! FRAME_LIVE_P (dpyinfo
->x_highlight_frame
))
1548 FRAME_FOCUS_FRAME (dpyinfo
->x_focus_frame
) = Qnil
;
1549 dpyinfo
->x_highlight_frame
= dpyinfo
->x_focus_frame
;
1553 dpyinfo
->x_highlight_frame
= 0;
1555 if (dpyinfo
->x_highlight_frame
!= old_highlight
)
1558 frame_unhighlight (old_highlight
);
1559 if (dpyinfo
->x_highlight_frame
)
1560 frame_highlight (dpyinfo
->x_highlight_frame
);
1564 /* Keyboard processing - modifier keys, vendor-specific keysyms, etc. */
1566 /* Initialize mode_switch_bit and modifier_meaning. */
1568 x_find_modifier_meanings (dpyinfo
)
1569 struct x_display_info
*dpyinfo
;
1571 int min_code
, max_code
;
1574 XModifierKeymap
*mods
;
1576 dpyinfo
->meta_mod_mask
= 0;
1577 dpyinfo
->shift_lock_mask
= 0;
1578 dpyinfo
->alt_mod_mask
= 0;
1579 dpyinfo
->super_mod_mask
= 0;
1580 dpyinfo
->hyper_mod_mask
= 0;
1583 XDisplayKeycodes (dpyinfo
->display
, &min_code
, &max_code
);
1585 min_code
= dpyinfo
->display
->min_keycode
;
1586 max_code
= dpyinfo
->display
->max_keycode
;
1589 syms
= XGetKeyboardMapping (dpyinfo
->display
,
1590 min_code
, max_code
- min_code
+ 1,
1592 mods
= XGetModifierMapping (dpyinfo
->display
);
1594 /* Scan the modifier table to see which modifier bits the Meta and
1595 Alt keysyms are on. */
1597 int row
, col
; /* The row and column in the modifier table. */
1599 for (row
= 3; row
< 8; row
++)
1600 for (col
= 0; col
< mods
->max_keypermod
; col
++)
1603 = mods
->modifiermap
[(row
* mods
->max_keypermod
) + col
];
1605 /* Zeroes are used for filler. Skip them. */
1609 /* Are any of this keycode's keysyms a meta key? */
1613 for (code_col
= 0; code_col
< syms_per_code
; code_col
++)
1615 int sym
= syms
[((code
- min_code
) * syms_per_code
) + code_col
];
1621 dpyinfo
->meta_mod_mask
|= (1 << row
);
1626 dpyinfo
->alt_mod_mask
|= (1 << row
);
1631 dpyinfo
->hyper_mod_mask
|= (1 << row
);
1636 dpyinfo
->super_mod_mask
|= (1 << row
);
1640 /* Ignore this if it's not on the lock modifier. */
1641 if ((1 << row
) == LockMask
)
1642 dpyinfo
->shift_lock_mask
= LockMask
;
1650 /* If we couldn't find any meta keys, accept any alt keys as meta keys. */
1651 if (! dpyinfo
->meta_mod_mask
)
1653 dpyinfo
->meta_mod_mask
= dpyinfo
->alt_mod_mask
;
1654 dpyinfo
->alt_mod_mask
= 0;
1657 /* If some keys are both alt and meta,
1658 make them just meta, not alt. */
1659 if (dpyinfo
->alt_mod_mask
& dpyinfo
->meta_mod_mask
)
1661 dpyinfo
->alt_mod_mask
&= ~dpyinfo
->meta_mod_mask
;
1664 XFree ((char *) syms
);
1665 XFreeModifiermap (mods
);
1668 /* Convert between the modifier bits X uses and the modifier bits
1671 x_x_to_emacs_modifiers (dpyinfo
, state
)
1672 struct x_display_info
*dpyinfo
;
1675 return ( ((state
& (ShiftMask
| dpyinfo
->shift_lock_mask
)) ? shift_modifier
: 0)
1676 | ((state
& ControlMask
) ? ctrl_modifier
: 0)
1677 | ((state
& dpyinfo
->meta_mod_mask
) ? meta_modifier
: 0)
1678 | ((state
& dpyinfo
->alt_mod_mask
) ? alt_modifier
: 0)
1679 | ((state
& dpyinfo
->super_mod_mask
) ? super_modifier
: 0)
1680 | ((state
& dpyinfo
->hyper_mod_mask
) ? hyper_modifier
: 0));
1684 x_emacs_to_x_modifiers (dpyinfo
, state
)
1685 struct x_display_info
*dpyinfo
;
1688 return ( ((state
& alt_modifier
) ? dpyinfo
->alt_mod_mask
: 0)
1689 | ((state
& super_modifier
) ? dpyinfo
->super_mod_mask
: 0)
1690 | ((state
& hyper_modifier
) ? dpyinfo
->hyper_mod_mask
: 0)
1691 | ((state
& shift_modifier
) ? ShiftMask
: 0)
1692 | ((state
& ctrl_modifier
) ? ControlMask
: 0)
1693 | ((state
& meta_modifier
) ? dpyinfo
->meta_mod_mask
: 0));
1696 /* Convert a keysym to its name. */
1699 x_get_keysym_name (keysym
)
1705 value
= XKeysymToString (keysym
);
1711 /* Mouse clicks and mouse movement. Rah. */
1713 /* Given a pixel position (PIX_X, PIX_Y) on the frame F, return
1714 glyph co-ordinates in (*X, *Y). Set *BOUNDS to the rectangle
1715 that the glyph at X, Y occupies, if BOUNDS != 0.
1716 If NOCLIP is nonzero, do not force the value into range. */
1719 pixel_to_glyph_coords (f
, pix_x
, pix_y
, x
, y
, bounds
, noclip
)
1721 register int pix_x
, pix_y
;
1722 register int *x
, *y
;
1726 /* Arrange for the division in PIXEL_TO_CHAR_COL etc. to round down
1727 even for negative values. */
1729 pix_x
-= FONT_WIDTH ((f
)->output_data
.x
->font
) - 1;
1731 pix_y
-= (f
)->output_data
.x
->line_height
- 1;
1733 pix_x
= PIXEL_TO_CHAR_COL (f
, pix_x
);
1734 pix_y
= PIXEL_TO_CHAR_ROW (f
, pix_y
);
1738 bounds
->width
= FONT_WIDTH (f
->output_data
.x
->font
);
1739 bounds
->height
= f
->output_data
.x
->line_height
;
1740 bounds
->x
= CHAR_TO_PIXEL_COL (f
, pix_x
);
1741 bounds
->y
= CHAR_TO_PIXEL_ROW (f
, pix_y
);
1748 else if (pix_x
> f
->width
)
1753 else if (pix_y
> f
->height
)
1762 glyph_to_pixel_coords (f
, x
, y
, pix_x
, pix_y
)
1765 register int *pix_x
, *pix_y
;
1767 *pix_x
= CHAR_TO_PIXEL_COL (f
, x
);
1768 *pix_y
= CHAR_TO_PIXEL_ROW (f
, y
);
1771 /* Prepare a mouse-event in *RESULT for placement in the input queue.
1773 If the event is a button press, then note that we have grabbed
1777 construct_mouse_click (result
, event
, f
)
1778 struct input_event
*result
;
1779 XButtonEvent
*event
;
1782 /* Make the event type no_event; we'll change that when we decide
1784 result
->kind
= mouse_click
;
1785 result
->code
= event
->button
- Button1
;
1786 result
->timestamp
= event
->time
;
1787 result
->modifiers
= (x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f
),
1789 | (event
->type
== ButtonRelease
1797 pixel_to_glyph_coords (f
, event
->x
, event
->y
, &column
, &row
, NULL
, 0);
1798 XSETFASTINT (result
->x
, column
);
1799 XSETFASTINT (result
->y
, row
);
1801 XSETINT (result
->x
, event
->x
);
1802 XSETINT (result
->y
, event
->y
);
1803 XSETFRAME (result
->frame_or_window
, f
);
1807 /* Prepare a menu-event in *RESULT for placement in the input queue. */
1810 construct_menu_click (result
, event
, f
)
1811 struct input_event
*result
;
1812 XButtonEvent
*event
;
1815 /* Make the event type no_event; we'll change that when we decide
1817 result
->kind
= mouse_click
;
1818 XSETINT (result
->code
, event
->button
- Button1
);
1819 result
->timestamp
= event
->time
;
1820 result
->modifiers
= (x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f
),
1822 | (event
->type
== ButtonRelease
1826 XSETINT (result
->x
, event
->x
);
1827 XSETINT (result
->y
, -1);
1828 XSETFRAME (result
->frame_or_window
, f
);
1831 /* Function to report a mouse movement to the mainstream Emacs code.
1832 The input handler calls this.
1834 We have received a mouse movement event, which is given in *event.
1835 If the mouse is over a different glyph than it was last time, tell
1836 the mainstream emacs code by setting mouse_moved. If not, ask for
1837 another motion event, so we can check again the next time it moves. */
1840 note_mouse_movement (frame
, event
)
1842 XMotionEvent
*event
;
1844 last_mouse_movement_time
= event
->time
;
1846 if (event
->window
!= FRAME_X_WINDOW (frame
))
1848 frame
->mouse_moved
= 1;
1849 last_mouse_scroll_bar
= Qnil
;
1851 note_mouse_highlight (frame
, -1, -1);
1854 /* Has the mouse moved off the glyph it was on at the last sighting? */
1855 else if (event
->x
< last_mouse_glyph
.x
1856 || event
->x
>= last_mouse_glyph
.x
+ last_mouse_glyph
.width
1857 || event
->y
< last_mouse_glyph
.y
1858 || event
->y
>= last_mouse_glyph
.y
+ last_mouse_glyph
.height
)
1860 frame
->mouse_moved
= 1;
1861 last_mouse_scroll_bar
= Qnil
;
1863 note_mouse_highlight (frame
, event
->x
, event
->y
);
1867 /* This is used for debugging, to turn off note_mouse_highlight. */
1868 static int disable_mouse_highlight
;
1870 /* Take proper action when the mouse has moved to position X, Y on frame F
1871 as regards highlighting characters that have mouse-face properties.
1872 Also dehighlighting chars where the mouse was before.
1873 X and Y can be negative or out of range. */
1876 note_mouse_highlight (f
, x
, y
)
1880 int row
, column
, portion
;
1881 XRectangle new_glyph
;
1885 if (disable_mouse_highlight
)
1888 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_x
= x
;
1889 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_y
= y
;
1890 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
= f
;
1892 if (FRAME_X_DISPLAY_INFO (f
)->mouse_face_defer
)
1897 FRAME_X_DISPLAY_INFO (f
)->mouse_face_deferred_gc
= 1;
1901 /* Find out which glyph the mouse is on. */
1902 pixel_to_glyph_coords (f
, x
, y
, &column
, &row
,
1903 &new_glyph
, FRAME_X_DISPLAY_INFO (f
)->grabbed
);
1905 /* Which window is that in? */
1906 window
= window_from_coordinates (f
, column
, row
, &portion
);
1907 w
= XWINDOW (window
);
1909 /* If we were displaying active text in another window, clear that. */
1910 if (! EQ (window
, FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
))
1911 clear_mouse_face (FRAME_X_DISPLAY_INFO (f
));
1913 /* Are we in a window whose display is up to date?
1914 And verify the buffer's text has not changed. */
1915 if (WINDOWP (window
) && portion
== 0 && row
>= 0 && column
>= 0
1916 && row
< FRAME_HEIGHT (f
) && column
< FRAME_WIDTH (f
)
1917 && EQ (w
->window_end_valid
, w
->buffer
)
1918 && w
->last_modified
== BUF_MODIFF (XBUFFER (w
->buffer
)))
1920 int *ptr
= FRAME_CURRENT_GLYPHS (f
)->charstarts
[row
];
1923 /* Find which buffer position the mouse corresponds to. */
1924 for (i
= column
; i
>= 0; i
--)
1928 /* Is it outside the displayed active region (if any)? */
1930 clear_mouse_face (FRAME_X_DISPLAY_INFO (f
));
1931 else if (! (EQ (window
, FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
)
1932 && row
>= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
1933 && row
<= FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
1934 && (row
> FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
1935 || column
>= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
)
1936 && (row
< FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
1937 || column
< FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
1938 || FRAME_X_DISPLAY_INFO (f
)->mouse_face_past_end
)))
1940 Lisp_Object mouse_face
, overlay
, position
;
1941 Lisp_Object
*overlay_vec
;
1942 int len
, noverlays
, ignor1
;
1943 struct buffer
*obuf
;
1946 /* If we get an out-of-range value, return now; avoid an error. */
1947 if (pos
> BUF_Z (XBUFFER (w
->buffer
)))
1950 /* Make the window's buffer temporarily current for
1951 overlays_at and compute_char_face. */
1952 obuf
= current_buffer
;
1953 current_buffer
= XBUFFER (w
->buffer
);
1959 /* Yes. Clear the display of the old active region, if any. */
1960 clear_mouse_face (FRAME_X_DISPLAY_INFO (f
));
1962 /* Is this char mouse-active? */
1963 XSETINT (position
, pos
);
1966 overlay_vec
= (Lisp_Object
*) xmalloc (len
* sizeof (Lisp_Object
));
1968 /* Put all the overlays we want in a vector in overlay_vec.
1969 Store the length in len. */
1970 noverlays
= overlays_at (XINT (pos
), 1, &overlay_vec
, &len
,
1972 noverlays
= sort_overlays (overlay_vec
, noverlays
, w
);
1974 /* Find the highest priority overlay that has a mouse-face prop. */
1976 for (i
= 0; i
< noverlays
; i
++)
1978 mouse_face
= Foverlay_get (overlay_vec
[i
], Qmouse_face
);
1979 if (!NILP (mouse_face
))
1981 overlay
= overlay_vec
[i
];
1986 /* If no overlay applies, get a text property. */
1988 mouse_face
= Fget_text_property (position
, Qmouse_face
, w
->buffer
);
1990 /* Handle the overlay case. */
1991 if (! NILP (overlay
))
1993 /* Find the range of text around this char that
1994 should be active. */
1995 Lisp_Object before
, after
;
1998 before
= Foverlay_start (overlay
);
1999 after
= Foverlay_end (overlay
);
2000 /* Record this as the current active region. */
2001 fast_find_position (window
, before
,
2002 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
,
2003 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
);
2004 FRAME_X_DISPLAY_INFO (f
)->mouse_face_past_end
2005 = !fast_find_position (window
, after
,
2006 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
,
2007 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
);
2008 FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
= window
;
2009 FRAME_X_DISPLAY_INFO (f
)->mouse_face_face_id
2010 = compute_char_face (f
, w
, pos
, 0, 0,
2011 &ignore
, pos
+ 1, 1);
2013 /* Display it as active. */
2014 show_mouse_face (FRAME_X_DISPLAY_INFO (f
), 1);
2016 /* Handle the text property case. */
2017 else if (! NILP (mouse_face
))
2019 /* Find the range of text around this char that
2020 should be active. */
2021 Lisp_Object before
, after
, beginning
, end
;
2024 beginning
= Fmarker_position (w
->start
);
2025 XSETINT (end
, (BUF_Z (XBUFFER (w
->buffer
))
2026 - XFASTINT (w
->window_end_pos
)));
2028 = Fprevious_single_property_change (make_number (pos
+ 1),
2030 w
->buffer
, beginning
);
2032 = Fnext_single_property_change (position
, Qmouse_face
,
2034 /* Record this as the current active region. */
2035 fast_find_position (window
, before
,
2036 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
,
2037 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
);
2038 FRAME_X_DISPLAY_INFO (f
)->mouse_face_past_end
2039 = !fast_find_position (window
, after
,
2040 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
,
2041 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
);
2042 FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
= window
;
2043 FRAME_X_DISPLAY_INFO (f
)->mouse_face_face_id
2044 = compute_char_face (f
, w
, pos
, 0, 0,
2045 &ignore
, pos
+ 1, 1);
2047 /* Display it as active. */
2048 show_mouse_face (FRAME_X_DISPLAY_INFO (f
), 1);
2052 current_buffer
= obuf
;
2057 /* Find the row and column of position POS in window WINDOW.
2058 Store them in *COLUMNP and *ROWP.
2059 This assumes display in WINDOW is up to date.
2060 If POS is above start of WINDOW, return coords
2061 of start of first screen line.
2062 If POS is after end of WINDOW, return coords of end of last screen line.
2064 Value is 1 if POS is in range, 0 if it was off screen. */
2067 fast_find_position (window
, pos
, columnp
, rowp
)
2070 int *columnp
, *rowp
;
2072 struct window
*w
= XWINDOW (window
);
2073 FRAME_PTR f
= XFRAME (WINDOW_FRAME (w
));
2078 int height
= XFASTINT (w
->height
) - ! MINI_WINDOW_P (w
);
2079 int width
= window_internal_width (w
);
2082 int maybe_next_line
= 0;
2084 /* Find the right row. */
2089 int linestart
= FRAME_CURRENT_GLYPHS (f
)->charstarts
[top
+ i
][left
];
2090 if (linestart
> pos
)
2092 /* If the position sought is the end of the buffer,
2093 don't include the blank lines at the bottom of the window. */
2094 if (linestart
== pos
&& pos
== BUF_ZV (XBUFFER (w
->buffer
)))
2096 maybe_next_line
= 1;
2103 /* Find the right column with in it. */
2104 charstarts
= FRAME_CURRENT_GLYPHS (f
)->charstarts
[top
+ row
];
2106 for (i
= 0; i
< width
; i
++)
2108 if (charstarts
[left
+ i
] == pos
)
2111 *columnp
= i
+ left
;
2114 else if (charstarts
[left
+ i
] > pos
)
2116 else if (charstarts
[left
+ i
] > 0)
2120 /* If we're looking for the end of the buffer,
2121 and we didn't find it in the line we scanned,
2122 use the start of the following line. */
2123 if (maybe_next_line
)
2134 /* Display the active region described by mouse_face_*
2135 in its mouse-face if HL > 0, in its normal face if HL = 0. */
2138 show_mouse_face (dpyinfo
, hl
)
2139 struct x_display_info
*dpyinfo
;
2142 struct window
*w
= XWINDOW (dpyinfo
->mouse_face_window
);
2143 int width
= window_internal_width (w
);
2144 FRAME_PTR f
= XFRAME (WINDOW_FRAME (w
));
2147 int old_curs_x
= curs_x
;
2148 int old_curs_y
= curs_y
;
2150 /* Set these variables temporarily
2151 so that if we have to turn the cursor off and on again
2152 we will put it back at the same place. */
2153 curs_x
= f
->phys_cursor_x
;
2154 curs_y
= f
->phys_cursor_y
;
2156 for (i
= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
;
2157 i
<= FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
; i
++)
2159 int column
= (i
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
2160 ? FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
2162 int endcolumn
= (i
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
2163 ? FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
2165 endcolumn
= min (endcolumn
, FRAME_CURRENT_GLYPHS (f
)->used
[i
]);
2167 /* If the cursor's in the text we are about to rewrite,
2168 turn the cursor off. */
2170 && curs_x
>= column
- 1
2171 && curs_x
<= endcolumn
)
2173 x_display_cursor (f
, 0);
2178 CHAR_TO_PIXEL_COL (f
, column
),
2179 CHAR_TO_PIXEL_ROW (f
, i
),
2180 FRAME_CURRENT_GLYPHS (f
)->glyphs
[i
] + column
,
2182 /* Highlight with mouse face if hl > 0. */
2186 /* If we turned the cursor off, turn it back on. */
2188 x_display_cursor (f
, 1);
2190 curs_x
= old_curs_x
;
2191 curs_y
= old_curs_y
;
2193 /* Change the mouse cursor according to the value of HL. */
2195 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2196 f
->output_data
.x
->cross_cursor
);
2198 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2199 f
->output_data
.x
->text_cursor
);
2202 /* Clear out the mouse-highlighted active region.
2203 Redraw it unhighlighted first. */
2206 clear_mouse_face (dpyinfo
)
2207 struct x_display_info
*dpyinfo
;
2209 if (! NILP (dpyinfo
->mouse_face_window
))
2210 show_mouse_face (dpyinfo
, 0);
2212 dpyinfo
->mouse_face_beg_row
= dpyinfo
->mouse_face_beg_col
= -1;
2213 dpyinfo
->mouse_face_end_row
= dpyinfo
->mouse_face_end_col
= -1;
2214 dpyinfo
->mouse_face_window
= Qnil
;
2217 static struct scroll_bar
*x_window_to_scroll_bar ();
2218 static void x_scroll_bar_report_motion ();
2220 /* Return the current position of the mouse.
2221 *fp should be a frame which indicates which display to ask about.
2223 If the mouse movement started in a scroll bar, set *fp, *bar_window,
2224 and *part to the frame, window, and scroll bar part that the mouse
2225 is over. Set *x and *y to the portion and whole of the mouse's
2226 position on the scroll bar.
2228 If the mouse movement started elsewhere, set *fp to the frame the
2229 mouse is on, *bar_window to nil, and *x and *y to the character cell
2232 Set *time to the server timestamp for the time at which the mouse
2233 was at this position.
2235 Don't store anything if we don't have a valid set of values to report.
2237 This clears the mouse_moved flag, so we can wait for the next mouse
2241 XTmouse_position (fp
, insist
, bar_window
, part
, x
, y
, time
)
2244 Lisp_Object
*bar_window
;
2245 enum scroll_bar_part
*part
;
2247 unsigned long *time
;
2253 if (! NILP (last_mouse_scroll_bar
))
2254 x_scroll_bar_report_motion (fp
, bar_window
, part
, x
, y
, time
);
2260 Window dummy_window
;
2263 Lisp_Object frame
, tail
;
2265 /* Clear the mouse-moved flag for every frame on this display. */
2266 FOR_EACH_FRAME (tail
, frame
)
2267 if (FRAME_X_DISPLAY (XFRAME (frame
)) == FRAME_X_DISPLAY (*fp
))
2268 XFRAME (frame
)->mouse_moved
= 0;
2270 last_mouse_scroll_bar
= Qnil
;
2272 /* Figure out which root window we're on. */
2273 XQueryPointer (FRAME_X_DISPLAY (*fp
),
2274 DefaultRootWindow (FRAME_X_DISPLAY (*fp
)),
2276 /* The root window which contains the pointer. */
2279 /* Trash which we can't trust if the pointer is on
2280 a different screen. */
2283 /* The position on that root window. */
2286 /* More trash we can't trust. */
2289 /* Modifier keys and pointer buttons, about which
2291 (unsigned int *) &dummy
);
2293 /* Now we have a position on the root; find the innermost window
2294 containing the pointer. */
2298 int parent_x
, parent_y
;
2302 /* XTranslateCoordinates can get errors if the window
2303 structure is changing at the same time this function
2304 is running. So at least we must not crash from them. */
2306 x_catch_errors (FRAME_X_DISPLAY (*fp
));
2308 if (FRAME_X_DISPLAY_INFO (*fp
)->grabbed
&& last_mouse_frame
2309 && FRAME_LIVE_P (last_mouse_frame
))
2311 /* If mouse was grabbed on a frame, give coords for that frame
2312 even if the mouse is now outside it. */
2313 XTranslateCoordinates (FRAME_X_DISPLAY (*fp
),
2315 /* From-window, to-window. */
2316 root
, FRAME_X_WINDOW (last_mouse_frame
),
2318 /* From-position, to-position. */
2319 root_x
, root_y
, &win_x
, &win_y
,
2323 f1
= last_mouse_frame
;
2329 XTranslateCoordinates (FRAME_X_DISPLAY (*fp
),
2331 /* From-window, to-window. */
2334 /* From-position, to-position. */
2335 root_x
, root_y
, &win_x
, &win_y
,
2340 if (child
== None
|| child
== win
)
2348 /* Now we know that:
2349 win is the innermost window containing the pointer
2350 (XTC says it has no child containing the pointer),
2351 win_x and win_y are the pointer's position in it
2352 (XTC did this the last time through), and
2353 parent_x and parent_y are the pointer's position in win's parent.
2354 (They are what win_x and win_y were when win was child.
2355 If win is the root window, it has no parent, and
2356 parent_{x,y} are invalid, but that's okay, because we'll
2357 never use them in that case.) */
2359 /* Is win one of our frames? */
2360 f1
= x_any_window_to_frame (FRAME_X_DISPLAY_INFO (*fp
), win
);
2363 if (x_had_errors_p (FRAME_X_DISPLAY (*fp
)))
2366 x_uncatch_errors (FRAME_X_DISPLAY (*fp
));
2368 /* If not, is it one of our scroll bars? */
2371 struct scroll_bar
*bar
= x_window_to_scroll_bar (win
);
2375 f1
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2381 if (f1
== 0 && insist
)
2382 f1
= selected_frame
;
2386 int ignore1
, ignore2
;
2388 /* Ok, we found a frame. Store all the values. */
2390 pixel_to_glyph_coords (f1
, win_x
, win_y
, &ignore1
, &ignore2
,
2392 FRAME_X_DISPLAY_INFO (f1
)->grabbed
2398 XSETINT (*x
, win_x
);
2399 XSETINT (*y
, win_y
);
2400 *time
= last_mouse_movement_time
;
2408 /* Scroll bar support. */
2410 /* Given an X window ID, find the struct scroll_bar which manages it.
2411 This can be called in GC, so we have to make sure to strip off mark
2413 static struct scroll_bar
*
2414 x_window_to_scroll_bar (window_id
)
2417 Lisp_Object tail
, frame
;
2419 for (tail
= Vframe_list
;
2420 XGCTYPE (tail
) == Lisp_Cons
;
2421 tail
= XCONS (tail
)->cdr
)
2423 Lisp_Object frame
, bar
, condemned
;
2425 frame
= XCONS (tail
)->car
;
2426 /* All elements of Vframe_list should be frames. */
2427 if (! GC_FRAMEP (frame
))
2430 /* Scan this frame's scroll bar list for a scroll bar with the
2432 condemned
= FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame
));
2433 for (bar
= FRAME_SCROLL_BARS (XFRAME (frame
));
2434 /* This trick allows us to search both the ordinary and
2435 condemned scroll bar lists with one loop. */
2436 ! GC_NILP (bar
) || (bar
= condemned
,
2439 bar
= XSCROLL_BAR (bar
)->next
)
2440 if (SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
)) == window_id
)
2441 return XSCROLL_BAR (bar
);
2447 /* Open a new X window to serve as a scroll bar, and return the
2448 scroll bar vector for it. */
2449 static struct scroll_bar
*
2450 x_scroll_bar_create (window
, top
, left
, width
, height
)
2451 struct window
*window
;
2452 int top
, left
, width
, height
;
2454 FRAME_PTR f
= XFRAME (WINDOW_FRAME (window
));
2455 struct scroll_bar
*bar
2456 = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE
), Qnil
));
2461 XSetWindowAttributes a
;
2463 a
.background_pixel
= f
->output_data
.x
->background_pixel
;
2464 a
.event_mask
= (ButtonPressMask
| ButtonReleaseMask
2465 | ButtonMotionMask
| PointerMotionHintMask
2467 a
.cursor
= FRAME_X_DISPLAY_INFO (f
)->vertical_scroll_bar_cursor
;
2469 mask
= (CWBackPixel
| CWEventMask
| CWCursor
);
2474 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2475 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2476 XtSetArg (al
[ac
], XtNwidth
, width
); ac
++;
2477 XtSetArg (al
[ac
], XtNheight
, height
); ac
++;
2478 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2479 sb_widget
= XtCreateManagedWidget ("box",
2481 f
->output_data
.x
->edit_widget
, al
, ac
);
2482 SET_SCROLL_BAR_X_WINDOW
2483 (bar
, sb_widget
->core
.window
);
2485 SET_SCROLL_BAR_X_WINDOW
2487 XCreateWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2489 /* Position and size of scroll bar. */
2490 left
, top
, width
, height
,
2492 /* Border width, depth, class, and visual. */
2493 0, CopyFromParent
, CopyFromParent
, CopyFromParent
,
2499 XSETWINDOW (bar
->window
, window
);
2500 XSETINT (bar
->top
, top
);
2501 XSETINT (bar
->left
, left
);
2502 XSETINT (bar
->width
, width
);
2503 XSETINT (bar
->height
, height
);
2504 XSETINT (bar
->start
, 0);
2505 XSETINT (bar
->end
, 0);
2506 bar
->dragging
= Qnil
;
2508 /* Add bar to its frame's list of scroll bars. */
2509 bar
->next
= FRAME_SCROLL_BARS (f
);
2511 XSETVECTOR (FRAME_SCROLL_BARS (f
), bar
);
2512 if (! NILP (bar
->next
))
2513 XSETVECTOR (XSCROLL_BAR (bar
->next
)->prev
, bar
);
2515 XMapRaised (FRAME_X_DISPLAY (f
), SCROLL_BAR_X_WINDOW (bar
));
2522 /* Draw BAR's handle in the proper position.
2523 If the handle is already drawn from START to END, don't bother
2524 redrawing it, unless REBUILD is non-zero; in that case, always
2525 redraw it. (REBUILD is handy for drawing the handle after expose
2528 Normally, we want to constrain the start and end of the handle to
2529 fit inside its rectangle, but if the user is dragging the scroll bar
2530 handle, we want to let them drag it down all the way, so that the
2531 bar's top is as far down as it goes; otherwise, there's no way to
2532 move to the very end of the buffer. */
2534 x_scroll_bar_set_handle (bar
, start
, end
, rebuild
)
2535 struct scroll_bar
*bar
;
2539 int dragging
= ! NILP (bar
->dragging
);
2540 Window w
= SCROLL_BAR_X_WINDOW (bar
);
2541 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2542 GC gc
= f
->output_data
.x
->normal_gc
;
2544 /* If the display is already accurate, do nothing. */
2546 && start
== XINT (bar
->start
)
2547 && end
== XINT (bar
->end
))
2553 int inside_width
= VERTICAL_SCROLL_BAR_INSIDE_WIDTH (XINT (bar
->width
));
2554 int inside_height
= VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (XINT (bar
->height
));
2555 int top_range
= VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar
->height
));
2557 /* Make sure the values are reasonable, and try to preserve
2558 the distance between start and end. */
2560 int length
= end
- start
;
2564 else if (start
> top_range
)
2566 end
= start
+ length
;
2570 else if (end
> top_range
&& ! dragging
)
2574 /* Store the adjusted setting in the scroll bar. */
2575 XSETINT (bar
->start
, start
);
2576 XSETINT (bar
->end
, end
);
2578 /* Clip the end position, just for display. */
2579 if (end
> top_range
)
2582 /* Draw bottom positions VERTICAL_SCROLL_BAR_MIN_HANDLE pixels
2583 below top positions, to make sure the handle is always at least
2584 that many pixels tall. */
2585 end
+= VERTICAL_SCROLL_BAR_MIN_HANDLE
;
2587 /* Draw the empty space above the handle. Note that we can't clear
2588 zero-height areas; that means "clear to end of window." */
2590 XClearArea (FRAME_X_DISPLAY (f
), w
,
2592 /* x, y, width, height, and exposures. */
2593 VERTICAL_SCROLL_BAR_LEFT_BORDER
,
2594 VERTICAL_SCROLL_BAR_TOP_BORDER
,
2595 inside_width
, start
,
2598 /* Draw the handle itself. */
2599 XFillRectangle (FRAME_X_DISPLAY (f
), w
, gc
,
2601 /* x, y, width, height */
2602 VERTICAL_SCROLL_BAR_LEFT_BORDER
,
2603 VERTICAL_SCROLL_BAR_TOP_BORDER
+ start
,
2604 inside_width
, end
- start
);
2607 /* Draw the empty space below the handle. Note that we can't
2608 clear zero-height areas; that means "clear to end of window." */
2609 if (end
< inside_height
)
2610 XClearArea (FRAME_X_DISPLAY (f
), w
,
2612 /* x, y, width, height, and exposures. */
2613 VERTICAL_SCROLL_BAR_LEFT_BORDER
,
2614 VERTICAL_SCROLL_BAR_TOP_BORDER
+ end
,
2615 inside_width
, inside_height
- end
,
2623 /* Move a scroll bar around on the screen, to accommodate changing
2624 window configurations. */
2626 x_scroll_bar_move (bar
, top
, left
, width
, height
)
2627 struct scroll_bar
*bar
;
2628 int top
, left
, width
, height
;
2630 Window w
= SCROLL_BAR_X_WINDOW (bar
);
2631 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2637 unsigned int mask
= 0;
2644 if (left
!= XINT (bar
->left
)) mask
|= CWX
;
2645 if (top
!= XINT (bar
->top
)) mask
|= CWY
;
2646 if (width
!= XINT (bar
->width
)) mask
|= CWWidth
;
2647 if (height
!= XINT (bar
->height
)) mask
|= CWHeight
;
2650 XConfigureWindow (FRAME_X_DISPLAY (f
), SCROLL_BAR_X_WINDOW (bar
),
2654 XSETINT (bar
->left
, left
);
2655 XSETINT (bar
->top
, top
);
2656 XSETINT (bar
->width
, width
);
2657 XSETINT (bar
->height
, height
);
2662 /* Destroy the X window for BAR, and set its Emacs window's scroll bar
2665 x_scroll_bar_remove (bar
)
2666 struct scroll_bar
*bar
;
2668 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2672 /* Destroy the window. */
2673 XDestroyWindow (FRAME_X_DISPLAY (f
), SCROLL_BAR_X_WINDOW (bar
));
2675 /* Disassociate this scroll bar from its window. */
2676 XWINDOW (bar
->window
)->vertical_scroll_bar
= Qnil
;
2681 /* Set the handle of the vertical scroll bar for WINDOW to indicate
2682 that we are displaying PORTION characters out of a total of WHOLE
2683 characters, starting at POSITION. If WINDOW has no scroll bar,
2686 XTset_vertical_scroll_bar (window
, portion
, whole
, position
)
2687 struct window
*window
;
2688 int portion
, whole
, position
;
2690 FRAME_PTR f
= XFRAME (WINDOW_FRAME (window
));
2691 int top
= XINT (window
->top
);
2692 int left
= WINDOW_VERTICAL_SCROLL_BAR_COLUMN (window
);
2693 int height
= WINDOW_VERTICAL_SCROLL_BAR_HEIGHT (window
);
2695 /* Where should this scroll bar be, pixelwise? */
2696 int pixel_top
= CHAR_TO_PIXEL_ROW (f
, top
);
2697 int pixel_left
= CHAR_TO_PIXEL_COL (f
, left
);
2699 = (FRAME_SCROLL_BAR_PIXEL_WIDTH (f
) > 0
2700 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f
)
2701 : (FRAME_SCROLL_BAR_COLS (f
) * FONT_WIDTH (f
->output_data
.x
->font
)));
2702 int pixel_height
= VERTICAL_SCROLL_BAR_PIXEL_HEIGHT (f
, height
);
2704 struct scroll_bar
*bar
;
2706 /* Does the scroll bar exist yet? */
2707 if (NILP (window
->vertical_scroll_bar
))
2708 bar
= x_scroll_bar_create (window
,
2709 pixel_top
, pixel_left
,
2710 pixel_width
, pixel_height
);
2713 /* It may just need to be moved and resized. */
2714 bar
= XSCROLL_BAR (window
->vertical_scroll_bar
);
2715 x_scroll_bar_move (bar
, pixel_top
, pixel_left
, pixel_width
, pixel_height
);
2718 /* Set the scroll bar's current state, unless we're currently being
2720 if (NILP (bar
->dragging
))
2722 int top_range
= VERTICAL_SCROLL_BAR_TOP_RANGE (pixel_height
);
2725 x_scroll_bar_set_handle (bar
, 0, top_range
, 0);
2728 int start
= ((double) position
* top_range
) / whole
;
2729 int end
= ((double) (position
+ portion
) * top_range
) / whole
;
2731 x_scroll_bar_set_handle (bar
, start
, end
, 0);
2735 XSETVECTOR (window
->vertical_scroll_bar
, bar
);
2739 /* The following three hooks are used when we're doing a thorough
2740 redisplay of the frame. We don't explicitly know which scroll bars
2741 are going to be deleted, because keeping track of when windows go
2742 away is a real pain - "Can you say set-window-configuration, boys
2743 and girls?" Instead, we just assert at the beginning of redisplay
2744 that *all* scroll bars are to be removed, and then save a scroll bar
2745 from the fiery pit when we actually redisplay its window. */
2747 /* Arrange for all scroll bars on FRAME to be removed at the next call
2748 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
2749 `*redeem_scroll_bar_hook' is applied to its window before the judgement. */
2751 XTcondemn_scroll_bars (frame
)
2754 /* Transfer all the scroll bars to FRAME_CONDEMNED_SCROLL_BARS. */
2755 while (! NILP (FRAME_SCROLL_BARS (frame
)))
2758 bar
= FRAME_SCROLL_BARS (frame
);
2759 FRAME_SCROLL_BARS (frame
) = XSCROLL_BAR (bar
)->next
;
2760 XSCROLL_BAR (bar
)->next
= FRAME_CONDEMNED_SCROLL_BARS (frame
);
2761 XSCROLL_BAR (bar
)->prev
= Qnil
;
2762 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame
)))
2763 XSCROLL_BAR (FRAME_CONDEMNED_SCROLL_BARS (frame
))->prev
= bar
;
2764 FRAME_CONDEMNED_SCROLL_BARS (frame
) = bar
;
2768 /* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
2769 Note that WINDOW isn't necessarily condemned at all. */
2771 XTredeem_scroll_bar (window
)
2772 struct window
*window
;
2774 struct scroll_bar
*bar
;
2776 /* We can't redeem this window's scroll bar if it doesn't have one. */
2777 if (NILP (window
->vertical_scroll_bar
))
2780 bar
= XSCROLL_BAR (window
->vertical_scroll_bar
);
2782 /* Unlink it from the condemned list. */
2784 FRAME_PTR f
= XFRAME (WINDOW_FRAME (window
));
2786 if (NILP (bar
->prev
))
2788 /* If the prev pointer is nil, it must be the first in one of
2790 if (EQ (FRAME_SCROLL_BARS (f
), window
->vertical_scroll_bar
))
2791 /* It's not condemned. Everything's fine. */
2793 else if (EQ (FRAME_CONDEMNED_SCROLL_BARS (f
),
2794 window
->vertical_scroll_bar
))
2795 FRAME_CONDEMNED_SCROLL_BARS (f
) = bar
->next
;
2797 /* If its prev pointer is nil, it must be at the front of
2798 one or the other! */
2802 XSCROLL_BAR (bar
->prev
)->next
= bar
->next
;
2804 if (! NILP (bar
->next
))
2805 XSCROLL_BAR (bar
->next
)->prev
= bar
->prev
;
2807 bar
->next
= FRAME_SCROLL_BARS (f
);
2809 XSETVECTOR (FRAME_SCROLL_BARS (f
), bar
);
2810 if (! NILP (bar
->next
))
2811 XSETVECTOR (XSCROLL_BAR (bar
->next
)->prev
, bar
);
2815 /* Remove all scroll bars on FRAME that haven't been saved since the
2816 last call to `*condemn_scroll_bars_hook'. */
2818 XTjudge_scroll_bars (f
)
2821 Lisp_Object bar
, next
;
2823 bar
= FRAME_CONDEMNED_SCROLL_BARS (f
);
2825 /* Clear out the condemned list now so we won't try to process any
2826 more events on the hapless scroll bars. */
2827 FRAME_CONDEMNED_SCROLL_BARS (f
) = Qnil
;
2829 for (; ! NILP (bar
); bar
= next
)
2831 struct scroll_bar
*b
= XSCROLL_BAR (bar
);
2833 x_scroll_bar_remove (b
);
2836 b
->next
= b
->prev
= Qnil
;
2839 /* Now there should be no references to the condemned scroll bars,
2840 and they should get garbage-collected. */
2844 /* Handle an Expose or GraphicsExpose event on a scroll bar.
2846 This may be called from a signal handler, so we have to ignore GC
2849 x_scroll_bar_expose (bar
, event
)
2850 struct scroll_bar
*bar
;
2853 Window w
= SCROLL_BAR_X_WINDOW (bar
);
2854 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2855 GC gc
= f
->output_data
.x
->normal_gc
;
2859 x_scroll_bar_set_handle (bar
, XINT (bar
->start
), XINT (bar
->end
), 1);
2861 /* Draw a one-pixel border just inside the edges of the scroll bar. */
2862 XDrawRectangle (FRAME_X_DISPLAY (f
), w
, gc
,
2864 /* x, y, width, height */
2865 0, 0, XINT (bar
->width
) - 1, XINT (bar
->height
) - 1);
2870 /* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind
2871 is set to something other than no_event, it is enqueued.
2873 This may be called from a signal handler, so we have to ignore GC
2876 x_scroll_bar_handle_click (bar
, event
, emacs_event
)
2877 struct scroll_bar
*bar
;
2879 struct input_event
*emacs_event
;
2881 if (! GC_WINDOWP (bar
->window
))
2884 emacs_event
->kind
= scroll_bar_click
;
2885 emacs_event
->code
= event
->xbutton
.button
- Button1
;
2886 emacs_event
->modifiers
2887 = (x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO
2888 (XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)))),
2889 event
->xbutton
.state
)
2890 | (event
->type
== ButtonRelease
2893 emacs_event
->frame_or_window
= bar
->window
;
2894 emacs_event
->timestamp
= event
->xbutton
.time
;
2897 = VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (XINT (bar
->height
));
2899 = VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar
->height
));
2900 int y
= event
->xbutton
.y
- VERTICAL_SCROLL_BAR_TOP_BORDER
;
2903 if (y
> top_range
) y
= top_range
;
2905 if (y
< XINT (bar
->start
))
2906 emacs_event
->part
= scroll_bar_above_handle
;
2907 else if (y
< XINT (bar
->end
) + VERTICAL_SCROLL_BAR_MIN_HANDLE
)
2908 emacs_event
->part
= scroll_bar_handle
;
2910 emacs_event
->part
= scroll_bar_below_handle
;
2912 /* Just because the user has clicked on the handle doesn't mean
2913 they want to drag it. Lisp code needs to be able to decide
2914 whether or not we're dragging. */
2916 /* If the user has just clicked on the handle, record where they're
2918 if (event
->type
== ButtonPress
2919 && emacs_event
->part
== scroll_bar_handle
)
2920 XSETINT (bar
->dragging
, y
- XINT (bar
->start
));
2923 /* If the user has released the handle, set it to its final position. */
2924 if (event
->type
== ButtonRelease
2925 && ! NILP (bar
->dragging
))
2927 int new_start
= y
- XINT (bar
->dragging
);
2928 int new_end
= new_start
+ (XINT (bar
->end
) - XINT (bar
->start
));
2930 x_scroll_bar_set_handle (bar
, new_start
, new_end
, 0);
2931 bar
->dragging
= Qnil
;
2934 /* Same deal here as the other #if 0. */
2936 /* Clicks on the handle are always reported as occurring at the top of
2938 if (emacs_event
->part
== scroll_bar_handle
)
2939 emacs_event
->x
= bar
->start
;
2941 XSETINT (emacs_event
->x
, y
);
2943 XSETINT (emacs_event
->x
, y
);
2946 XSETINT (emacs_event
->y
, top_range
);
2950 /* Handle some mouse motion while someone is dragging the scroll bar.
2952 This may be called from a signal handler, so we have to ignore GC
2955 x_scroll_bar_note_movement (bar
, event
)
2956 struct scroll_bar
*bar
;
2959 FRAME_PTR f
= XFRAME (XWINDOW (bar
->window
)->frame
);
2961 last_mouse_movement_time
= event
->xmotion
.time
;
2964 XSETVECTOR (last_mouse_scroll_bar
, bar
);
2966 /* If we're dragging the bar, display it. */
2967 if (! GC_NILP (bar
->dragging
))
2969 /* Where should the handle be now? */
2970 int new_start
= event
->xmotion
.y
- XINT (bar
->dragging
);
2972 if (new_start
!= XINT (bar
->start
))
2974 int new_end
= new_start
+ (XINT (bar
->end
) - XINT (bar
->start
));
2976 x_scroll_bar_set_handle (bar
, new_start
, new_end
, 0);
2981 /* Return information to the user about the current position of the mouse
2982 on the scroll bar. */
2984 x_scroll_bar_report_motion (fp
, bar_window
, part
, x
, y
, time
)
2986 Lisp_Object
*bar_window
;
2987 enum scroll_bar_part
*part
;
2989 unsigned long *time
;
2991 struct scroll_bar
*bar
= XSCROLL_BAR (last_mouse_scroll_bar
);
2992 Window w
= SCROLL_BAR_X_WINDOW (bar
);
2993 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2995 Window dummy_window
;
2997 unsigned int dummy_mask
;
3001 /* Get the mouse's position relative to the scroll bar window, and
3003 if (! XQueryPointer (FRAME_X_DISPLAY (f
), w
,
3005 /* Root, child, root x and root y. */
3006 &dummy_window
, &dummy_window
,
3007 &dummy_coord
, &dummy_coord
,
3009 /* Position relative to scroll bar. */
3012 /* Mouse buttons and modifier keys. */
3018 = VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (XINT (bar
->height
));
3020 = VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar
->height
));
3022 win_y
-= VERTICAL_SCROLL_BAR_TOP_BORDER
;
3024 if (! NILP (bar
->dragging
))
3025 win_y
-= XINT (bar
->dragging
);
3029 if (win_y
> top_range
)
3033 *bar_window
= bar
->window
;
3035 if (! NILP (bar
->dragging
))
3036 *part
= scroll_bar_handle
;
3037 else if (win_y
< XINT (bar
->start
))
3038 *part
= scroll_bar_above_handle
;
3039 else if (win_y
< XINT (bar
->end
) + VERTICAL_SCROLL_BAR_MIN_HANDLE
)
3040 *part
= scroll_bar_handle
;
3042 *part
= scroll_bar_below_handle
;
3044 XSETINT (*x
, win_y
);
3045 XSETINT (*y
, top_range
);
3048 last_mouse_scroll_bar
= Qnil
;
3051 *time
= last_mouse_movement_time
;
3057 /* The screen has been cleared so we may have changed foreground or
3058 background colors, and the scroll bars may need to be redrawn.
3059 Clear out the scroll bars, and ask for expose events, so we can
3062 x_scroll_bar_clear (f
)
3067 /* We can have scroll bars even if this is 0,
3068 if we just turned off scroll bar mode.
3069 But in that case we should not clear them. */
3070 if (FRAME_HAS_VERTICAL_SCROLL_BARS (f
))
3071 for (bar
= FRAME_SCROLL_BARS (f
); VECTORP (bar
);
3072 bar
= XSCROLL_BAR (bar
)->next
)
3073 XClearArea (FRAME_X_DISPLAY (f
), SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
)),
3077 /* This processes Expose events from the menubar specific X event
3078 loop in xmenu.c. This allows to redisplay the frame if necessary
3079 when handling menubar or popup items. */
3082 process_expose_from_menu (event
)
3086 struct x_display_info
*dpyinfo
;
3090 dpyinfo
= x_display_info_for_display (event
.xexpose
.display
);
3091 f
= x_window_to_frame (dpyinfo
, event
.xexpose
.window
);
3094 if (f
->async_visible
== 0)
3096 f
->async_visible
= 1;
3097 f
->async_iconified
= 0;
3098 SET_FRAME_GARBAGED (f
);
3102 dumprectangle (x_window_to_frame (dpyinfo
, event
.xexpose
.window
),
3103 event
.xexpose
.x
, event
.xexpose
.y
,
3104 event
.xexpose
.width
, event
.xexpose
.height
);
3109 struct scroll_bar
*bar
3110 = x_window_to_scroll_bar (event
.xexpose
.window
);
3113 x_scroll_bar_expose (bar
, &event
);
3119 /* Define a queue to save up SelectionRequest events for later handling. */
3121 struct selection_event_queue
3124 struct selection_event_queue
*next
;
3127 static struct selection_event_queue
*queue
;
3129 /* Nonzero means queue up certain events--don't process them yet. */
3130 static int x_queue_selection_requests
;
3132 /* Queue up an X event *EVENT, to be processed later. */
3135 x_queue_event (f
, event
)
3139 struct selection_event_queue
*queue_tmp
3140 = (struct selection_event_queue
*) malloc (sizeof (struct selection_event_queue
));
3142 if (queue_tmp
!= NULL
)
3144 queue_tmp
->event
= *event
;
3145 queue_tmp
->next
= queue
;
3150 /* Take all the queued events and put them back
3151 so that they get processed afresh. */
3154 x_unqueue_events (display
)
3157 while (queue
!= NULL
)
3159 struct selection_event_queue
*queue_tmp
= queue
;
3160 XPutBackEvent (display
, &queue_tmp
->event
);
3161 queue
= queue_tmp
->next
;
3162 free ((char *)queue_tmp
);
3166 /* Start queuing SelectionRequest events. */
3169 x_start_queuing_selection_requests (display
)
3172 x_queue_selection_requests
++;
3175 /* Stop queuing SelectionRequest events. */
3178 x_stop_queuing_selection_requests (display
)
3181 x_queue_selection_requests
--;
3182 x_unqueue_events (display
);
3185 /* The main X event-reading loop - XTread_socket. */
3187 /* Timestamp of enter window event. This is only used by XTread_socket,
3188 but we have to put it out here, since static variables within functions
3189 sometimes don't work. */
3190 static Time enter_timestamp
;
3192 /* This holds the state XLookupString needs to implement dead keys
3193 and other tricks known as "compose processing". _X Window System_
3194 says that a portable program can't use this, but Stephen Gildea assures
3195 me that letting the compiler initialize it to zeros will work okay.
3197 This must be defined outside of XTread_socket, for the same reasons
3198 given for enter_timestamp, above. */
3199 static XComposeStatus compose_status
;
3201 /* Record the last 100 characters stored
3202 to help debug the loss-of-chars-during-GC problem. */
3203 static int temp_index
;
3204 static short temp_buffer
[100];
3206 /* Set this to nonzero to fake an "X I/O error"
3207 on a particular display. */
3208 struct x_display_info
*XTread_socket_fake_io_error
;
3210 /* When we find no input here, we occasionally do a no-op command
3211 to verify that the X server is still running and we can still talk with it.
3212 We try all the open displays, one by one.
3213 This variable is used for cycling thru the displays. */
3214 static struct x_display_info
*next_noop_dpyinfo
;
3216 /* Read events coming from the X server.
3217 This routine is called by the SIGIO handler.
3218 We return as soon as there are no more events to be read.
3220 Events representing keys are stored in buffer BUFP,
3221 which can hold up to NUMCHARS characters.
3222 We return the number of characters stored into the buffer,
3223 thus pretending to be `read'.
3225 WAITP is nonzero if we should block until input arrives.
3226 EXPECTED is nonzero if the caller knows input is available. */
3229 XTread_socket (sd
, bufp
, numchars
, waitp
, expected
)
3231 register struct input_event
*bufp
;
3232 register int numchars
;
3239 int items_pending
; /* How many items are in the X queue. */
3242 int event_found
= 0;
3245 struct x_display_info
*dpyinfo
;
3247 Status status_return
;
3250 if (interrupt_input_blocked
)
3252 interrupt_input_pending
= 1;
3256 interrupt_input_pending
= 0;
3259 /* So people can tell when we have read the available input. */
3260 input_signal_count
++;
3263 abort (); /* Don't think this happens. */
3265 /* Find the display we are supposed to read input for.
3266 It's the one communicating on descriptor SD. */
3267 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
3269 #if 0 /* This ought to be unnecessary; let's verify it. */
3271 /* If available, Xlib uses FIOSNBIO to make the socket
3272 non-blocking, and then looks for EWOULDBLOCK. If O_NDELAY is set,
3273 FIOSNBIO is ignored, and instead of signaling EWOULDBLOCK,
3274 a read returns 0, which Xlib interprets as equivalent to EPIPE. */
3275 fcntl (dpyinfo
->connection
, F_SETFL
, 0);
3276 #endif /* ! defined (FIOSNBIO) */
3279 #if 0 /* This code can't be made to work, with multiple displays,
3280 and appears not to be used on any system any more.
3281 Also keyboard.c doesn't turn O_NDELAY on and off
3282 for X connections. */
3285 if (! (fcntl (dpyinfo
->connection
, F_GETFL
, 0) & O_NDELAY
))
3287 extern int read_alarm_should_throw
;
3288 read_alarm_should_throw
= 1;
3289 XPeekEvent (dpyinfo
->display
, &event
);
3290 read_alarm_should_throw
= 0;
3292 #endif /* HAVE_SELECT */
3296 /* For debugging, this gives a way to fake an I/O error. */
3297 if (dpyinfo
== XTread_socket_fake_io_error
)
3299 XTread_socket_fake_io_error
= 0;
3300 x_io_error_quitter (dpyinfo
->display
);
3303 while (XPending (dpyinfo
->display
) != 0)
3305 XNextEvent (dpyinfo
->display
, &event
);
3312 if (event
.xclient
.message_type
3313 == dpyinfo
->Xatom_wm_protocols
3314 && event
.xclient
.format
== 32)
3316 if (event
.xclient
.data
.l
[0]
3317 == dpyinfo
->Xatom_wm_take_focus
)
3319 f
= x_window_to_frame (dpyinfo
, event
.xclient
.window
);
3320 /* Since we set WM_TAKE_FOCUS, we must call
3321 XSetInputFocus explicitly. But not if f is null,
3322 since that might be an event for a deleted frame. */
3324 /* Not quite sure this is needed -pd */
3326 XSetICFocus (FRAME_XIC (f
));
3329 XSetInputFocus (event
.xclient
.display
,
3330 event
.xclient
.window
,
3331 RevertToPointerRoot
,
3332 event
.xclient
.data
.l
[1]);
3333 /* Not certain about handling scroll bars here */
3335 else if (event
.xclient
.data
.l
[0]
3336 == dpyinfo
->Xatom_wm_save_yourself
)
3338 /* Save state modify the WM_COMMAND property to
3339 something which can reinstate us. This notifies
3340 the session manager, who's looking for such a
3341 PropertyNotify. Can restart processing when
3342 a keyboard or mouse event arrives. */
3345 f
= x_top_window_to_frame (dpyinfo
,
3346 event
.xclient
.window
);
3348 /* This is just so we only give real data once
3349 for a single Emacs process. */
3350 if (f
== selected_frame
)
3351 XSetCommand (FRAME_X_DISPLAY (f
),
3352 event
.xclient
.window
,
3353 initial_argv
, initial_argc
);
3355 XSetCommand (FRAME_X_DISPLAY (f
),
3356 event
.xclient
.window
,
3360 else if (event
.xclient
.data
.l
[0]
3361 == dpyinfo
->Xatom_wm_delete_window
)
3364 = x_any_window_to_frame (dpyinfo
,
3365 event
.xclient
.window
);
3372 bufp
->kind
= delete_window_event
;
3373 XSETFRAME (bufp
->frame_or_window
, f
);
3381 else if (event
.xclient
.message_type
3382 == dpyinfo
->Xatom_wm_configure_denied
)
3385 else if (event
.xclient
.message_type
3386 == dpyinfo
->Xatom_wm_window_moved
)
3390 = x_window_to_frame (dpyinfo
, event
.xclient
.window
);
3392 new_x
= event
.xclient
.data
.s
[0];
3393 new_y
= event
.xclient
.data
.s
[1];
3397 f
->output_data
.x
->left_pos
= new_x
;
3398 f
->output_data
.x
->top_pos
= new_y
;
3402 else if (event
.xclient
.message_type
3403 == dpyinfo
->Xatom_editres
)
3406 = x_any_window_to_frame (dpyinfo
, event
.xclient
.window
);
3407 _XEditResCheckMessages (f
->output_data
.x
->widget
, NULL
,
3410 #endif /* HACK_EDITRES */
3414 case SelectionNotify
:
3415 #ifdef USE_X_TOOLKIT
3416 if (! x_window_to_frame (dpyinfo
, event
.xselection
.requestor
))
3418 #endif /* not USE_X_TOOLKIT */
3419 x_handle_selection_notify (&event
);
3422 case SelectionClear
: /* Someone has grabbed ownership. */
3423 #ifdef USE_X_TOOLKIT
3424 if (! x_window_to_frame (dpyinfo
, event
.xselectionclear
.window
))
3426 #endif /* USE_X_TOOLKIT */
3428 XSelectionClearEvent
*eventp
= (XSelectionClearEvent
*) &event
;
3433 bufp
->kind
= selection_clear_event
;
3434 SELECTION_EVENT_DISPLAY (bufp
) = eventp
->display
;
3435 SELECTION_EVENT_SELECTION (bufp
) = eventp
->selection
;
3436 SELECTION_EVENT_TIME (bufp
) = eventp
->time
;
3437 bufp
->frame_or_window
= Qnil
;
3445 case SelectionRequest
: /* Someone wants our selection. */
3446 #ifdef USE_X_TOOLKIT
3447 if (!x_window_to_frame (dpyinfo
, event
.xselectionrequest
.owner
))
3449 #endif /* USE_X_TOOLKIT */
3450 if (x_queue_selection_requests
)
3451 x_queue_event (x_window_to_frame (dpyinfo
, event
.xselectionrequest
.owner
),
3455 XSelectionRequestEvent
*eventp
= (XSelectionRequestEvent
*) &event
;
3460 bufp
->kind
= selection_request_event
;
3461 SELECTION_EVENT_DISPLAY (bufp
) = eventp
->display
;
3462 SELECTION_EVENT_REQUESTOR (bufp
) = eventp
->requestor
;
3463 SELECTION_EVENT_SELECTION (bufp
) = eventp
->selection
;
3464 SELECTION_EVENT_TARGET (bufp
) = eventp
->target
;
3465 SELECTION_EVENT_PROPERTY (bufp
) = eventp
->property
;
3466 SELECTION_EVENT_TIME (bufp
) = eventp
->time
;
3467 bufp
->frame_or_window
= Qnil
;
3475 case PropertyNotify
:
3476 #ifdef USE_X_TOOLKIT
3477 if (!x_any_window_to_frame (dpyinfo
, event
.xproperty
.window
))
3479 #endif /* not USE_X_TOOLKIT */
3480 x_handle_property_notify (&event
);
3483 case ReparentNotify
:
3484 f
= x_top_window_to_frame (dpyinfo
, event
.xreparent
.window
);
3488 f
->output_data
.x
->parent_desc
= event
.xreparent
.parent
;
3489 x_real_positions (f
, &x
, &y
);
3490 f
->output_data
.x
->left_pos
= x
;
3491 f
->output_data
.x
->top_pos
= y
;
3496 f
= x_window_to_frame (dpyinfo
, event
.xexpose
.window
);
3499 if (f
->async_visible
== 0)
3501 f
->async_visible
= 1;
3502 f
->async_iconified
= 0;
3503 SET_FRAME_GARBAGED (f
);
3506 dumprectangle (x_window_to_frame (dpyinfo
,
3507 event
.xexpose
.window
),
3508 event
.xexpose
.x
, event
.xexpose
.y
,
3509 event
.xexpose
.width
, event
.xexpose
.height
);
3513 struct scroll_bar
*bar
3514 = x_window_to_scroll_bar (event
.xexpose
.window
);
3517 x_scroll_bar_expose (bar
, &event
);
3518 #ifdef USE_X_TOOLKIT
3521 #endif /* USE_X_TOOLKIT */
3525 case GraphicsExpose
: /* This occurs when an XCopyArea's
3526 source area was obscured or not
3528 f
= x_window_to_frame (dpyinfo
, event
.xgraphicsexpose
.drawable
);
3532 event
.xgraphicsexpose
.x
, event
.xgraphicsexpose
.y
,
3533 event
.xgraphicsexpose
.width
,
3534 event
.xgraphicsexpose
.height
);
3536 #ifdef USE_X_TOOLKIT
3539 #endif /* USE_X_TOOLKIT */
3542 case NoExpose
: /* This occurs when an XCopyArea's
3543 source area was completely
3548 f
= x_top_window_to_frame (dpyinfo
, event
.xunmap
.window
);
3549 if (f
) /* F may no longer exist if
3550 the frame was deleted. */
3552 /* While a frame is unmapped, display generation is
3553 disabled; you don't want to spend time updating a
3554 display that won't ever be seen. */
3555 f
->async_visible
= 0;
3556 /* We can't distinguish, from the event, whether the window
3557 has become iconified or invisible. So assume, if it
3558 was previously visible, than now it is iconified.
3559 We depend on x_make_frame_invisible to mark it iconified. */
3560 if (FRAME_VISIBLE_P (f
) || FRAME_ICONIFIED_P (f
))
3561 f
->async_iconified
= 1;
3563 bufp
->kind
= iconify_event
;
3564 XSETFRAME (bufp
->frame_or_window
, f
);
3572 /* We use x_top_window_to_frame because map events can come
3573 for subwindows and they don't mean that the frame is visible. */
3574 f
= x_top_window_to_frame (dpyinfo
, event
.xmap
.window
);
3577 f
->async_visible
= 1;
3578 f
->async_iconified
= 0;
3580 /* wait_reading_process_input will notice this and update
3581 the frame's display structures. */
3582 SET_FRAME_GARBAGED (f
);
3586 bufp
->kind
= deiconify_event
;
3587 XSETFRAME (bufp
->frame_or_window
, f
);
3592 else if (! NILP(Vframe_list
)
3593 && ! NILP (XCONS (Vframe_list
)->cdr
))
3594 /* Force a redisplay sooner or later
3595 to update the frame titles
3596 in case this is the second frame. */
3597 record_asynch_buffer_change ();
3601 /* Turn off processing if we become fully obscured. */
3602 case VisibilityNotify
:
3606 f
= x_any_window_to_frame (dpyinfo
, event
.xkey
.window
);
3610 KeySym keysym
, orig_keysym
;
3611 /* al%imercury@uunet.uu.net says that making this 81 instead of
3612 80 fixed a bug whereby meta chars made his Emacs hang. */
3613 unsigned char copy_buffer
[81];
3617 |= x_emacs_to_x_modifiers (FRAME_X_DISPLAY_INFO (f
),
3618 extra_keyboard_modifiers
);
3619 modifiers
= event
.xkey
.state
;
3621 /* This will have to go some day... */
3623 /* make_lispy_event turns chars into control chars.
3624 Don't do it here because XLookupString is too eager. */
3625 event
.xkey
.state
&= ~ControlMask
;
3626 event
.xkey
.state
&= ~(dpyinfo
->meta_mod_mask
3627 | dpyinfo
->super_mod_mask
3628 | dpyinfo
->hyper_mod_mask
3629 | dpyinfo
->alt_mod_mask
);
3634 /* The necessity of the following line took me
3635 a full work-day to decipher from the docs!! */
3636 if (XFilterEvent (&event
, None
))
3638 nbytes
= XmbLookupString (FRAME_XIC (f
),
3639 &event
.xkey
, copy_buffer
,
3644 nbytes
= XLookupString (&event
.xkey
, copy_buffer
,
3645 80, &keysym
, &compose_status
);
3647 nbytes
= XLookupString (&event
.xkey
, copy_buffer
,
3648 80, &keysym
, &compose_status
);
3651 orig_keysym
= keysym
;
3655 if (((keysym
>= XK_BackSpace
&& keysym
<= XK_Escape
)
3656 || keysym
== XK_Delete
3657 || IsCursorKey (keysym
) /* 0xff50 <= x < 0xff60 */
3658 || IsMiscFunctionKey (keysym
) /* 0xff60 <= x < VARIES */
3660 /* This recognizes the "extended function keys".
3661 It seems there's no cleaner way.
3662 Test IsModifierKey to avoid handling mode_switch
3664 || ((unsigned) (keysym
) >= XK_Select
3665 && (unsigned)(keysym
) < XK_KP_Space
)
3667 #ifdef XK_dead_circumflex
3668 || orig_keysym
== XK_dead_circumflex
3670 #ifdef XK_dead_grave
3671 || orig_keysym
== XK_dead_grave
3673 #ifdef XK_dead_tilde
3674 || orig_keysym
== XK_dead_tilde
3676 #ifdef XK_dead_diaeresis
3677 || orig_keysym
== XK_dead_diaeresis
3679 #ifdef XK_dead_macron
3680 || orig_keysym
== XK_dead_macron
3682 #ifdef XK_dead_degree
3683 || orig_keysym
== XK_dead_degree
3685 #ifdef XK_dead_acute
3686 || orig_keysym
== XK_dead_acute
3688 #ifdef XK_dead_cedilla
3689 || orig_keysym
== XK_dead_cedilla
3691 #ifdef XK_dead_breve
3692 || orig_keysym
== XK_dead_breve
3694 #ifdef XK_dead_ogonek
3695 || orig_keysym
== XK_dead_ogonek
3697 #ifdef XK_dead_caron
3698 || orig_keysym
== XK_dead_caron
3700 #ifdef XK_dead_doubleacute
3701 || orig_keysym
== XK_dead_doubleacute
3703 #ifdef XK_dead_abovedot
3704 || orig_keysym
== XK_dead_abovedot
3706 || IsKeypadKey (keysym
) /* 0xff80 <= x < 0xffbe */
3707 || IsFunctionKey (keysym
) /* 0xffbe <= x < 0xffe1 */
3708 /* Any "vendor-specific" key is ok. */
3709 || (orig_keysym
& (1 << 28)))
3710 && ! (IsModifierKey (orig_keysym
)
3712 #ifdef XK_Mode_switch
3713 || ((unsigned)(orig_keysym
) == XK_Mode_switch
)
3716 || ((unsigned)(orig_keysym
) == XK_Num_Lock
)
3718 #endif /* not HAVE_X11R5 */
3721 if (temp_index
== sizeof temp_buffer
/ sizeof (short))
3723 temp_buffer
[temp_index
++] = keysym
;
3724 bufp
->kind
= non_ascii_keystroke
;
3725 bufp
->code
= keysym
;
3726 XSETFRAME (bufp
->frame_or_window
, f
);
3728 = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f
),
3730 bufp
->timestamp
= event
.xkey
.time
;
3735 else if (numchars
> nbytes
)
3739 for (i
= 0; i
< nbytes
; i
++)
3741 if (temp_index
== sizeof temp_buffer
/ sizeof (short))
3743 temp_buffer
[temp_index
++] = copy_buffer
[i
];
3744 bufp
->kind
= ascii_keystroke
;
3745 bufp
->code
= copy_buffer
[i
];
3746 XSETFRAME (bufp
->frame_or_window
, f
);
3748 = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f
),
3750 bufp
->timestamp
= event
.xkey
.time
;
3765 /* Here's a possible interpretation of the whole
3766 FocusIn-EnterNotify FocusOut-LeaveNotify mess. If you get a
3767 FocusIn event, you have to get a FocusOut event before you
3768 relinquish the focus. If you haven't received a FocusIn event,
3769 then a mere LeaveNotify is enough to free you. */
3772 f
= x_any_window_to_frame (dpyinfo
, event
.xcrossing
.window
);
3774 if (event
.xcrossing
.focus
) /* Entered Window */
3776 /* Avoid nasty pop/raise loops. */
3777 if (f
&& (!(f
->auto_raise
)
3779 || (event
.xcrossing
.time
- enter_timestamp
) > 500))
3781 x_new_focus_frame (dpyinfo
, f
);
3782 enter_timestamp
= event
.xcrossing
.time
;
3785 else if (f
== dpyinfo
->x_focus_frame
)
3786 x_new_focus_frame (dpyinfo
, 0);
3787 /* EnterNotify counts as mouse movement,
3788 so update things that depend on mouse position. */
3790 note_mouse_movement (f
, &event
.xmotion
);
3794 f
= x_any_window_to_frame (dpyinfo
, event
.xfocus
.window
);
3795 if (event
.xfocus
.detail
!= NotifyPointer
)
3796 dpyinfo
->x_focus_event_frame
= f
;
3798 x_new_focus_frame (dpyinfo
, f
);
3801 if (f
&& FRAME_XIC (f
))
3802 XSetICFocus (FRAME_XIC (f
));
3808 f
= x_top_window_to_frame (dpyinfo
, event
.xcrossing
.window
);
3811 if (f
== dpyinfo
->mouse_face_mouse_frame
)
3812 /* If we move outside the frame,
3813 then we're certainly no longer on any text in the frame. */
3814 clear_mouse_face (dpyinfo
);
3816 if (event
.xcrossing
.focus
)
3817 x_mouse_leave (dpyinfo
);
3820 if (f
== dpyinfo
->x_focus_event_frame
)
3821 dpyinfo
->x_focus_event_frame
= 0;
3822 if (f
== dpyinfo
->x_focus_frame
)
3823 x_new_focus_frame (dpyinfo
, 0);
3829 f
= x_any_window_to_frame (dpyinfo
, event
.xfocus
.window
);
3830 if (event
.xfocus
.detail
!= NotifyPointer
3831 && f
== dpyinfo
->x_focus_event_frame
)
3832 dpyinfo
->x_focus_event_frame
= 0;
3833 if (f
&& f
== dpyinfo
->x_focus_frame
)
3834 x_new_focus_frame (dpyinfo
, 0);
3837 if (f
&& FRAME_XIC (f
))
3838 XUnsetICFocus (FRAME_XIC (f
));
3845 if (dpyinfo
->grabbed
&& last_mouse_frame
3846 && FRAME_LIVE_P (last_mouse_frame
))
3847 f
= last_mouse_frame
;
3849 f
= x_window_to_frame (dpyinfo
, event
.xmotion
.window
);
3851 note_mouse_movement (f
, &event
.xmotion
);
3854 struct scroll_bar
*bar
3855 = x_window_to_scroll_bar (event
.xmotion
.window
);
3858 x_scroll_bar_note_movement (bar
, &event
);
3860 /* If we move outside the frame,
3861 then we're certainly no longer on any text in the frame. */
3862 clear_mouse_face (dpyinfo
);
3867 case ConfigureNotify
:
3868 f
= x_any_window_to_frame (dpyinfo
, event
.xconfigure
.window
);
3870 #ifdef USE_X_TOOLKIT
3871 && (event
.xconfigure
.window
== XtWindow (f
->output_data
.x
->widget
))
3875 #ifndef USE_X_TOOLKIT
3876 /* In the toolkit version, change_frame_size
3877 is called by the code that handles resizing
3878 of the EmacsFrame widget. */
3880 int rows
= PIXEL_TO_CHAR_HEIGHT (f
, event
.xconfigure
.height
);
3881 int columns
= PIXEL_TO_CHAR_WIDTH (f
, event
.xconfigure
.width
);
3883 /* Even if the number of character rows and columns has
3884 not changed, the font size may have changed, so we need
3885 to check the pixel dimensions as well. */
3886 if (columns
!= f
->width
3887 || rows
!= f
->height
3888 || event
.xconfigure
.width
!= f
->output_data
.x
->pixel_width
3889 || event
.xconfigure
.height
!= f
->output_data
.x
->pixel_height
)
3891 change_frame_size (f
, rows
, columns
, 0, 1);
3892 SET_FRAME_GARBAGED (f
);
3896 /* Formerly, in the USE_X_TOOLKIT version,
3897 we did not test send_event here. */
3899 #ifndef USE_X_TOOLKIT
3900 && ! event
.xconfigure
.send_event
3907 /* Find the position of the outside upper-left corner of
3908 the window, in the root coordinate system. Don't
3909 refer to the parent window here; we may be processing
3910 this event after the window manager has changed our
3911 parent, but before we have reached the ReparentNotify. */
3912 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
3914 /* From-window, to-window. */
3915 event
.xconfigure
.window
,
3916 FRAME_X_DISPLAY_INFO (f
)->root_window
,
3918 /* From-position, to-position. */
3919 -event
.xconfigure
.border_width
,
3920 -event
.xconfigure
.border_width
,
3925 event
.xconfigure
.x
= win_x
;
3926 event
.xconfigure
.y
= win_y
;
3929 f
->output_data
.x
->pixel_width
= event
.xconfigure
.width
;
3930 f
->output_data
.x
->pixel_height
= event
.xconfigure
.height
;
3931 f
->output_data
.x
->left_pos
= event
.xconfigure
.x
;
3932 f
->output_data
.x
->top_pos
= event
.xconfigure
.y
;
3934 /* What we have now is the position of Emacs's own window.
3935 Convert that to the position of the window manager window. */
3938 x_real_positions (f
, &x
, &y
);
3939 f
->output_data
.x
->left_pos
= x
;
3940 f
->output_data
.x
->top_pos
= y
;
3941 /* Formerly we did not do this in the USE_X_TOOLKIT
3942 version. Let's try making them the same. */
3943 /* #ifndef USE_X_TOOLKIT */
3944 if (y
!= event
.xconfigure
.y
)
3946 /* Since the WM decorations come below top_pos now,
3947 we must put them below top_pos in the future. */
3948 f
->output_data
.x
->win_gravity
= NorthWestGravity
;
3949 x_wm_set_size_hint (f
, (long) 0, 0);
3959 /* If we decide we want to generate an event to be seen
3960 by the rest of Emacs, we put it here. */
3961 struct input_event emacs_event
;
3962 emacs_event
.kind
= no_event
;
3964 bzero (&compose_status
, sizeof (compose_status
));
3966 if (dpyinfo
->grabbed
&& last_mouse_frame
3967 && FRAME_LIVE_P (last_mouse_frame
))
3968 f
= last_mouse_frame
;
3970 f
= x_window_to_frame (dpyinfo
, event
.xbutton
.window
);
3974 if (!dpyinfo
->x_focus_frame
|| f
== dpyinfo
->x_focus_frame
)
3975 construct_mouse_click (&emacs_event
, &event
, f
);
3979 struct scroll_bar
*bar
3980 = x_window_to_scroll_bar (event
.xbutton
.window
);
3983 x_scroll_bar_handle_click (bar
, &event
, &emacs_event
);
3986 if (event
.type
== ButtonPress
)
3988 dpyinfo
->grabbed
|= (1 << event
.xbutton
.button
);
3989 last_mouse_frame
= f
;
3993 dpyinfo
->grabbed
&= ~(1 << event
.xbutton
.button
);
3996 if (numchars
>= 1 && emacs_event
.kind
!= no_event
)
3998 bcopy (&emacs_event
, bufp
, sizeof (struct input_event
));
4004 #ifdef USE_X_TOOLKIT
4005 f
= x_menubar_window_to_frame (dpyinfo
, event
.xbutton
.window
);
4006 /* For a down-event in the menu bar,
4007 don't pass it to Xt right now.
4008 Instead, save it away
4009 and we will pass it to Xt from kbd_buffer_get_event.
4010 That way, we can run some Lisp code first. */
4011 if (f
&& event
.type
== ButtonPress
4012 /* Verify the event is really within the menu bar
4013 and not just sent to it due to grabbing. */
4014 && event
.xbutton
.x
>= 0
4015 && event
.xbutton
.x
< f
->output_data
.x
->pixel_width
4016 && event
.xbutton
.y
>= 0
4017 && event
.xbutton
.y
< f
->output_data
.x
->menubar_height
4018 && event
.xbutton
.same_screen
)
4020 if (f
->output_data
.x
->saved_button_event
== 0)
4021 f
->output_data
.x
->saved_button_event
4022 = (XButtonEvent
*) xmalloc (sizeof (XButtonEvent
));
4023 bcopy (&event
, f
->output_data
.x
->saved_button_event
,
4024 sizeof (XButtonEvent
));
4027 bufp
->kind
= menu_bar_activate_event
;
4028 XSETFRAME (bufp
->frame_or_window
, f
);
4036 #endif /* USE_X_TOOLKIT */
4040 case CirculateNotify
:
4042 case CirculateRequest
:
4046 /* Someone has changed the keyboard mapping - update the
4048 switch (event
.xmapping
.request
)
4050 case MappingModifier
:
4051 x_find_modifier_meanings (dpyinfo
);
4052 /* This is meant to fall through. */
4053 case MappingKeyboard
:
4054 XRefreshKeyboardMapping (&event
.xmapping
);
4060 #ifdef USE_X_TOOLKIT
4062 XtDispatchEvent (&event
);
4064 #endif /* USE_X_TOOLKIT */
4070 /* On some systems, an X bug causes Emacs to get no more events
4071 when the window is destroyed. Detect that. (1994.) */
4074 /* Emacs and the X Server eats up CPU time if XNoOp is done every time.
4075 One XNOOP in 100 loops will make Emacs terminate.
4076 B. Bretthauer, 1994 */
4078 if (x_noop_count
>= 100)
4082 if (next_noop_dpyinfo
== 0)
4083 next_noop_dpyinfo
= x_display_list
;
4085 XNoOp (next_noop_dpyinfo
->display
);
4087 /* Each time we get here, cycle through the displays now open. */
4088 next_noop_dpyinfo
= next_noop_dpyinfo
->next
;
4092 /* If the focus was just given to an autoraising frame,
4094 /* ??? This ought to be able to handle more than one such frame. */
4095 if (pending_autoraise_frame
)
4097 x_raise_frame (pending_autoraise_frame
);
4098 pending_autoraise_frame
= 0;
4105 /* Drawing the cursor. */
4108 /* Draw a hollow box cursor on frame F at X, Y.
4109 Don't change the inside of the box. */
4112 x_draw_box (f
, x
, y
)
4116 int left
= CHAR_TO_PIXEL_COL (f
, x
);
4117 int top
= CHAR_TO_PIXEL_ROW (f
, y
);
4118 int width
= FONT_WIDTH (f
->output_data
.x
->font
);
4119 int height
= f
->output_data
.x
->line_height
;
4121 XDrawRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4122 f
->output_data
.x
->cursor_gc
,
4123 left
, top
, width
- 1, height
- 1);
4126 /* Clear the cursor of frame F to background color,
4127 and mark the cursor as not shown.
4128 This is used when the text where the cursor is
4129 is about to be rewritten. */
4137 if (! FRAME_VISIBLE_P (f
)
4138 || f
->phys_cursor_x
< 0)
4141 x_display_cursor (f
, 0);
4142 f
->phys_cursor_x
= -1;
4145 /* Redraw the glyph at ROW, COLUMN on frame F, in the style
4146 HIGHLIGHT. HIGHLIGHT is as defined for dumpglyphs. Return the
4150 x_draw_single_glyph (f
, row
, column
, glyph
, highlight
)
4157 CHAR_TO_PIXEL_COL (f
, column
),
4158 CHAR_TO_PIXEL_ROW (f
, row
),
4159 &glyph
, 1, highlight
, 0);
4163 x_display_bar_cursor (f
, on
, x
, y
)
4168 struct frame_glyphs
*current_glyphs
= FRAME_CURRENT_GLYPHS (f
);
4170 /* This is pointless on invisible frames, and dangerous on garbaged
4171 frames; in the latter case, the frame may be in the midst of
4172 changing its size, and x and y may be off the frame. */
4173 if (! FRAME_VISIBLE_P (f
) || FRAME_GARBAGED_P (f
))
4176 if (! on
&& f
->phys_cursor_x
< 0)
4179 /* If there is anything wrong with the current cursor state, remove it. */
4180 if (f
->phys_cursor_x
>= 0
4182 || f
->phys_cursor_x
!= x
4183 || f
->phys_cursor_y
!= y
4184 || f
->output_data
.x
->current_cursor
!= bar_cursor
))
4186 /* Erase the cursor by redrawing the character underneath it. */
4187 x_draw_single_glyph (f
, f
->phys_cursor_y
, f
->phys_cursor_x
,
4188 f
->phys_cursor_glyph
,
4189 current_glyphs
->highlight
[f
->phys_cursor_y
]);
4190 f
->phys_cursor_x
= -1;
4193 /* If we now need a cursor in the new place or in the new form, do it so. */
4195 && (f
->phys_cursor_x
< 0
4196 || (f
->output_data
.x
->current_cursor
!= bar_cursor
)))
4198 f
->phys_cursor_glyph
4199 = ((current_glyphs
->enable
[y
]
4200 && x
< current_glyphs
->used
[y
])
4201 ? current_glyphs
->glyphs
[y
][x
]
4203 XFillRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4204 f
->output_data
.x
->cursor_gc
,
4205 CHAR_TO_PIXEL_COL (f
, x
),
4206 CHAR_TO_PIXEL_ROW (f
, y
),
4207 max (f
->output_data
.x
->cursor_width
, 1),
4208 f
->output_data
.x
->line_height
);
4210 f
->phys_cursor_x
= x
;
4211 f
->phys_cursor_y
= y
;
4213 f
->output_data
.x
->current_cursor
= bar_cursor
;
4216 if (updating_frame
!= f
)
4217 XFlush (FRAME_X_DISPLAY (f
));
4221 /* Turn the displayed cursor of frame F on or off according to ON.
4222 If ON is nonzero, where to put the cursor is specified by X and Y. */
4225 x_display_box_cursor (f
, on
, x
, y
)
4230 struct frame_glyphs
*current_glyphs
= FRAME_CURRENT_GLYPHS (f
);
4232 /* This is pointless on invisible frames, and dangerous on garbaged
4233 frames; in the latter case, the frame may be in the midst of
4234 changing its size, and x and y may be off the frame. */
4235 if (! FRAME_VISIBLE_P (f
) || FRAME_GARBAGED_P (f
))
4238 /* If cursor is off and we want it off, return quickly. */
4239 if (!on
&& f
->phys_cursor_x
< 0)
4242 /* If cursor is currently being shown and we don't want it to be
4243 or it is in the wrong place,
4244 or we want a hollow box and it's not so, (pout!)
4246 if (f
->phys_cursor_x
>= 0
4248 || f
->phys_cursor_x
!= x
4249 || f
->phys_cursor_y
!= y
4250 || (f
->output_data
.x
->current_cursor
!= hollow_box_cursor
4251 && (f
!= FRAME_X_DISPLAY_INFO (f
)->x_highlight_frame
))))
4253 int mouse_face_here
= 0;
4254 struct frame_glyphs
*active_glyphs
= FRAME_CURRENT_GLYPHS (f
);
4256 /* If the cursor is in the mouse face area, redisplay that when
4257 we clear the cursor. */
4258 if (f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
4260 (f
->phys_cursor_y
> FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
4261 || (f
->phys_cursor_y
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
4262 && f
->phys_cursor_x
>= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
))
4264 (f
->phys_cursor_y
< FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
4265 || (f
->phys_cursor_y
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
4266 && f
->phys_cursor_x
< FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
))
4267 /* Don't redraw the cursor's spot in mouse face
4268 if it is at the end of a line (on a newline).
4269 The cursor appears there, but mouse highlighting does not. */
4270 && active_glyphs
->used
[f
->phys_cursor_y
] > f
->phys_cursor_x
)
4271 mouse_face_here
= 1;
4273 /* If the font is not as tall as a whole line,
4274 we must explicitly clear the line's whole height. */
4275 if (FONT_HEIGHT (f
->output_data
.x
->font
) != f
->output_data
.x
->line_height
)
4276 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4277 CHAR_TO_PIXEL_COL (f
, f
->phys_cursor_x
),
4278 CHAR_TO_PIXEL_ROW (f
, f
->phys_cursor_y
),
4279 FONT_WIDTH (f
->output_data
.x
->font
),
4280 f
->output_data
.x
->line_height
, False
);
4281 /* Erase the cursor by redrawing the character underneath it. */
4282 x_draw_single_glyph (f
, f
->phys_cursor_y
, f
->phys_cursor_x
,
4283 f
->phys_cursor_glyph
,
4286 : current_glyphs
->highlight
[f
->phys_cursor_y
]));
4287 f
->phys_cursor_x
= -1;
4290 /* If we want to show a cursor,
4291 or we want a box cursor and it's not so,
4292 write it in the right place. */
4294 && (f
->phys_cursor_x
< 0
4295 || (f
->output_data
.x
->current_cursor
!= filled_box_cursor
4296 && f
== FRAME_X_DISPLAY_INFO (f
)->x_highlight_frame
)))
4298 f
->phys_cursor_glyph
4299 = ((current_glyphs
->enable
[y
]
4300 && x
< current_glyphs
->used
[y
])
4301 ? current_glyphs
->glyphs
[y
][x
]
4303 if (f
!= FRAME_X_DISPLAY_INFO (f
)->x_highlight_frame
)
4305 x_draw_box (f
, x
, y
);
4306 f
->output_data
.x
->current_cursor
= hollow_box_cursor
;
4310 x_draw_single_glyph (f
, y
, x
,
4311 f
->phys_cursor_glyph
, 2);
4312 f
->output_data
.x
->current_cursor
= filled_box_cursor
;
4315 f
->phys_cursor_x
= x
;
4316 f
->phys_cursor_y
= y
;
4319 if (updating_frame
!= f
)
4320 XFlush (FRAME_X_DISPLAY (f
));
4323 /* Display the cursor on frame F, or clear it, according to ON.
4324 Use the position specified by curs_x and curs_y
4325 if we are doing an update of frame F now.
4326 Otherwise use the position in the FRAME_CURSOR_X and FRAME_CURSOR_Y fields
4329 x_display_cursor (f
, on
)
4335 /* If we're not updating, then don't change the physical cursor
4336 position. Just change (if appropriate) the style of display. */
4337 if (f
!= updating_frame
)
4339 curs_x
= FRAME_CURSOR_X (f
);
4340 curs_y
= FRAME_CURSOR_Y (f
);
4343 if (FRAME_DESIRED_CURSOR (f
) == filled_box_cursor
)
4344 x_display_box_cursor (f
, on
, curs_x
, curs_y
);
4345 else if (FRAME_DESIRED_CURSOR (f
) == bar_cursor
)
4346 x_display_bar_cursor (f
, on
, curs_x
, curs_y
);
4348 /* Those are the only two we have implemented! */
4354 /* Display the cursor on frame F, or clear it, according to ON.
4355 Don't change the cursor's position. */
4357 x_update_cursor (f
, on
)
4361 /* If we don't have any previous cursor position to use,
4362 leave the cursor off. */
4363 if (f
->phys_cursor_x
< 0)
4368 if (FRAME_DESIRED_CURSOR (f
) == filled_box_cursor
)
4369 x_display_box_cursor (f
, on
, f
->phys_cursor_x
, f
->phys_cursor_y
);
4370 else if (FRAME_DESIRED_CURSOR (f
) == bar_cursor
)
4371 x_display_bar_cursor (f
, on
, f
->phys_cursor_x
, f
->phys_cursor_y
);
4373 /* Those are the only two we have implemented! */
4381 /* Refresh bitmap kitchen sink icon for frame F
4382 when we get an expose event for it. */
4387 /* Normally, the window manager handles this function. */
4390 /* Make the x-window of frame F use the gnu icon bitmap. */
4393 x_bitmap_icon (f
, file
)
4397 int mask
, bitmap_id
;
4400 if (FRAME_X_WINDOW (f
) == 0)
4403 /* Free up our existing icon bitmap if any. */
4404 if (f
->output_data
.x
->icon_bitmap
> 0)
4405 x_destroy_bitmap (f
, f
->output_data
.x
->icon_bitmap
);
4406 f
->output_data
.x
->icon_bitmap
= 0;
4409 bitmap_id
= x_create_bitmap_from_file (f
, file
);
4412 /* Create the GNU bitmap if necessary. */
4413 if (FRAME_X_DISPLAY_INFO (f
)->icon_bitmap_id
< 0)
4414 FRAME_X_DISPLAY_INFO (f
)->icon_bitmap_id
4415 = x_create_bitmap_from_data (f
, gnu_bits
,
4416 gnu_width
, gnu_height
);
4418 /* The first time we create the GNU bitmap,
4419 this increments the refcount one extra time.
4420 As a result, the GNU bitmap is never freed.
4421 That way, we don't have to worry about allocating it again. */
4422 x_reference_bitmap (f
, FRAME_X_DISPLAY_INFO (f
)->icon_bitmap_id
);
4424 bitmap_id
= FRAME_X_DISPLAY_INFO (f
)->icon_bitmap_id
;
4427 x_wm_set_icon_pixmap (f
, bitmap_id
);
4428 f
->output_data
.x
->icon_bitmap
= bitmap_id
;
4434 /* Make the x-window of frame F use a rectangle with text.
4435 Use ICON_NAME as the text. */
4438 x_text_icon (f
, icon_name
)
4442 if (FRAME_X_WINDOW (f
) == 0)
4448 text
.value
= (unsigned char *) icon_name
;
4449 text
.encoding
= XA_STRING
;
4451 text
.nitems
= strlen (icon_name
);
4452 #ifdef USE_X_TOOLKIT
4453 XSetWMIconName (FRAME_X_DISPLAY (f
), XtWindow (f
->output_data
.x
->widget
),
4455 #else /* not USE_X_TOOLKIT */
4456 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &text
);
4457 #endif /* not USE_X_TOOLKIT */
4459 #else /* not HAVE_X11R4 */
4460 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), icon_name
);
4461 #endif /* not HAVE_X11R4 */
4463 if (f
->output_data
.x
->icon_bitmap
> 0)
4464 x_destroy_bitmap (f
, f
->output_data
.x
->icon_bitmap
);
4465 f
->output_data
.x
->icon_bitmap
= 0;
4466 x_wm_set_icon_pixmap (f
, 0);
4471 /* Handling X errors. */
4473 /* Handle the loss of connection to display DISPLAY. */
4476 x_connection_closed (display
, error_message
)
4478 char *error_message
;
4480 struct x_display_info
*dpyinfo
= x_display_info_for_display (display
);
4481 Lisp_Object frame
, tail
;
4483 /* Indicate that this display is dead. */
4485 dpyinfo
->display
= 0;
4487 /* First delete frames whose minibuffers are on frames
4488 that are on the dead display. */
4489 FOR_EACH_FRAME (tail
, frame
)
4491 Lisp_Object minibuf_frame
;
4493 = WINDOW_FRAME (XWINDOW (FRAME_MINIBUF_WINDOW (XFRAME (frame
))));
4494 if (FRAME_X_P (XFRAME (frame
))
4495 && FRAME_X_P (XFRAME (minibuf_frame
))
4496 && ! EQ (frame
, minibuf_frame
)
4497 && FRAME_X_DISPLAY_INFO (XFRAME (minibuf_frame
)) == dpyinfo
)
4498 Fdelete_frame (frame
, Qt
);
4501 /* Now delete all remaining frames on the dead display.
4502 We are now sure none of these is used as the minibuffer
4503 for another frame that we need to delete. */
4504 FOR_EACH_FRAME (tail
, frame
)
4505 if (FRAME_X_P (XFRAME (frame
))
4506 && FRAME_X_DISPLAY_INFO (XFRAME (frame
)) == dpyinfo
)
4508 /* Set this to t so that Fdelete_frame won't get confused
4509 trying to find a replacement. */
4510 FRAME_KBOARD (XFRAME (frame
))->Vdefault_minibuffer_frame
= Qt
;
4511 Fdelete_frame (frame
, Qt
);
4515 x_delete_display (dpyinfo
);
4517 if (x_display_list
== 0)
4519 fprintf (stderr
, "%s", error_message
);
4520 shut_down_emacs (0, 0, Qnil
);
4524 /* Ordinary stack unwind doesn't deal with these. */
4526 sigunblock (sigmask (SIGIO
));
4528 sigunblock (sigmask (SIGALRM
));
4529 TOTALLY_UNBLOCK_INPUT
;
4531 error ("%s", error_message
);
4534 /* This is the usual handler for X protocol errors.
4535 It kills all frames on the display that we got the error for.
4536 If that was the only one, it prints an error message and kills Emacs. */
4539 x_error_quitter (display
, error
)
4543 char buf
[256], buf1
[356];
4545 /* Note that there is no real way portable across R3/R4 to get the
4546 original error handler. */
4548 XGetErrorText (display
, error
->error_code
, buf
, sizeof (buf
));
4549 sprintf (buf1
, "X protocol error: %s on protocol request %d\n",
4550 buf
, error
->request_code
);
4551 x_connection_closed (display
, buf1
);
4554 /* This is the handler for X IO errors, always.
4555 It kills all frames on the display that we lost touch with.
4556 If that was the only one, it prints an error message and kills Emacs. */
4559 x_io_error_quitter (display
)
4564 sprintf (buf
, "Connection lost to X server `%s'", DisplayString (display
));
4565 x_connection_closed (display
, buf
);
4568 /* Handle SIGPIPE, which can happen when the connection to a server
4569 simply goes away. SIGPIPE is handled by x_connection_signal.
4570 It works by sending a no-op command to each X server connection.
4571 When we try a connection that has closed, we get SIGPIPE again.
4572 But this time, it is handled by x_connection_signal_1.
4573 That function knows which connection we were testing,
4574 so it closes that one.
4576 x_connection_closed never returns,
4577 so if more than one connection was lost at once,
4578 we only find one. But XTread_socket keeps trying them all,
4579 so it will notice the other closed one sooner or later. */
4582 static struct x_display_info
*x_connection_signal_dpyinfo
;
4584 static SIGTYPE
x_connection_signal ();
4587 x_connection_signal_1 (signalnum
) /* If we don't have an argument, */
4588 int signalnum
; /* some compilers complain in signal calls. */
4590 signal (SIGPIPE
, x_connection_signal
);
4591 x_connection_closed (x_connection_signal_dpyinfo
->display
,
4592 "connection was lost");
4596 x_connection_signal (signalnum
) /* If we don't have an argument, */
4597 int signalnum
; /* some compilers complain in signal calls. */
4599 x_connection_signal_dpyinfo
= x_display_list
;
4601 sigunblock (sigmask (SIGPIPE
));
4603 while (x_connection_signal_dpyinfo
)
4605 signal (SIGPIPE
, x_connection_signal_1
);
4607 x_connection_close_if_hung (x_connection_signal_dpyinfo
);
4609 XNoOp (x_connection_signal_dpyinfo
->display
);
4611 XSync (x_connection_signal_dpyinfo
->display
, False
);
4613 /* Each time we get here, cycle through the displays now open. */
4614 x_connection_signal_dpyinfo
= x_connection_signal_dpyinfo
->next
;
4617 /* We should have found some closed connection. */
4621 /* A buffer for storing X error messages. */
4622 static char *x_caught_error_message
;
4623 #define X_CAUGHT_ERROR_MESSAGE_SIZE 200
4625 /* An X error handler which stores the error message in
4626 x_caught_error_message. This is what's installed when
4627 x_catch_errors is in effect. */
4630 x_error_catcher (display
, error
)
4634 XGetErrorText (display
, error
->error_code
,
4635 x_caught_error_message
, X_CAUGHT_ERROR_MESSAGE_SIZE
);
4639 /* Begin trapping X errors for display DPY. Actually we trap X errors
4640 for all displays, but DPY should be the display you are actually
4643 After calling this function, X protocol errors no longer cause
4644 Emacs to exit; instead, they are recorded in x_cfc_error_message.
4646 Calling x_check_errors signals an Emacs error if an X error has
4647 occurred since the last call to x_catch_errors or x_check_errors.
4649 Calling x_uncatch_errors resumes the normal error handling. */
4651 void x_catch_errors (), x_check_errors (), x_uncatch_errors ();
4654 x_catch_errors (dpy
)
4657 /* Make sure any errors from previous requests have been dealt with. */
4660 /* Set up the error buffer. */
4661 x_caught_error_message
4662 = (char*) xmalloc (X_CAUGHT_ERROR_MESSAGE_SIZE
);
4663 x_caught_error_message
[0] = '\0';
4665 /* Install our little error handler. */
4666 XSetErrorHandler (x_error_catcher
);
4669 /* If any X protocol errors have arrived since the last call to
4670 x_catch_errors or x_check_errors, signal an Emacs error using
4671 sprintf (a buffer, FORMAT, the x error message text) as the text. */
4674 x_check_errors (dpy
, format
)
4678 /* Make sure to catch any errors incurred so far. */
4681 if (x_caught_error_message
[0])
4683 char buf
[X_CAUGHT_ERROR_MESSAGE_SIZE
+ 56];
4685 sprintf (buf
, format
, x_caught_error_message
);
4686 x_uncatch_errors (dpy
);
4691 /* Nonzero if we had any X protocol errors since we did x_catch_errors. */
4694 x_had_errors_p (dpy
)
4697 /* Make sure to catch any errors incurred so far. */
4700 return x_caught_error_message
[0] != 0;
4703 /* Stop catching X protocol errors and let them make Emacs die. */
4706 x_uncatch_errors (dpy
)
4709 xfree (x_caught_error_message
);
4710 x_caught_error_message
= 0;
4711 XSetErrorHandler (x_error_quitter
);
4715 static unsigned int x_wire_count
;
4718 fprintf (stderr
, "Lib call: %d\n", ++x_wire_count
);
4723 /* Changing the font of the frame. */
4725 /* Give frame F the font named FONTNAME as its default font, and
4726 return the full name of that font. FONTNAME may be a wildcard
4727 pattern; in that case, we choose some font that fits the pattern.
4728 The return value shows which font we chose. */
4731 x_new_font (f
, fontname
)
4733 register char *fontname
;
4736 int n_matching_fonts
;
4737 XFontStruct
*font_info
;
4740 /* Get a list of all the fonts that match this name. Once we
4741 have a list of matching fonts, we compare them against the fonts
4742 we already have by comparing font ids. */
4743 font_names
= (char **) XListFonts (FRAME_X_DISPLAY (f
), fontname
,
4744 1024, &n_matching_fonts
);
4745 /* Apparently it doesn't set n_matching_fonts to zero when it can't
4746 find any matches; font_names == 0 is the only clue. */
4748 n_matching_fonts
= 0;
4750 /* Don't just give up if n_matching_fonts is 0.
4751 Apparently there's a bug on Suns: XListFontsWithInfo can
4752 fail to find a font, but XLoadQueryFont may still find it. */
4754 /* See if we've already loaded a matching font. */
4755 already_loaded
= -1;
4756 if (n_matching_fonts
!= 0)
4760 for (i
= 0; i
< FRAME_X_DISPLAY_INFO (f
)->n_fonts
; i
++)
4761 for (j
= 0; j
< n_matching_fonts
; j
++)
4762 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->font_table
[i
].name
, font_names
[j
])
4763 || !strcmp (FRAME_X_DISPLAY_INFO (f
)->font_table
[i
].full_name
, font_names
[j
]))
4766 fontname
= FRAME_X_DISPLAY_INFO (f
)->font_table
[i
].full_name
;
4772 /* If we have, just return it from the table. */
4773 if (already_loaded
>= 0)
4774 f
->output_data
.x
->font
= FRAME_X_DISPLAY_INFO (f
)->font_table
[already_loaded
].font
;
4775 /* Otherwise, load the font and add it to the table. */
4784 /* Try to find a character-cell font in the list. */
4786 /* A laudable goal, but this isn't how to do it. */
4787 for (i
= 0; i
< n_matching_fonts
; i
++)
4788 if (! font_info
[i
].per_char
)
4794 /* See comment above. */
4795 if (n_matching_fonts
!= 0)
4796 fontname
= font_names
[i
];
4798 font
= (XFontStruct
*) XLoadQueryFont (FRAME_X_DISPLAY (f
), fontname
);
4801 /* Free the information from XListFonts. */
4802 if (n_matching_fonts
)
4803 XFreeFontNames (font_names
);
4807 /* Do we need to create the table? */
4808 if (FRAME_X_DISPLAY_INFO (f
)->font_table_size
== 0)
4810 FRAME_X_DISPLAY_INFO (f
)->font_table_size
= 16;
4811 FRAME_X_DISPLAY_INFO (f
)->font_table
4812 = (struct font_info
*) xmalloc (FRAME_X_DISPLAY_INFO (f
)->font_table_size
4813 * sizeof (struct font_info
));
4815 /* Do we need to grow the table? */
4816 else if (FRAME_X_DISPLAY_INFO (f
)->n_fonts
4817 >= FRAME_X_DISPLAY_INFO (f
)->font_table_size
)
4819 FRAME_X_DISPLAY_INFO (f
)->font_table_size
*= 2;
4820 FRAME_X_DISPLAY_INFO (f
)->font_table
4821 = (struct font_info
*) xrealloc (FRAME_X_DISPLAY_INFO (f
)->font_table
,
4822 (FRAME_X_DISPLAY_INFO (f
)->font_table_size
4823 * sizeof (struct font_info
)));
4826 /* Try to get the full name of FONT. Put it in full_name. */
4828 FONT_atom
= XInternAtom (FRAME_X_DISPLAY (f
), "FONT", False
);
4829 for (i
= 0; i
< font
->n_properties
; i
++)
4831 if (FONT_atom
== font
->properties
[i
].name
)
4833 char *name
= XGetAtomName (FRAME_X_DISPLAY (f
),
4834 (Atom
) (font
->properties
[i
].card32
));
4838 /* Count the number of dashes in the "full name".
4839 If it is too few, this isn't really the font's full name,
4841 In X11R4, the fonts did not come with their canonical names
4857 n_fonts
= FRAME_X_DISPLAY_INFO (f
)->n_fonts
;
4858 FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].name
= (char *) xmalloc (strlen (fontname
) + 1);
4859 bcopy (fontname
, FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].name
, strlen (fontname
) + 1);
4861 FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].full_name
= full_name
;
4863 FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].full_name
= FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].name
;
4864 f
->output_data
.x
->font
= FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].font
= font
;
4865 FRAME_X_DISPLAY_INFO (f
)->n_fonts
++;
4868 fontname
= full_name
;
4871 /* Compute the scroll bar width in character columns. */
4872 if (f
->scroll_bar_pixel_width
> 0)
4874 int wid
= FONT_WIDTH (f
->output_data
.x
->font
);
4875 f
->scroll_bar_cols
= (f
->scroll_bar_pixel_width
+ wid
-1) / wid
;
4878 f
->scroll_bar_cols
= 2;
4880 /* Now make the frame display the given font. */
4881 if (FRAME_X_WINDOW (f
) != 0)
4883 XSetFont (FRAME_X_DISPLAY (f
), f
->output_data
.x
->normal_gc
,
4884 f
->output_data
.x
->font
->fid
);
4885 XSetFont (FRAME_X_DISPLAY (f
), f
->output_data
.x
->reverse_gc
,
4886 f
->output_data
.x
->font
->fid
);
4887 XSetFont (FRAME_X_DISPLAY (f
), f
->output_data
.x
->cursor_gc
,
4888 f
->output_data
.x
->font
->fid
);
4890 frame_update_line_height (f
);
4891 x_set_window_size (f
, 0, f
->width
, f
->height
);
4894 /* If we are setting a new frame's font for the first time,
4895 there are no faces yet, so this font's height is the line height. */
4896 f
->output_data
.x
->line_height
= FONT_HEIGHT (f
->output_data
.x
->font
);
4899 Lisp_Object lispy_name
;
4901 lispy_name
= build_string (fontname
);
4903 /* Free the information from XListFonts. The data
4904 we actually retain comes from XLoadQueryFont. */
4905 XFreeFontNames (font_names
);
4911 /* Calculate the absolute position in frame F
4912 from its current recorded position values and gravity. */
4914 x_calc_absolute_position (f
)
4918 int win_x
= 0, win_y
= 0;
4919 int flags
= f
->output_data
.x
->size_hint_flags
;
4922 #ifdef USE_X_TOOLKIT
4923 this_window
= XtWindow (f
->output_data
.x
->widget
);
4925 this_window
= FRAME_X_WINDOW (f
);
4928 /* Find the position of the outside upper-left corner of
4929 the inner window, with respect to the outer window. */
4930 if (f
->output_data
.x
->parent_desc
!= FRAME_X_DISPLAY_INFO (f
)->root_window
)
4933 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
4935 /* From-window, to-window. */
4937 f
->output_data
.x
->parent_desc
,
4939 /* From-position, to-position. */
4940 0, 0, &win_x
, &win_y
,
4947 /* Treat negative positions as relative to the leftmost bottommost
4948 position that fits on the screen. */
4949 if (flags
& XNegative
)
4950 f
->output_data
.x
->left_pos
= (FRAME_X_DISPLAY_INFO (f
)->width
4951 - 2 * f
->output_data
.x
->border_width
- win_x
4953 + f
->output_data
.x
->left_pos
);
4955 if (flags
& YNegative
)
4956 /* We used to subtract f->output_data.x->menubar_height here
4957 in the toolkit case, but PIXEL_HEIGHT already includes that. */
4958 f
->output_data
.x
->top_pos
= (FRAME_X_DISPLAY_INFO (f
)->height
4959 - 2 * f
->output_data
.x
->border_width
- win_y
4961 + f
->output_data
.x
->top_pos
);
4963 /* The left_pos and top_pos
4964 are now relative to the top and left screen edges,
4965 so the flags should correspond. */
4966 f
->output_data
.x
->size_hint_flags
&= ~ (XNegative
| YNegative
);
4969 /* CHANGE_GRAVITY is 1 when calling from Fset_frame_position,
4970 to really change the position, and 0 when calling from
4971 x_make_frame_visible (in that case, XOFF and YOFF are the current
4972 position values). It is -1 when calling from x_set_frame_parameters,
4973 which means, do adjust for borders but don't change the gravity. */
4975 x_set_offset (f
, xoff
, yoff
, change_gravity
)
4977 register int xoff
, yoff
;
4980 int modified_top
, modified_left
;
4982 if (change_gravity
> 0)
4984 f
->output_data
.x
->top_pos
= yoff
;
4985 f
->output_data
.x
->left_pos
= xoff
;
4986 f
->output_data
.x
->size_hint_flags
&= ~ (XNegative
| YNegative
);
4988 f
->output_data
.x
->size_hint_flags
|= XNegative
;
4990 f
->output_data
.x
->size_hint_flags
|= YNegative
;
4991 f
->output_data
.x
->win_gravity
= NorthWestGravity
;
4993 x_calc_absolute_position (f
);
4996 x_wm_set_size_hint (f
, (long) 0, 0);
4998 /* It is a mystery why we need to add the border_width here
4999 when the frame is already visible, but experiment says we do. */
5000 modified_left
= f
->output_data
.x
->left_pos
;
5001 modified_top
= f
->output_data
.x
->top_pos
;
5002 if (change_gravity
!= 0)
5004 modified_left
+= f
->output_data
.x
->border_width
;
5005 modified_top
+= f
->output_data
.x
->border_width
;
5008 #ifdef USE_X_TOOLKIT
5009 XMoveWindow (FRAME_X_DISPLAY (f
), XtWindow (f
->output_data
.x
->widget
),
5010 modified_left
, modified_top
);
5011 #else /* not USE_X_TOOLKIT */
5012 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5013 modified_left
, modified_top
);
5014 #endif /* not USE_X_TOOLKIT */
5018 /* Call this to change the size of frame F's x-window.
5019 If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity
5020 for this size change and subsequent size changes.
5021 Otherwise we leave the window gravity unchanged. */
5023 x_set_window_size (f
, change_gravity
, cols
, rows
)
5028 int pixelwidth
, pixelheight
;
5031 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
5035 #ifdef USE_X_TOOLKIT
5037 /* The x and y position of the widget is clobbered by the
5038 call to XtSetValues within EmacsFrameSetCharSize.
5039 This is a real kludge, but I don't understand Xt so I can't
5040 figure out a correct fix. Can anyone else tell me? -- rms. */
5041 int xpos
= f
->output_data
.x
->widget
->core
.x
;
5042 int ypos
= f
->output_data
.x
->widget
->core
.y
;
5043 EmacsFrameSetCharSize (f
->output_data
.x
->edit_widget
, cols
, rows
);
5044 f
->output_data
.x
->widget
->core
.x
= xpos
;
5045 f
->output_data
.x
->widget
->core
.y
= ypos
;
5048 #else /* not USE_X_TOOLKIT */
5050 check_frame_size (f
, &rows
, &cols
);
5051 f
->output_data
.x
->vertical_scroll_bar_extra
5052 = (!FRAME_HAS_VERTICAL_SCROLL_BARS (f
)
5054 : FRAME_SCROLL_BAR_PIXEL_WIDTH (f
) > 0
5055 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f
)
5056 : (FRAME_SCROLL_BAR_COLS (f
) * FONT_WIDTH (f
->output_data
.x
->font
)));
5057 pixelwidth
= CHAR_TO_PIXEL_WIDTH (f
, cols
);
5058 pixelheight
= CHAR_TO_PIXEL_HEIGHT (f
, rows
);
5060 f
->output_data
.x
->win_gravity
= NorthWestGravity
;
5061 x_wm_set_size_hint (f
, (long) 0, 0);
5063 XSync (FRAME_X_DISPLAY (f
), False
);
5064 XResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5065 pixelwidth
, pixelheight
);
5067 /* Now, strictly speaking, we can't be sure that this is accurate,
5068 but the window manager will get around to dealing with the size
5069 change request eventually, and we'll hear how it went when the
5070 ConfigureNotify event gets here.
5072 We could just not bother storing any of this information here,
5073 and let the ConfigureNotify event set everything up, but that
5074 might be kind of confusing to the lisp code, since size changes
5075 wouldn't be reported in the frame parameters until some random
5076 point in the future when the ConfigureNotify event arrives. */
5077 change_frame_size (f
, rows
, cols
, 0, 0);
5078 PIXEL_WIDTH (f
) = pixelwidth
;
5079 PIXEL_HEIGHT (f
) = pixelheight
;
5081 /* We've set {FRAME,PIXEL}_{WIDTH,HEIGHT} to the values we hope to
5082 receive in the ConfigureNotify event; if we get what we asked
5083 for, then the event won't cause the screen to become garbaged, so
5084 we have to make sure to do it here. */
5085 SET_FRAME_GARBAGED (f
);
5087 XFlush (FRAME_X_DISPLAY (f
));
5089 #endif /* not USE_X_TOOLKIT */
5091 /* If cursor was outside the new size, mark it as off. */
5092 if (f
->phys_cursor_y
>= rows
5093 || f
->phys_cursor_x
>= cols
)
5095 f
->phys_cursor_x
= -1;
5096 f
->phys_cursor_y
= -1;
5099 /* Clear out any recollection of where the mouse highlighting was,
5100 since it might be in a place that's outside the new frame size.
5101 Actually checking whether it is outside is a pain in the neck,
5102 so don't try--just let the highlighting be done afresh with new size. */
5103 window
= dpyinfo
->mouse_face_window
;
5104 if (! NILP (window
) && XFRAME (window
) == f
)
5106 dpyinfo
->mouse_face_beg_row
= dpyinfo
->mouse_face_beg_col
= -1;
5107 dpyinfo
->mouse_face_end_row
= dpyinfo
->mouse_face_end_col
= -1;
5108 dpyinfo
->mouse_face_window
= Qnil
;
5114 /* Mouse warping. */
5117 x_set_mouse_position (f
, x
, y
)
5123 pix_x
= CHAR_TO_PIXEL_COL (f
, x
) + FONT_WIDTH (f
->output_data
.x
->font
) / 2;
5124 pix_y
= CHAR_TO_PIXEL_ROW (f
, y
) + f
->output_data
.x
->line_height
/ 2;
5126 if (pix_x
< 0) pix_x
= 0;
5127 if (pix_x
> PIXEL_WIDTH (f
)) pix_x
= PIXEL_WIDTH (f
);
5129 if (pix_y
< 0) pix_y
= 0;
5130 if (pix_y
> PIXEL_HEIGHT (f
)) pix_y
= PIXEL_HEIGHT (f
);
5134 XWarpPointer (FRAME_X_DISPLAY (f
), None
, FRAME_X_WINDOW (f
),
5135 0, 0, 0, 0, pix_x
, pix_y
);
5139 /* Move the mouse to position pixel PIX_X, PIX_Y relative to frame F. */
5142 x_set_mouse_pixel_position (f
, pix_x
, pix_y
)
5148 XWarpPointer (FRAME_X_DISPLAY (f
), None
, FRAME_X_WINDOW (f
),
5149 0, 0, 0, 0, pix_x
, pix_y
);
5153 /* focus shifting, raising and lowering. */
5155 x_focus_on_frame (f
)
5158 #if 0 /* This proves to be unpleasant. */
5162 /* I don't think that the ICCCM allows programs to do things like this
5163 without the interaction of the window manager. Whatever you end up
5164 doing with this code, do it to x_unfocus_frame too. */
5165 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5166 RevertToPointerRoot
, CurrentTime
);
5174 /* Look at the remarks in x_focus_on_frame. */
5175 if (FRAME_X_DISPLAY_INFO (f
)->x_focus_frame
== f
)
5176 XSetInputFocus (FRAME_X_DISPLAY (f
), PointerRoot
,
5177 RevertToPointerRoot
, CurrentTime
);
5181 /* Raise frame F. */
5186 if (f
->async_visible
)
5189 #ifdef USE_X_TOOLKIT
5190 XRaiseWindow (FRAME_X_DISPLAY (f
), XtWindow (f
->output_data
.x
->widget
));
5191 #else /* not USE_X_TOOLKIT */
5192 XRaiseWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5193 #endif /* not USE_X_TOOLKIT */
5194 XFlush (FRAME_X_DISPLAY (f
));
5199 /* Lower frame F. */
5204 if (f
->async_visible
)
5207 #ifdef USE_X_TOOLKIT
5208 XLowerWindow (FRAME_X_DISPLAY (f
), XtWindow (f
->output_data
.x
->widget
));
5209 #else /* not USE_X_TOOLKIT */
5210 XLowerWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5211 #endif /* not USE_X_TOOLKIT */
5212 XFlush (FRAME_X_DISPLAY (f
));
5218 XTframe_raise_lower (f
, raise_flag
)
5228 /* Change of visibility. */
5230 /* This tries to wait until the frame is really visible.
5231 However, if the window manager asks the user where to position
5232 the frame, this will return before the user finishes doing that.
5233 The frame will not actually be visible at that time,
5234 but it will become visible later when the window manager
5235 finishes with it. */
5237 x_make_frame_visible (f
)
5245 type
= x_icon_type (f
);
5247 x_bitmap_icon (f
, type
);
5249 if (! FRAME_VISIBLE_P (f
))
5251 /* We test FRAME_GARBAGED_P here to make sure we don't
5252 call x_set_offset a second time
5253 if we get to x_make_frame_visible a second time
5254 before the window gets really visible. */
5255 if (! FRAME_ICONIFIED_P (f
)
5256 && ! f
->output_data
.x
->asked_for_visible
)
5257 x_set_offset (f
, f
->output_data
.x
->left_pos
, f
->output_data
.x
->top_pos
, 0);
5259 f
->output_data
.x
->asked_for_visible
= 1;
5261 if (! EQ (Vx_no_window_manager
, Qt
))
5262 x_wm_set_window_state (f
, NormalState
);
5263 #ifdef USE_X_TOOLKIT
5264 /* This was XtPopup, but that did nothing for an iconified frame. */
5265 XtMapWidget (f
->output_data
.x
->widget
);
5266 #else /* not USE_X_TOOLKIT */
5267 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5268 #endif /* not USE_X_TOOLKIT */
5269 #if 0 /* This seems to bring back scroll bars in the wrong places
5270 if the window configuration has changed. They seem
5271 to come back ok without this. */
5272 if (FRAME_HAS_VERTICAL_SCROLL_BARS (f
))
5273 XMapSubwindows (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5277 XFlush (FRAME_X_DISPLAY (f
));
5279 /* Synchronize to ensure Emacs knows the frame is visible
5280 before we do anything else. We do this loop with input not blocked
5281 so that incoming events are handled. */
5284 int count
= input_signal_count
;
5286 /* This must come after we set COUNT. */
5289 XSETFRAME (frame
, f
);
5294 /* Once we have handled input events,
5295 we should have received the MapNotify if one is coming.
5296 So if we have not got it yet, stop looping.
5297 Some window managers make their own decisions
5298 about visibility. */
5299 if (input_signal_count
!= count
)
5301 /* Machines that do polling rather than SIGIO have been observed
5302 to go into a busy-wait here. So we'll fake an alarm signal
5303 to let the handler know that there's something to be read.
5304 We used to raise a real alarm, but it seems that the handler
5305 isn't always enabled here. This is probably a bug. */
5306 if (input_polling_used ())
5308 /* It could be confusing if a real alarm arrives while processing
5309 the fake one. Turn it off and let the handler reset it. */
5311 input_poll_signal ();
5313 /* Once we have handled input events,
5314 we should have received the MapNotify if one is coming.
5315 So if we have not got it yet, stop looping.
5316 Some window managers make their own decisions
5317 about visibility. */
5318 if (input_signal_count
!= count
)
5321 FRAME_SAMPLE_VISIBILITY (f
);
5325 /* Change from mapped state to withdrawn state. */
5327 /* Make the frame visible (mapped and not iconified). */
5329 x_make_frame_invisible (f
)
5335 #ifdef USE_X_TOOLKIT
5336 /* Use the frame's outermost window, not the one we normally draw on. */
5337 window
= XtWindow (f
->output_data
.x
->widget
);
5338 #else /* not USE_X_TOOLKIT */
5339 window
= FRAME_X_WINDOW (f
);
5340 #endif /* not USE_X_TOOLKIT */
5342 /* Don't keep the highlight on an invisible frame. */
5343 if (FRAME_X_DISPLAY_INFO (f
)->x_highlight_frame
== f
)
5344 FRAME_X_DISPLAY_INFO (f
)->x_highlight_frame
= 0;
5346 #if 0/* This might add unreliability; I don't trust it -- rms. */
5347 if (! f
->async_visible
&& ! f
->async_iconified
)
5353 /* Before unmapping the window, update the WM_SIZE_HINTS property to claim
5354 that the current position of the window is user-specified, rather than
5355 program-specified, so that when the window is mapped again, it will be
5356 placed at the same location, without forcing the user to position it
5357 by hand again (they have already done that once for this window.) */
5358 x_wm_set_size_hint (f
, (long) 0, 1);
5362 if (! XWithdrawWindow (FRAME_X_DISPLAY (f
), window
,
5363 DefaultScreen (FRAME_X_DISPLAY (f
))))
5365 UNBLOCK_INPUT_RESIGNAL
;
5366 error ("Can't notify window manager of window withdrawal");
5368 #else /* ! defined (HAVE_X11R4) */
5370 /* Tell the window manager what we're going to do. */
5371 if (! EQ (Vx_no_window_manager
, Qt
))
5375 unmap
.xunmap
.type
= UnmapNotify
;
5376 unmap
.xunmap
.window
= window
;
5377 unmap
.xunmap
.event
= DefaultRootWindow (FRAME_X_DISPLAY (f
));
5378 unmap
.xunmap
.from_configure
= False
;
5379 if (! XSendEvent (FRAME_X_DISPLAY (f
),
5380 DefaultRootWindow (FRAME_X_DISPLAY (f
)),
5382 SubstructureRedirectMask
|SubstructureNotifyMask
,
5385 UNBLOCK_INPUT_RESIGNAL
;
5386 error ("Can't notify window manager of withdrawal");
5390 /* Unmap the window ourselves. Cheeky! */
5391 XUnmapWindow (FRAME_X_DISPLAY (f
), window
);
5392 #endif /* ! defined (HAVE_X11R4) */
5394 /* We can't distinguish this from iconification
5395 just by the event that we get from the server.
5396 So we can't win using the usual strategy of letting
5397 FRAME_SAMPLE_VISIBILITY set this. So do it by hand,
5398 and synchronize with the server to make sure we agree. */
5400 FRAME_ICONIFIED_P (f
) = 0;
5401 f
->async_visible
= 0;
5402 f
->async_iconified
= 0;
5409 /* Change window state from mapped to iconified. */
5418 /* Don't keep the highlight on an invisible frame. */
5419 if (FRAME_X_DISPLAY_INFO (f
)->x_highlight_frame
== f
)
5420 FRAME_X_DISPLAY_INFO (f
)->x_highlight_frame
= 0;
5422 if (f
->async_iconified
)
5427 FRAME_SAMPLE_VISIBILITY (f
);
5429 type
= x_icon_type (f
);
5431 x_bitmap_icon (f
, type
);
5433 #ifdef USE_X_TOOLKIT
5435 if (! FRAME_VISIBLE_P (f
))
5437 if (! EQ (Vx_no_window_manager
, Qt
))
5438 x_wm_set_window_state (f
, IconicState
);
5439 /* This was XtPopup, but that did nothing for an iconified frame. */
5440 XtMapWidget (f
->output_data
.x
->widget
);
5445 result
= XIconifyWindow (FRAME_X_DISPLAY (f
),
5446 XtWindow (f
->output_data
.x
->widget
),
5447 DefaultScreen (FRAME_X_DISPLAY (f
)));
5451 error ("Can't notify window manager of iconification");
5453 f
->async_iconified
= 1;
5456 XFlush (FRAME_X_DISPLAY (f
));
5458 #else /* not USE_X_TOOLKIT */
5460 /* Make sure the X server knows where the window should be positioned,
5461 in case the user deiconifies with the window manager. */
5462 if (! FRAME_VISIBLE_P (f
) && !FRAME_ICONIFIED_P (f
))
5463 x_set_offset (f
, f
->output_data
.x
->left_pos
, f
->output_data
.x
->top_pos
, 0);
5465 /* Since we don't know which revision of X we're running, we'll use both
5466 the X11R3 and X11R4 techniques. I don't know if this is a good idea. */
5468 /* X11R4: send a ClientMessage to the window manager using the
5469 WM_CHANGE_STATE type. */
5473 message
.xclient
.window
= FRAME_X_WINDOW (f
);
5474 message
.xclient
.type
= ClientMessage
;
5475 message
.xclient
.message_type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_change_state
;
5476 message
.xclient
.format
= 32;
5477 message
.xclient
.data
.l
[0] = IconicState
;
5479 if (! XSendEvent (FRAME_X_DISPLAY (f
),
5480 DefaultRootWindow (FRAME_X_DISPLAY (f
)),
5482 SubstructureRedirectMask
| SubstructureNotifyMask
,
5485 UNBLOCK_INPUT_RESIGNAL
;
5486 error ("Can't notify window manager of iconification");
5490 /* X11R3: set the initial_state field of the window manager hints to
5492 x_wm_set_window_state (f
, IconicState
);
5494 if (!FRAME_VISIBLE_P (f
))
5496 /* If the frame was withdrawn, before, we must map it. */
5497 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5500 f
->async_iconified
= 1;
5502 XFlush (FRAME_X_DISPLAY (f
));
5504 #endif /* not USE_X_TOOLKIT */
5507 /* Destroy the X window of frame F. */
5509 x_destroy_window (f
)
5512 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
5516 /* If a display connection is dead, don't try sending more
5517 commands to the X server. */
5518 if (dpyinfo
->display
!= 0)
5520 if (f
->output_data
.x
->icon_desc
!= 0)
5521 XDestroyWindow (FRAME_X_DISPLAY (f
), f
->output_data
.x
->icon_desc
);
5525 XDestroyIC (FRAME_XIC (f
));
5526 #if ! defined (SOLARIS2) || defined (HAVE_X11R6)
5527 /* This line causes crashes on Solaris with Openwin,
5528 due to an apparent bug in XCloseIM.
5529 X11R6 seems not to have the bug. */
5530 XCloseIM (FRAME_XIM (f
));
5534 XDestroyWindow (FRAME_X_DISPLAY (f
), f
->output_data
.x
->window_desc
);
5535 #ifdef USE_X_TOOLKIT
5536 XtDestroyWidget (f
->output_data
.x
->widget
);
5537 free_frame_menubar (f
);
5538 #endif /* USE_X_TOOLKIT */
5540 free_frame_faces (f
);
5541 XFlush (FRAME_X_DISPLAY (f
));
5544 xfree (f
->output_data
.x
);
5545 f
->output_data
.x
= 0;
5546 if (f
== dpyinfo
->x_focus_frame
)
5547 dpyinfo
->x_focus_frame
= 0;
5548 if (f
== dpyinfo
->x_focus_event_frame
)
5549 dpyinfo
->x_focus_event_frame
= 0;
5550 if (f
== dpyinfo
->x_highlight_frame
)
5551 dpyinfo
->x_highlight_frame
= 0;
5553 dpyinfo
->reference_count
--;
5555 if (f
== dpyinfo
->mouse_face_mouse_frame
)
5557 dpyinfo
->mouse_face_beg_row
5558 = dpyinfo
->mouse_face_beg_col
= -1;
5559 dpyinfo
->mouse_face_end_row
5560 = dpyinfo
->mouse_face_end_col
= -1;
5561 dpyinfo
->mouse_face_window
= Qnil
;
5567 /* Setting window manager hints. */
5569 /* Set the normal size hints for the window manager, for frame F.
5570 FLAGS is the flags word to use--or 0 meaning preserve the flags
5571 that the window now has.
5572 If USER_POSITION is nonzero, we set the USPosition
5573 flag (this is useful when FLAGS is 0). */
5575 x_wm_set_size_hint (f
, flags
, user_position
)
5580 XSizeHints size_hints
;
5582 #ifdef USE_X_TOOLKIT
5585 Dimension widget_width
, widget_height
;
5586 Window window
= XtWindow (f
->output_data
.x
->widget
);
5587 #else /* not USE_X_TOOLKIT */
5588 Window window
= FRAME_X_WINDOW (f
);
5589 #endif /* not USE_X_TOOLKIT */
5591 /* Setting PMaxSize caused various problems. */
5592 size_hints
.flags
= PResizeInc
| PMinSize
/* | PMaxSize */;
5594 flexlines
= f
->height
;
5596 size_hints
.x
= f
->output_data
.x
->left_pos
;
5597 size_hints
.y
= f
->output_data
.x
->top_pos
;
5599 #ifdef USE_X_TOOLKIT
5600 XtSetArg (al
[ac
], XtNwidth
, &widget_width
); ac
++;
5601 XtSetArg (al
[ac
], XtNheight
, &widget_height
); ac
++;
5602 XtGetValues (f
->output_data
.x
->widget
, al
, ac
);
5603 size_hints
.height
= widget_height
;
5604 size_hints
.width
= widget_width
;
5605 #else /* not USE_X_TOOLKIT */
5606 size_hints
.height
= PIXEL_HEIGHT (f
);
5607 size_hints
.width
= PIXEL_WIDTH (f
);
5608 #endif /* not USE_X_TOOLKIT */
5610 size_hints
.width_inc
= FONT_WIDTH (f
->output_data
.x
->font
);
5611 size_hints
.height_inc
= f
->output_data
.x
->line_height
;
5612 size_hints
.max_width
5613 = FRAME_X_DISPLAY_INFO (f
)->width
- CHAR_TO_PIXEL_WIDTH (f
, 0);
5614 size_hints
.max_height
5615 = FRAME_X_DISPLAY_INFO (f
)->height
- CHAR_TO_PIXEL_HEIGHT (f
, 0);
5617 /* Calculate the base and minimum sizes.
5619 (When we use the X toolkit, we don't do it here.
5620 Instead we copy the values that the widgets are using, below.) */
5621 #ifndef USE_X_TOOLKIT
5623 int base_width
, base_height
;
5624 int min_rows
= 0, min_cols
= 0;
5626 base_width
= CHAR_TO_PIXEL_WIDTH (f
, 0);
5627 base_height
= CHAR_TO_PIXEL_HEIGHT (f
, 0);
5629 check_frame_size (f
, &min_rows
, &min_cols
);
5631 /* The window manager uses the base width hints to calculate the
5632 current number of rows and columns in the frame while
5633 resizing; min_width and min_height aren't useful for this
5634 purpose, since they might not give the dimensions for a
5635 zero-row, zero-column frame.
5637 We use the base_width and base_height members if we have
5638 them; otherwise, we set the min_width and min_height members
5639 to the size for a zero x zero frame. */
5642 size_hints
.flags
|= PBaseSize
;
5643 size_hints
.base_width
= base_width
;
5644 size_hints
.base_height
= base_height
;
5645 size_hints
.min_width
= base_width
+ min_cols
* size_hints
.width_inc
;
5646 size_hints
.min_height
= base_height
+ min_rows
* size_hints
.height_inc
;
5648 size_hints
.min_width
= base_width
;
5649 size_hints
.min_height
= base_height
;
5653 /* If we don't need the old flags, we don't need the old hint at all. */
5656 size_hints
.flags
|= flags
;
5659 #endif /* not USE_X_TOOLKIT */
5662 XSizeHints hints
; /* Sometimes I hate X Windows... */
5663 long supplied_return
;
5667 value
= XGetWMNormalHints (FRAME_X_DISPLAY (f
), window
, &hints
,
5670 value
= XGetNormalHints (FRAME_X_DISPLAY (f
), window
, &hints
);
5673 #ifdef USE_X_TOOLKIT
5674 size_hints
.base_height
= hints
.base_height
;
5675 size_hints
.base_width
= hints
.base_width
;
5676 size_hints
.min_height
= hints
.min_height
;
5677 size_hints
.min_width
= hints
.min_width
;
5681 size_hints
.flags
|= flags
;
5686 if (hints
.flags
& PSize
)
5687 size_hints
.flags
|= PSize
;
5688 if (hints
.flags
& PPosition
)
5689 size_hints
.flags
|= PPosition
;
5690 if (hints
.flags
& USPosition
)
5691 size_hints
.flags
|= USPosition
;
5692 if (hints
.flags
& USSize
)
5693 size_hints
.flags
|= USSize
;
5700 size_hints
.win_gravity
= f
->output_data
.x
->win_gravity
;
5701 size_hints
.flags
|= PWinGravity
;
5705 size_hints
.flags
&= ~ PPosition
;
5706 size_hints
.flags
|= USPosition
;
5708 #endif /* PWinGravity */
5711 XSetWMNormalHints (FRAME_X_DISPLAY (f
), window
, &size_hints
);
5713 XSetNormalHints (FRAME_X_DISPLAY (f
), window
, &size_hints
);
5717 /* Used for IconicState or NormalState */
5718 x_wm_set_window_state (f
, state
)
5722 #ifdef USE_X_TOOLKIT
5725 XtSetArg (al
[0], XtNinitialState
, state
);
5726 XtSetValues (f
->output_data
.x
->widget
, al
, 1);
5727 #else /* not USE_X_TOOLKIT */
5728 Window window
= FRAME_X_WINDOW (f
);
5730 f
->output_data
.x
->wm_hints
.flags
|= StateHint
;
5731 f
->output_data
.x
->wm_hints
.initial_state
= state
;
5733 XSetWMHints (FRAME_X_DISPLAY (f
), window
, &f
->output_data
.x
->wm_hints
);
5734 #endif /* not USE_X_TOOLKIT */
5737 x_wm_set_icon_pixmap (f
, pixmap_id
)
5743 #ifdef USE_X_TOOLKIT
5744 Window window
= XtWindow (f
->output_data
.x
->widget
);
5746 Window window
= FRAME_X_WINDOW (f
);
5751 icon_pixmap
= x_bitmap_pixmap (f
, pixmap_id
);
5752 f
->output_data
.x
->wm_hints
.icon_pixmap
= icon_pixmap
;
5756 /* It seems there is no way to turn off use of an icon pixmap.
5757 The following line does it, only if no icon has yet been created,
5758 for some window managers. But with mwm it crashes.
5759 Some people say it should clear the IconPixmapHint bit in this case,
5760 but that doesn't work, and the X consortium said it isn't the
5761 right thing at all. Since there is no way to win,
5762 best to explicitly give up. */
5764 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
5770 #ifdef USE_X_TOOLKIT /* same as in x_wm_set_window_state. */
5774 XtSetArg (al
[0], XtNiconPixmap
, icon_pixmap
);
5775 XtSetValues (f
->output_data
.x
->widget
, al
, 1);
5778 #else /* not USE_X_TOOLKIT */
5780 f
->output_data
.x
->wm_hints
.flags
|= IconPixmapHint
;
5781 XSetWMHints (FRAME_X_DISPLAY (f
), window
, &f
->output_data
.x
->wm_hints
);
5783 #endif /* not USE_X_TOOLKIT */
5786 x_wm_set_icon_position (f
, icon_x
, icon_y
)
5790 #ifdef USE_X_TOOLKIT
5791 Window window
= XtWindow (f
->output_data
.x
->widget
);
5793 Window window
= FRAME_X_WINDOW (f
);
5796 f
->output_data
.x
->wm_hints
.flags
|= IconPositionHint
;
5797 f
->output_data
.x
->wm_hints
.icon_x
= icon_x
;
5798 f
->output_data
.x
->wm_hints
.icon_y
= icon_y
;
5800 XSetWMHints (FRAME_X_DISPLAY (f
), window
, &f
->output_data
.x
->wm_hints
);
5804 /* Initialization. */
5806 #ifdef USE_X_TOOLKIT
5807 static XrmOptionDescRec emacs_options
[] = {
5808 {"-geometry", ".geometry", XrmoptionSepArg
, NULL
},
5809 {"-iconic", ".iconic", XrmoptionNoArg
, (XtPointer
) "yes"},
5811 {"-internal-border-width", "*EmacsScreen.internalBorderWidth",
5812 XrmoptionSepArg
, NULL
},
5813 {"-ib", "*EmacsScreen.internalBorderWidth", XrmoptionSepArg
, NULL
},
5815 {"-T", "*EmacsShell.title", XrmoptionSepArg
, (XtPointer
) NULL
},
5816 {"-wn", "*EmacsShell.title", XrmoptionSepArg
, (XtPointer
) NULL
},
5817 {"-title", "*EmacsShell.title", XrmoptionSepArg
, (XtPointer
) NULL
},
5818 {"-iconname", "*EmacsShell.iconName", XrmoptionSepArg
, (XtPointer
) NULL
},
5819 {"-in", "*EmacsShell.iconName", XrmoptionSepArg
, (XtPointer
) NULL
},
5820 {"-mc", "*pointerColor", XrmoptionSepArg
, (XtPointer
) NULL
},
5821 {"-cr", "*cursorColor", XrmoptionSepArg
, (XtPointer
) NULL
}
5823 #endif /* USE_X_TOOLKIT */
5825 static int x_initialized
;
5828 /* Test whether two display-name strings agree up to the dot that separates
5829 the screen number from the server number. */
5831 same_x_server (name1
, name2
)
5832 char *name1
, *name2
;
5835 for (; *name1
!= '\0' && *name1
== *name2
; name1
++, name2
++)
5839 if (seen_colon
&& *name1
== '.')
5843 && (*name1
== '.' || *name1
== '\0')
5844 && (*name2
== '.' || *name2
== '\0'));
5848 struct x_display_info
*
5849 x_term_init (display_name
, xrm_option
, resource_name
)
5850 Lisp_Object display_name
;
5852 char *resource_name
;
5858 struct x_display_info
*dpyinfo
;
5870 setlocale (LC_ALL
, "");
5871 /* In case we just overrode what init_lread did, redo it. */
5872 setlocale (LC_NUMERIC
, "C");
5873 setlocale (LC_TIME
, "C");
5876 #ifdef USE_X_TOOLKIT
5877 /* weiner@footloose.sps.mot.com reports that this causes
5879 X protocol error: BadAtom (invalid Atom parameter)
5880 on protocol request 18skiloaf.
5881 So let's not use it until R6. */
5883 XtSetLanguageProc (NULL
, NULL
, NULL
);
5894 argv
[argc
++] = "-xrm";
5895 argv
[argc
++] = xrm_option
;
5897 dpy
= XtOpenDisplay (Xt_app_con
, XSTRING (display_name
)->data
,
5898 resource_name
, EMACS_CLASS
,
5899 emacs_options
, XtNumber (emacs_options
),
5903 /* I think this is to compensate for XtSetLanguageProc. */
5904 setlocale (LC_NUMERIC
, "C");
5905 setlocale (LC_TIME
, "C");
5909 #else /* not USE_X_TOOLKIT */
5911 XSetLocaleModifiers ("");
5913 dpy
= XOpenDisplay (XSTRING (display_name
)->data
);
5914 #endif /* not USE_X_TOOLKIT */
5916 /* Detect failure. */
5923 /* We have definitely succeeded. Record the new connection. */
5925 dpyinfo
= (struct x_display_info
*) xmalloc (sizeof (struct x_display_info
));
5929 struct x_display_info
*share
;
5932 for (share
= x_display_list
, tail
= x_display_name_list
; share
;
5933 share
= share
->next
, tail
= XCONS (tail
)->cdr
)
5934 if (same_x_server (XSTRING (XCONS (XCONS (tail
)->car
)->car
)->data
,
5935 XSTRING (display_name
)->data
))
5938 dpyinfo
->kboard
= share
->kboard
;
5941 dpyinfo
->kboard
= (KBOARD
*) xmalloc (sizeof (KBOARD
));
5942 init_kboard (dpyinfo
->kboard
);
5943 if (!EQ (XSYMBOL (Qvendor_specific_keysyms
)->function
, Qunbound
))
5945 char *vendor
= ServerVendor (dpy
);
5946 dpyinfo
->kboard
->Vsystem_key_alist
5947 = call1 (Qvendor_specific_keysyms
,
5948 build_string (vendor
? vendor
: ""));
5951 dpyinfo
->kboard
->next_kboard
= all_kboards
;
5952 all_kboards
= dpyinfo
->kboard
;
5953 /* Don't let the initial kboard remain current longer than necessary.
5954 That would cause problems if a file loaded on startup tries to
5955 prompt in the minibuffer. */
5956 if (current_kboard
== initial_kboard
)
5957 current_kboard
= dpyinfo
->kboard
;
5959 dpyinfo
->kboard
->reference_count
++;
5963 /* Put this display on the chain. */
5964 dpyinfo
->next
= x_display_list
;
5965 x_display_list
= dpyinfo
;
5967 /* Put it on x_display_name_list as well, to keep them parallel. */
5968 x_display_name_list
= Fcons (Fcons (display_name
, Qnil
),
5969 x_display_name_list
);
5970 dpyinfo
->name_list_element
= XCONS (x_display_name_list
)->car
;
5972 dpyinfo
->display
= dpy
;
5975 XSetAfterFunction (x_current_display
, x_trace_wire
);
5979 = (char *) xmalloc (XSTRING (Vinvocation_name
)->size
5980 + XSTRING (Vsystem_name
)->size
5982 sprintf (dpyinfo
->x_id_name
, "%s@%s",
5983 XSTRING (Vinvocation_name
)->data
, XSTRING (Vsystem_name
)->data
);
5985 /* Figure out which modifier bits mean what. */
5986 x_find_modifier_meanings (dpyinfo
);
5988 /* Get the scroll bar cursor. */
5989 dpyinfo
->vertical_scroll_bar_cursor
5990 = XCreateFontCursor (dpyinfo
->display
, XC_sb_v_double_arrow
);
5992 xrdb
= x_load_resources (dpyinfo
->display
, xrm_option
,
5993 resource_name
, EMACS_CLASS
);
5994 #ifdef HAVE_XRMSETDATABASE
5995 XrmSetDatabase (dpyinfo
->display
, xrdb
);
5997 dpyinfo
->display
->db
= xrdb
;
5999 /* Put the rdb where we can find it in a way that works on
6001 dpyinfo
->xrdb
= xrdb
;
6003 dpyinfo
->screen
= ScreenOfDisplay (dpyinfo
->display
,
6004 DefaultScreen (dpyinfo
->display
));
6005 dpyinfo
->visual
= select_visual (dpyinfo
->display
, dpyinfo
->screen
,
6006 &dpyinfo
->n_planes
);
6007 dpyinfo
->height
= HeightOfScreen (dpyinfo
->screen
);
6008 dpyinfo
->width
= WidthOfScreen (dpyinfo
->screen
);
6009 dpyinfo
->root_window
= RootWindowOfScreen (dpyinfo
->screen
);
6010 dpyinfo
->grabbed
= 0;
6011 dpyinfo
->reference_count
= 0;
6012 dpyinfo
->icon_bitmap_id
= -1;
6013 dpyinfo
->n_fonts
= 0;
6014 dpyinfo
->font_table_size
= 0;
6015 dpyinfo
->bitmaps
= 0;
6016 dpyinfo
->bitmaps_size
= 0;
6017 dpyinfo
->bitmaps_last
= 0;
6018 dpyinfo
->scratch_cursor_gc
= 0;
6019 dpyinfo
->mouse_face_mouse_frame
= 0;
6020 dpyinfo
->mouse_face_deferred_gc
= 0;
6021 dpyinfo
->mouse_face_beg_row
= dpyinfo
->mouse_face_beg_col
= -1;
6022 dpyinfo
->mouse_face_end_row
= dpyinfo
->mouse_face_end_col
= -1;
6023 dpyinfo
->mouse_face_face_id
= 0;
6024 dpyinfo
->mouse_face_window
= Qnil
;
6025 dpyinfo
->mouse_face_mouse_x
= dpyinfo
->mouse_face_mouse_y
= 0;
6026 dpyinfo
->mouse_face_defer
= 0;
6027 dpyinfo
->x_focus_frame
= 0;
6028 dpyinfo
->x_focus_event_frame
= 0;
6029 dpyinfo
->x_highlight_frame
= 0;
6031 dpyinfo
->Xatom_wm_protocols
6032 = XInternAtom (dpyinfo
->display
, "WM_PROTOCOLS", False
);
6033 dpyinfo
->Xatom_wm_take_focus
6034 = XInternAtom (dpyinfo
->display
, "WM_TAKE_FOCUS", False
);
6035 dpyinfo
->Xatom_wm_save_yourself
6036 = XInternAtom (dpyinfo
->display
, "WM_SAVE_YOURSELF", False
);
6037 dpyinfo
->Xatom_wm_delete_window
6038 = XInternAtom (dpyinfo
->display
, "WM_DELETE_WINDOW", False
);
6039 dpyinfo
->Xatom_wm_change_state
6040 = XInternAtom (dpyinfo
->display
, "WM_CHANGE_STATE", False
);
6041 dpyinfo
->Xatom_wm_configure_denied
6042 = XInternAtom (dpyinfo
->display
, "WM_CONFIGURE_DENIED", False
);
6043 dpyinfo
->Xatom_wm_window_moved
6044 = XInternAtom (dpyinfo
->display
, "WM_MOVED", False
);
6045 dpyinfo
->Xatom_editres
6046 = XInternAtom (dpyinfo
->display
, "Editres", False
);
6047 dpyinfo
->Xatom_CLIPBOARD
6048 = XInternAtom (dpyinfo
->display
, "CLIPBOARD", False
);
6049 dpyinfo
->Xatom_TIMESTAMP
6050 = XInternAtom (dpyinfo
->display
, "TIMESTAMP", False
);
6052 = XInternAtom (dpyinfo
->display
, "TEXT", False
);
6053 dpyinfo
->Xatom_DELETE
6054 = XInternAtom (dpyinfo
->display
, "DELETE", False
);
6055 dpyinfo
->Xatom_MULTIPLE
6056 = XInternAtom (dpyinfo
->display
, "MULTIPLE", False
);
6058 = XInternAtom (dpyinfo
->display
, "INCR", False
);
6059 dpyinfo
->Xatom_EMACS_TMP
6060 = XInternAtom (dpyinfo
->display
, "_EMACS_TMP_", False
);
6061 dpyinfo
->Xatom_TARGETS
6062 = XInternAtom (dpyinfo
->display
, "TARGETS", False
);
6064 = XInternAtom (dpyinfo
->display
, "NULL", False
);
6065 dpyinfo
->Xatom_ATOM_PAIR
6066 = XInternAtom (dpyinfo
->display
, "ATOM_PAIR", False
);
6068 dpyinfo
->cut_buffers_initialized
= 0;
6070 connection
= ConnectionNumber (dpyinfo
->display
);
6071 dpyinfo
->connection
= connection
;
6074 /* This is only needed for distinguishing keyboard and process input. */
6075 if (connection
!= 0)
6076 add_keyboard_wait_descriptor (connection
);
6079 #ifndef F_SETOWN_BUG
6081 #ifdef F_SETOWN_SOCK_NEG
6082 /* stdin is a socket here */
6083 fcntl (connection
, F_SETOWN
, -getpid ());
6084 #else /* ! defined (F_SETOWN_SOCK_NEG) */
6085 fcntl (connection
, F_SETOWN
, getpid ());
6086 #endif /* ! defined (F_SETOWN_SOCK_NEG) */
6087 #endif /* ! defined (F_SETOWN) */
6088 #endif /* F_SETOWN_BUG */
6091 if (interrupt_input
)
6092 init_sigio (connection
);
6093 #endif /* ! defined (SIGIO) */
6100 /* Get rid of display DPYINFO, assuming all frames are already gone,
6101 and without sending any more commands to the X server. */
6104 x_delete_display (dpyinfo
)
6105 struct x_display_info
*dpyinfo
;
6107 delete_keyboard_wait_descriptor (dpyinfo
->connection
);
6109 /* Discard this display from x_display_name_list and x_display_list.
6110 We can't use Fdelq because that can quit. */
6111 if (! NILP (x_display_name_list
)
6112 && EQ (XCONS (x_display_name_list
)->car
, dpyinfo
->name_list_element
))
6113 x_display_name_list
= XCONS (x_display_name_list
)->cdr
;
6118 tail
= x_display_name_list
;
6119 while (CONSP (tail
) && CONSP (XCONS (tail
)->cdr
))
6121 if (EQ (XCONS (XCONS (tail
)->cdr
)->car
,
6122 dpyinfo
->name_list_element
))
6124 XCONS (tail
)->cdr
= XCONS (XCONS (tail
)->cdr
)->cdr
;
6127 tail
= XCONS (tail
)->cdr
;
6131 if (x_display_list
== dpyinfo
)
6132 x_display_list
= dpyinfo
->next
;
6135 struct x_display_info
*tail
;
6137 for (tail
= x_display_list
; tail
; tail
= tail
->next
)
6138 if (tail
->next
== dpyinfo
)
6139 tail
->next
= tail
->next
->next
;
6142 #ifndef USE_X_TOOLKIT /* I'm told Xt does this itself. */
6143 #ifndef AIX /* On AIX, XCloseDisplay calls this. */
6144 XrmDestroyDatabase (dpyinfo
->xrdb
);
6148 if (--dpyinfo
->kboard
->reference_count
== 0)
6149 delete_kboard (dpyinfo
->kboard
);
6151 xfree (dpyinfo
->font_table
);
6152 xfree (dpyinfo
->x_id_name
);
6156 /* Set up use of X before we make the first connection. */
6160 clear_frame_hook
= XTclear_frame
;
6161 clear_end_of_line_hook
= XTclear_end_of_line
;
6162 ins_del_lines_hook
= XTins_del_lines
;
6163 change_line_highlight_hook
= XTchange_line_highlight
;
6164 insert_glyphs_hook
= XTinsert_glyphs
;
6165 write_glyphs_hook
= XTwrite_glyphs
;
6166 delete_glyphs_hook
= XTdelete_glyphs
;
6167 ring_bell_hook
= XTring_bell
;
6168 reset_terminal_modes_hook
= XTreset_terminal_modes
;
6169 set_terminal_modes_hook
= XTset_terminal_modes
;
6170 update_begin_hook
= XTupdate_begin
;
6171 update_end_hook
= XTupdate_end
;
6172 set_terminal_window_hook
= XTset_terminal_window
;
6173 read_socket_hook
= XTread_socket
;
6174 frame_up_to_date_hook
= XTframe_up_to_date
;
6175 cursor_to_hook
= XTcursor_to
;
6176 reassert_line_highlight_hook
= XTreassert_line_highlight
;
6177 mouse_position_hook
= XTmouse_position
;
6178 frame_rehighlight_hook
= XTframe_rehighlight
;
6179 frame_raise_lower_hook
= XTframe_raise_lower
;
6180 set_vertical_scroll_bar_hook
= XTset_vertical_scroll_bar
;
6181 condemn_scroll_bars_hook
= XTcondemn_scroll_bars
;
6182 redeem_scroll_bar_hook
= XTredeem_scroll_bar
;
6183 judge_scroll_bars_hook
= XTjudge_scroll_bars
;
6185 scroll_region_ok
= 1; /* we'll scroll partial frames */
6186 char_ins_del_ok
= 0; /* just as fast to write the line */
6187 line_ins_del_ok
= 1; /* we'll just blt 'em */
6188 fast_clear_end_of_line
= 1; /* X does this well */
6189 memory_below_frame
= 0; /* we don't remember what scrolls
6195 /* Try to use interrupt input; if we can't, then start polling. */
6196 Fset_input_mode (Qt
, Qnil
, Qt
, Qnil
);
6198 #ifdef USE_X_TOOLKIT
6199 XtToolkitInitialize ();
6200 Xt_app_con
= XtCreateApplicationContext ();
6201 XtAppSetFallbackResources (Xt_app_con
, Xt_default_resources
);
6204 /* Note that there is no real way portable across R3/R4 to get the
6205 original error handler. */
6206 XSetErrorHandler (x_error_quitter
);
6207 XSetIOErrorHandler (x_io_error_quitter
);
6209 /* Disable Window Change signals; they are handled by X events. */
6211 signal (SIGWINCH
, SIG_DFL
);
6212 #endif /* ! defined (SIGWINCH) */
6214 signal (SIGPIPE
, x_connection_signal
);
6220 staticpro (&x_display_name_list
);
6221 x_display_name_list
= Qnil
;
6223 staticpro (&last_mouse_scroll_bar
);
6224 last_mouse_scroll_bar
= Qnil
;
6226 staticpro (&Qvendor_specific_keysyms
);
6227 Qvendor_specific_keysyms
= intern ("vendor-specific-keysyms");
6230 /* Avoid warnings or errors from including Xlibint.h.
6231 We don't need these functions for the rest of this file. */
6238 #ifdef X_CONNECTION_LOCK_FLAG
6239 #define free loserfree
6240 #define malloc losermalloc
6241 #define exit loserexit
6242 #define abort loserabort
6243 /* For XlibDisplayWriting */
6244 #include <X11/Xlibint.h>
6247 /* Check whether display connection DPYINFO is hung
6248 because its thread-interlock is locked.
6249 If it is, close the connection.
6250 Do nothing if this system does not have a thread interlock. */
6252 x_connection_close_if_hung (dpyinfo
)
6253 struct x_display_info
*dpyinfo
;
6255 /* This tests (1) whether X_CONNECTION_LOCK_FLAG is defined at all,
6256 and (2) whether the name it is defined as is itself defined.
6257 (It ought to have been defined by Xlibint.h. */
6258 #if X_CONNECTION_LOCK_FLAG
6260 if (dpyinfo
->display
->flags
& X_CONNECTION_LOCK_FLAG
)
6262 /* If the thread-interlock is locked, assume this connection is dead.
6263 This assumes that the library does not make other threads
6264 that can be locking the display legitimately. */
6266 dpyinfo
->display
->flags
&= ~X_CONNECTION_LOCK_FLAG
;
6267 x_connection_closed (dpyinfo
->display
, "connection was lost");
6269 #endif /* X_CONNECTION_LOCK_FLAG */
6272 /* Don't put any additional functions here! */
6274 #endif /* not HAVE_X_WINDOWS */