1 /* X Communication module for terminals which understand the X protocol.
2 Copyright (C) 1989, 1993, 1994 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, 675 Mass Ave, Cambridge, MA 02139, USA. */
20 /* Xt features made by Fred Pierresteguy. */
22 /* On 4.3 these lose if they come after xterm.h. */
23 /* On HP-UX 8.0 signal.h loses if it comes after config.h. */
24 /* Putting these at the beginning seems to be standard for other .c files. */
31 /* Need syssignal.h for various externs and definitions that may be required
32 by some configurations for calls to signal later in this source file. */
33 #include "syssignal.h"
38 #include "blockinput.h"
40 /* This may include sys/types.h, and that somehow loses
41 if this is not done before the other system files. */
43 #include <X11/cursorfont.h>
46 /* Load sys/types.h if not already loaded.
47 In some systems loading it twice is suicidal. */
49 #include <sys/types.h>
54 #include <sys/ioctl.h>
55 #endif /* ! defined (BSD) */
60 #ifndef INCLUDED_FCNTL
67 /* Caused redefinition of DBL_DIG on Netbsd; seems not to be needed. */
68 /* #include <sys/param.h> */
71 #include "dispextern.h"
72 #include "termhooks.h"
84 #include "intervals.h"
87 extern void free_frame_menubar ();
88 extern void _XEditResCheckMessages ();
89 #endif /* USE_X_TOOLKIT */
92 #define x_any_window_to_frame x_window_to_frame
93 #define x_top_window_to_frame x_window_to_frame
97 #ifndef XtNinitialState
98 #define XtNinitialState "initialState"
102 #define min(a,b) ((a)<(b) ? (a) : (b))
103 #define max(a,b) ((a)>(b) ? (a) : (b))
105 /* This is a chain of structures for all the X displays currently in use. */
106 struct x_display_info
*x_display_list
;
108 /* This is a list of cons cells, each of the form (NAME . FONT-LIST-CACHE),
109 one for each element of x_display_list and in the same order.
110 NAME is the name of the frame.
111 FONT-LIST-CACHE records previous values returned by x-list-fonts. */
112 Lisp_Object x_display_name_list
;
114 /* Frame being updated by update_frame. This is declared in term.c.
115 This is set by update_begin and looked at by all the
116 XT functions. It is zero while not inside an update.
117 In that case, the XT functions assume that `selected_frame'
118 is the frame to apply to. */
119 extern struct frame
*updating_frame
;
121 /* The frame (if any) which has the X window that has keyboard focus.
122 Zero if none. This is examined by Ffocus_frame in frame.c. Note
123 that a mere EnterNotify event can set this; if you need to know the
124 last frame specified in a FocusIn or FocusOut event, use
125 x_focus_event_frame. */
126 struct frame
*x_focus_frame
;
128 /* This is a frame waiting to be autoraised, within XTread_socket. */
129 struct frame
*pending_autoraise_frame
;
131 /* The last frame mentioned in a FocusIn or FocusOut event. This is
132 separate from x_focus_frame, because whether or not LeaveNotify
133 events cause us to lose focus depends on whether or not we have
134 received a FocusIn event for it. */
135 struct frame
*x_focus_event_frame
;
137 /* The frame which currently has the visual highlight, and should get
138 keyboard input (other sorts of input have the frame encoded in the
139 event). It points to the X focus frame's selected window's
140 frame. It differs from x_focus_frame when we're using a global
142 static struct frame
*x_highlight_frame
;
145 /* The application context for Xt use. */
146 XtAppContext Xt_app_con
;
149 /* During an update, maximum vpos for ins/del line operations to affect. */
151 static int flexlines
;
153 /* During an update, nonzero if chars output now should be highlighted. */
155 static int highlight
;
157 /* Nominal cursor position -- where to draw output.
158 During an update, these are different from the cursor-box position. */
165 In order to avoid asking for motion events and then throwing most
166 of them away or busy-polling the server for mouse positions, we ask
167 the server for pointer motion hints. This means that we get only
168 one event per group of mouse movements. "Groups" are delimited by
169 other kinds of events (focus changes and button clicks, for
170 example), or by XQueryPointer calls; when one of these happens, we
171 get another MotionNotify event the next time the mouse moves. This
172 is at least as efficient as getting motion events when mouse
173 tracking is on, and I suspect only negligibly worse when tracking
176 The silly O'Reilly & Associates Nutshell guides barely document
177 pointer motion hints at all (I think you have to infer how they
178 work from an example), and the description of XQueryPointer doesn't
179 mention that calling it causes you to get another motion hint from
180 the server, which is very important. */
182 /* Where the mouse was last time we reported a mouse event. */
183 static FRAME_PTR last_mouse_frame
;
184 static XRectangle last_mouse_glyph
;
186 /* The scroll bar in which the last X motion event occurred.
188 If the last X motion event occurred in a scroll bar, we set this
189 so XTmouse_position can know whether to report a scroll bar motion or
192 If the last X motion event didn't occur in a scroll bar, we set this
193 to Qnil, to tell XTmouse_position to return an ordinary motion event. */
194 static Lisp_Object last_mouse_scroll_bar
;
196 /* This is a hack. We would really prefer that XTmouse_position would
197 return the time associated with the position it returns, but there
198 doesn't seem to be any way to wrest the timestamp from the server
199 along with the position query. So, we just keep track of the time
200 of the last movement we received, and return that in hopes that
201 it's somewhat accurate. */
202 static Time last_mouse_movement_time
;
204 /* Incremented by XTread_socket whenever it really tries to read events. */
206 static int volatile input_signal_count
;
208 static int input_signal_count
;
211 /* Used locally within XTread_socket. */
212 static int x_noop_count
;
214 /* Initial values of argv and argc. */
215 extern char **initial_argv
;
216 extern int initial_argc
;
218 extern Lisp_Object Vcommand_line_args
, Vsystem_name
;
220 /* Tells if a window manager is present or not. */
222 extern Lisp_Object Vx_no_window_manager
;
224 /* Nonzero enables some debugging for the X interface code. */
227 extern Lisp_Object Qface
, Qmouse_face
;
231 /* A mask of extra modifier bits to put into every keyboard char. */
232 extern int extra_keyboard_modifiers
;
234 extern XrmDatabase
x_load_resources ();
236 void x_delete_display ();
238 static void flashback ();
239 static void redraw_previous_char ();
240 static void redraw_following_char ();
241 static unsigned int x_x_to_emacs_modifiers ();
243 static int fast_find_position ();
244 static void note_mouse_highlight ();
245 static void clear_mouse_face ();
246 static void show_mouse_face ();
247 static void do_line_dance ();
249 static int XTcursor_to ();
250 static int XTclear_end_of_line ();
251 static int x_io_error_quitter ();
253 /* Return the struct x_display_info corresponding to DPY. */
255 struct x_display_info
*
256 x_display_info_for_display (dpy
)
259 struct x_display_info
*dpyinfo
;
261 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
262 if (dpyinfo
->display
== dpy
)
268 #ifdef MULTI_PERDISPLAY
269 /* Return the perdisplay struct corresponding to FRAME. */
270 #undef get_perdisplay
273 get_perdisplay(frame
)
276 return get_perdisplay_macro (frame
);
278 #define get_perdisplay(frame) get_perdisplay_macro (frame)
281 /* Starting and ending updates.
283 These hooks are called by update_frame at the beginning and end
284 of a frame update. We record in `updating_frame' the identity
285 of the frame being updated, so that the XT... functions do not
286 need to take a frame as argument. Most of the XT... functions
287 should never be called except during an update, the only exceptions
288 being XTcursor_to, XTwrite_glyphs and XTreassert_line_highlight. */
299 flexlines
= f
->height
;
304 if (f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
)
306 /* Don't do highlighting for mouse motion during the update. */
307 FRAME_X_DISPLAY_INFO (f
)->mouse_face_defer
= 1;
309 /* If the frame needs to be redrawn,
310 simply forget about any prior mouse highlighting. */
311 if (FRAME_GARBAGED_P (f
))
312 FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
= Qnil
;
314 if (!NILP (FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
))
316 int firstline
, lastline
, i
;
317 struct window
*w
= XWINDOW (FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
);
319 /* Find the first, and the last+1, lines affected by redisplay. */
320 for (firstline
= 0; firstline
< f
->height
; firstline
++)
321 if (FRAME_DESIRED_GLYPHS (f
)->enable
[firstline
])
324 lastline
= f
->height
;
325 for (i
= f
->height
- 1; i
>= 0; i
--)
327 if (FRAME_DESIRED_GLYPHS (f
)->enable
[i
])
333 /* Can we tell that this update does not affect the window
334 where the mouse highlight is? If so, no need to turn off.
335 Likewise, don't do anything if the frame is garbaged;
336 in that case, the FRAME_CURRENT_GLYPHS that we would use
337 are all wrong, and we will redisplay that line anyway. */
338 if (! (firstline
> (XFASTINT (w
->top
) + window_internal_height (w
))
339 || lastline
< XFASTINT (w
->top
)))
340 clear_mouse_face (FRAME_X_DISPLAY_INFO (f
));
356 x_display_cursor (f
, 1);
358 if (f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
)
359 FRAME_X_DISPLAY_INFO (f
)->mouse_face_defer
= 0;
361 /* This fails in the case of having updated only the echo area
362 if we have switched buffers. In that case, FRAME_CURRENT_GLYPHS
363 has no relation to the current contents, and its charstarts
364 have no relation to the contents of the window-buffer.
365 I don't know a clean way to check
366 for that case. window_end_valid isn't set up yet. */
367 if (f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
)
368 note_mouse_highlight (f
, FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_x
,
369 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_y
);
372 XFlush (FRAME_X_DISPLAY (f
));
376 /* This is called after a redisplay on frame F. */
379 XTframe_up_to_date (f
)
382 if (FRAME_X_DISPLAY_INFO (f
)->mouse_face_deferred_gc
383 || f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
)
385 note_mouse_highlight (FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
,
386 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_x
,
387 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_y
);
388 FRAME_X_DISPLAY_INFO (f
)->mouse_face_deferred_gc
= 0;
392 /* External interface to control of standout mode.
393 Call this when about to modify line at position VPOS
394 and not change whether it is highlighted. */
396 XTreassert_line_highlight (new, vpos
)
402 /* Call this when about to modify line at position VPOS
403 and change whether it is highlighted. */
406 XTchange_line_highlight (new_highlight
, vpos
, first_unused_hpos
)
407 int new_highlight
, vpos
, first_unused_hpos
;
409 highlight
= new_highlight
;
410 XTcursor_to (vpos
, 0);
411 XTclear_end_of_line (updating_frame
->width
);
414 /* This is used when starting Emacs and when restarting after suspend.
415 When starting Emacs, no X window is mapped. And nothing must be done
416 to Emacs's own window if it is suspended (though that rarely happens). */
419 XTset_terminal_modes ()
423 /* This is called when exiting or suspending Emacs.
424 Exiting will make the X-windows go away, and suspending
425 requires no action. */
428 XTreset_terminal_modes ()
430 /* XTclear_frame (); */
433 /* Set the nominal cursor position of the frame.
434 This is where display update commands will take effect.
435 This does not affect the place where the cursor-box is displayed. */
438 XTcursor_to (row
, col
)
439 register int row
, col
;
447 if (updating_frame
== 0)
450 x_display_cursor (selected_frame
, 1);
451 XFlush (FRAME_X_DISPLAY (selected_frame
));
456 /* Display a sequence of N glyphs found at GP.
457 WINDOW is the x-window to output to. LEFT and TOP are starting coords.
458 HL is 1 if this text is highlighted, 2 if the cursor is on it,
459 3 if should appear in its mouse-face.
460 JUST_FOREGROUND if 1 means draw only the foreground;
461 don't alter the background.
463 FONT is the default font to use (for glyphs whose font-code is 0).
465 Since the display generation code is responsible for calling
466 compute_char_face and compute_glyph_face on everything it puts in
467 the display structure, we can assume that the face code on each
468 glyph is a valid index into FRAME_COMPUTED_FACES (f), and the one
469 to which we can actually apply intern_face.
470 Call this function with input blocked. */
473 /* This is the multi-face code. */
476 dumpglyphs (f
, left
, top
, gp
, n
, hl
, just_foreground
)
479 register GLYPH
*gp
; /* Points to first GLYPH. */
480 register int n
; /* Number of glyphs to display. */
484 /* Holds characters to be displayed. */
485 char *buf
= (char *) alloca (f
->width
* sizeof (*buf
));
486 register char *cp
; /* Steps through buf[]. */
487 register int tlen
= GLYPH_TABLE_LENGTH
;
488 register Lisp_Object
*tbase
= GLYPH_TABLE_BASE
;
489 Window window
= FRAME_X_WINDOW (f
);
490 int orig_left
= left
;
494 /* Get the face-code of the next GLYPH. */
498 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
499 cf
= FAST_GLYPH_FACE (g
);
501 /* Find the run of consecutive glyphs with the same face-code.
502 Extract their character codes into BUF. */
507 GLYPH_FOLLOW_ALIASES (tbase
, tlen
, g
);
508 if (FAST_GLYPH_FACE (g
) != cf
)
511 *cp
++ = FAST_GLYPH_CHAR (g
);
516 /* LEN gets the length of the run. */
519 /* Now output this run of chars, with the font and pixel values
520 determined by the face code CF. */
522 struct face
*face
= FRAME_DEFAULT_FACE (f
);
523 XFontStruct
*font
= FACE_FONT (face
);
524 GC gc
= FACE_GC (face
);
527 /* HL = 3 means use a mouse face previously chosen. */
529 cf
= FRAME_X_DISPLAY_INFO (f
)->mouse_face_face_id
;
531 /* First look at the face of the text itself. */
534 /* It's possible for the display table to specify
535 a face code that is out of range. Use 0 in that case. */
536 if (cf
< 0 || cf
>= FRAME_N_COMPUTED_FACES (f
)
537 || FRAME_COMPUTED_FACES (f
) [cf
] == 0)
541 face
= FRAME_MODE_LINE_FACE (f
);
543 face
= intern_face (f
, FRAME_COMPUTED_FACES (f
) [cf
]);
544 font
= FACE_FONT (face
);
546 if (FACE_STIPPLE (face
))
550 /* Then comes the distinction between modeline and normal text. */
555 face
= FRAME_MODE_LINE_FACE (f
);
556 font
= FACE_FONT (face
);
558 if (FACE_STIPPLE (face
))
562 #define FACE_DEFAULT (~0)
564 /* Now override that if the cursor's on this character. */
567 /* The cursor overrides stippling. */
571 || (int) face
->font
== FACE_DEFAULT
572 || face
->font
== f
->display
.x
->font
)
573 && face
->background
== f
->display
.x
->background_pixel
574 && face
->foreground
== f
->display
.x
->foreground_pixel
)
576 gc
= f
->display
.x
->cursor_gc
;
578 /* Cursor on non-default face: must merge. */
584 xgcv
.background
= f
->display
.x
->cursor_pixel
;
585 xgcv
.foreground
= face
->background
;
586 /* If the glyph would be invisible,
587 try a different foreground. */
588 if (xgcv
.foreground
== xgcv
.background
)
589 xgcv
.foreground
= face
->foreground
;
590 if (xgcv
.foreground
== xgcv
.background
)
591 xgcv
.foreground
= f
->display
.x
->cursor_foreground_pixel
;
592 if (xgcv
.foreground
== xgcv
.background
)
593 xgcv
.foreground
= face
->foreground
;
594 /* Make sure the cursor is distinct from text in this face. */
595 if (xgcv
.background
== face
->background
596 && xgcv
.foreground
== face
->foreground
)
598 xgcv
.background
= face
->foreground
;
599 xgcv
.foreground
= face
->background
;
601 xgcv
.font
= face
->font
->fid
;
602 xgcv
.graphics_exposures
= 0;
603 mask
= GCForeground
| GCBackground
| GCFont
| GCGraphicsExposures
;
604 if (FRAME_X_DISPLAY_INFO (f
)->scratch_cursor_gc
)
605 XChangeGC (FRAME_X_DISPLAY (f
),
606 FRAME_X_DISPLAY_INFO (f
)->scratch_cursor_gc
,
609 FRAME_X_DISPLAY_INFO (f
)->scratch_cursor_gc
610 = XCreateGC (FRAME_X_DISPLAY (f
), window
, mask
, &xgcv
);
611 gc
= FRAME_X_DISPLAY_INFO (f
)->scratch_cursor_gc
;
613 /* If this code is restored, it must also reset to the default stipple
615 if (face
->stipple
&& face
->stipple
!= FACE_DEFAULT
)
616 XSetStipple (FRAME_X_DISPLAY (f
), gc
, face
->stipple
);
621 if ((int) font
== FACE_DEFAULT
)
622 font
= f
->display
.x
->font
;
625 XDrawString (FRAME_X_DISPLAY (f
), window
, gc
,
626 left
, top
+ FONT_BASE (font
), buf
, len
);
631 /* Turn stipple on. */
632 XSetFillStyle (FRAME_X_DISPLAY (f
), gc
, FillOpaqueStippled
);
634 /* Draw stipple on background. */
635 XFillRectangle (FRAME_X_DISPLAY (f
), window
, gc
,
637 FONT_WIDTH (font
) * len
,
640 /* Turn stipple off. */
641 XSetFillStyle (FRAME_X_DISPLAY (f
), gc
, FillSolid
);
643 /* Draw the text, solidly, onto the stipple pattern. */
644 XDrawString (FRAME_X_DISPLAY (f
), window
, gc
,
645 left
, top
+ FONT_BASE (font
), buf
, len
);
648 XDrawImageString (FRAME_X_DISPLAY (f
), window
, gc
,
649 left
, top
+ FONT_BASE (font
), buf
, len
);
651 /* Clear the rest of the line's height. */
652 if (f
->display
.x
->line_height
!= FONT_HEIGHT (font
))
653 XClearArea (FRAME_X_DISPLAY (f
), window
, left
,
654 top
+ FONT_HEIGHT (font
),
655 FONT_WIDTH (font
) * len
,
656 /* This is how many pixels of height
658 f
->display
.x
->line_height
- FONT_HEIGHT (font
),
662 #if 0 /* Doesn't work, because it uses FRAME_CURRENT_GLYPHS,
663 which often is not up to date yet. */
664 if (!just_foreground
)
666 if (left
== orig_left
)
667 redraw_previous_char (f
, PIXEL_TO_CHAR_COL (f
, left
),
668 PIXEL_TO_CHAR_ROW (f
, top
), hl
== 1);
670 redraw_following_char (f
, PIXEL_TO_CHAR_COL (f
, left
+ len
* FONT_WIDTH (font
)),
671 PIXEL_TO_CHAR_ROW (f
, top
), hl
== 1);
675 /* We should probably check for XA_UNDERLINE_POSITION and
676 XA_UNDERLINE_THICKNESS properties on the font, but let's
677 just get the thing working, and come back to that. */
679 int underline_position
= 1;
681 if (font
->descent
<= underline_position
)
682 underline_position
= font
->descent
- 1;
685 XFillRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
689 + underline_position
),
690 len
* FONT_WIDTH (font
), 1);
693 left
+= len
* FONT_WIDTH (font
);
700 /* This is the old single-face code. */
703 dumpglyphs (f
, left
, top
, gp
, n
, hl
, font
)
706 register GLYPH
*gp
; /* Points to first GLYPH. */
707 register int n
; /* Number of glyphs to display. */
712 Window window
= FRAME_X_WINDOW (f
);
713 GC drawing_gc
= (hl
== 2 ? f
->display
.x
->cursor_gc
714 : (hl
? f
->display
.x
->reverse_gc
715 : f
->display
.x
->normal_gc
));
717 if (sizeof (GLYPH
) == sizeof (XChar2b
))
718 XDrawImageString16 (FRAME_X_DISPLAY (f
), window
, drawing_gc
,
719 left
, top
+ FONT_BASE (font
), (XChar2b
*) gp
, n
);
720 else if (sizeof (GLYPH
) == sizeof (unsigned char))
721 XDrawImageString (FRAME_X_DISPLAY (f
), window
, drawing_gc
,
722 left
, top
+ FONT_BASE (font
), (char *) gp
, n
);
724 /* What size of glyph ARE you using? And does X have a function to
730 /* Output some text at the nominal frame cursor position.
731 Advance the cursor over the text.
732 Output LEN glyphs at START.
734 `highlight', set up by XTreassert_line_highlight or XTchange_line_highlight,
735 controls the pixel values used for foreground and background. */
738 XTwrite_glyphs (start
, len
)
739 register GLYPH
*start
;
742 register int temp_length
;
753 /* If not within an update,
754 output at the frame's visible cursor. */
755 curs_x
= f
->cursor_x
;
756 curs_y
= f
->cursor_y
;
760 CHAR_TO_PIXEL_COL (f
, curs_x
),
761 CHAR_TO_PIXEL_ROW (f
, curs_y
),
762 start
, len
, highlight
, 0);
764 /* If we drew on top of the cursor, note that it is turned off. */
765 if (curs_y
== f
->phys_cursor_y
766 && curs_x
<= f
->phys_cursor_x
767 && curs_x
+ len
> f
->phys_cursor_x
)
768 f
->phys_cursor_x
= -1;
770 if (updating_frame
== 0)
773 x_display_cursor (f
, 1);
782 /* Clear to the end of the line.
783 Erase the current text line from the nominal cursor position (inclusive)
784 to column FIRST_UNUSED (exclusive). The idea is that everything
785 from FIRST_UNUSED onward is already erased. */
788 XTclear_end_of_line (first_unused
)
789 register int first_unused
;
791 struct frame
*f
= updating_frame
;
797 if (curs_y
< 0 || curs_y
>= f
->height
)
799 if (first_unused
<= 0)
802 if (first_unused
>= f
->width
)
803 first_unused
= f
->width
;
809 /* Notice if the cursor will be cleared by this operation. */
810 if (curs_y
== f
->phys_cursor_y
811 && curs_x
<= f
->phys_cursor_x
812 && f
->phys_cursor_x
< first_unused
)
813 f
->phys_cursor_x
= -1;
815 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
816 CHAR_TO_PIXEL_COL (f
, curs_x
),
817 CHAR_TO_PIXEL_ROW (f
, curs_y
),
818 FONT_WIDTH (f
->display
.x
->font
) * (first_unused
- curs_x
),
819 f
->display
.x
->line_height
, False
);
821 redraw_previous_char (f
, curs_x
, curs_y
, highlight
);
831 struct frame
*f
= updating_frame
;
836 f
->phys_cursor_x
= -1; /* Cursor not visible. */
837 curs_x
= 0; /* Nominal cursor position is top left. */
842 XClearWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
844 /* We have to clear the scroll bars, too. If we have changed
845 colors or something like that, then they should be notified. */
846 x_scroll_bar_clear (f
);
848 XFlush (FRAME_X_DISPLAY (f
));
853 /* This currently does not work because FRAME_CURRENT_GLYPHS doesn't
854 always contain the right glyphs to use.
856 It also needs to be changed to look at the details of the font and
857 see whether there is really overlap, and do nothing when there is
858 not. This can use font_char_overlap_left and font_char_overlap_right,
859 but just how to use them is not clear. */
861 /* Erase the character (if any) at the position just before X, Y in frame F,
862 then redraw it and the character before it.
863 This is necessary when we erase starting at X,
864 in case the character after X overlaps into the one before X.
865 Call this function with input blocked. */
868 redraw_previous_char (f
, x
, y
, highlight_flag
)
873 /* Erase the character before the new ones, in case
874 what was here before overlaps it.
875 Reoutput that character, and the previous character
876 (in case the previous character overlaps it). */
882 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
883 CHAR_TO_PIXEL_COL (f
, x
- 1),
884 CHAR_TO_PIXEL_ROW (f
, y
),
885 FONT_WIDTH (f
->display
.x
->font
),
886 f
->display
.x
->line_height
, False
);
888 dumpglyphs (f
, CHAR_TO_PIXEL_COL (f
, start_x
),
889 CHAR_TO_PIXEL_ROW (f
, y
),
890 &FRAME_CURRENT_GLYPHS (f
)->glyphs
[y
][start_x
],
891 x
- start_x
, highlight_flag
, 1);
895 /* Erase the character (if any) at the position X, Y in frame F,
896 then redraw it and the character after it.
897 This is necessary when we erase endng at X,
898 in case the character after X overlaps into the one before X.
899 Call this function with input blocked. */
902 redraw_following_char (f
, x
, y
, highlight_flag
)
907 int limit
= FRAME_CURRENT_GLYPHS (f
)->used
[y
];
908 /* Erase the character after the new ones, in case
909 what was here before overlaps it.
910 Reoutput that character, and the following character
911 (in case the following character overlaps it). */
913 && FRAME_CURRENT_GLYPHS (f
)->glyphs
[y
][x
] != SPACEGLYPH
)
918 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
919 CHAR_TO_PIXEL_COL (f
, x
),
920 CHAR_TO_PIXEL_ROW (f
, y
),
921 FONT_WIDTH (f
->display
.x
->font
),
922 f
->display
.x
->line_height
, False
);
924 dumpglyphs (f
, CHAR_TO_PIXEL_COL (f
, x
),
925 CHAR_TO_PIXEL_ROW (f
, y
),
926 &FRAME_CURRENT_GLYPHS (f
)->glyphs
[y
][x
],
927 end_x
- x
, highlight_flag
, 1);
932 #if 0 /* Not in use yet */
934 /* Return 1 if character C in font F extends past its left edge. */
937 font_char_overlap_left (font
, c
)
943 /* Find the bounding-box info for C. */
944 if (font
->per_char
== 0)
945 s
= &font
->max_bounds
;
948 int rowlen
= font
->max_char_or_byte2
- font
->min_char_or_byte2
+ 1;
951 /* Decode char into row number (byte 1) and code within row (byte 2). */
954 if (!(within
>= font
->min_char_or_byte2
955 && within
<= font
->max_char_or_byte2
956 && row
>= font
->min_byte1
957 && row
<= font
->max_byte1
))
959 /* If char is out of range, try the font's default char instead. */
960 c
= font
->default_char
;
961 row
= c
>> (INTBITS
- 8);
964 if (!(within
>= font
->min_char_or_byte2
965 && within
<= font
->max_char_or_byte2
966 && row
>= font
->min_byte1
967 && row
<= font
->max_byte1
))
968 /* Still out of range means this char does not overlap. */
971 /* We found the info for this char. */
972 s
= (font
->per_char
+ (within
- font
->min_char_or_byte2
)
976 return (s
&& s
->lbearing
< 0);
979 /* Return 1 if character C in font F extends past its right edge. */
982 font_char_overlap_right (font
, c
)
988 /* Find the bounding-box info for C. */
989 if (font
->per_char
== 0)
990 s
= &font
->max_bounds
;
993 int rowlen
= font
->max_char_or_byte2
- font
->min_char_or_byte2
+ 1;
996 /* Decode char into row number (byte 1) and code within row (byte 2). */
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
))
1004 /* If char is out of range, try the font's default char instead. */
1005 c
= font
->default_char
;
1006 row
= c
>> (INTBITS
- 8);
1009 if (!(within
>= font
->min_char_or_byte2
1010 && within
<= font
->max_char_or_byte2
1011 && row
>= font
->min_byte1
1012 && row
<= font
->max_byte1
))
1013 /* Still out of range means this char does not overlap. */
1016 /* We found the info for this char. */
1017 s
= (font
->per_char
+ (within
- font
->min_char_or_byte2
)
1021 return (s
&& s
->rbearing
>= s
->width
);
1025 /* Invert the middle quarter of the frame for .15 sec. */
1027 /* We use the select system call to do the waiting, so we have to make sure
1028 it's available. If it isn't, we just won't do visual bells. */
1029 #if defined (HAVE_TIMEVAL) && defined (HAVE_SELECT)
1031 /* Subtract the `struct timeval' values X and Y,
1032 storing the result in RESULT.
1033 Return 1 if the difference is negative, otherwise 0. */
1036 timeval_subtract (result
, x
, y
)
1037 struct timeval
*result
, x
, y
;
1039 /* Perform the carry for the later subtraction by updating y.
1040 This is safer because on some systems
1041 the tv_sec member is unsigned. */
1042 if (x
.tv_usec
< y
.tv_usec
)
1044 int nsec
= (y
.tv_usec
- x
.tv_usec
) / 1000000 + 1;
1045 y
.tv_usec
-= 1000000 * nsec
;
1048 if (x
.tv_usec
- y
.tv_usec
> 1000000)
1050 int nsec
= (y
.tv_usec
- x
.tv_usec
) / 1000000;
1051 y
.tv_usec
+= 1000000 * nsec
;
1055 /* Compute the time remaining to wait. tv_usec is certainly positive. */
1056 result
->tv_sec
= x
.tv_sec
- y
.tv_sec
;
1057 result
->tv_usec
= x
.tv_usec
- y
.tv_usec
;
1059 /* Return indication of whether the result should be considered negative. */
1060 return x
.tv_sec
< y
.tv_sec
;
1071 /* Create a GC that will use the GXxor function to flip foreground pixels
1072 into background pixels. */
1076 values
.function
= GXxor
;
1077 values
.foreground
= (f
->display
.x
->foreground_pixel
1078 ^ f
->display
.x
->background_pixel
);
1080 gc
= XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1081 GCFunction
| GCForeground
, &values
);
1085 int width
= PIXEL_WIDTH (f
);
1086 int height
= PIXEL_HEIGHT (f
);
1088 XFillRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), gc
,
1089 width
/4, height
/4, width
/2, height
/2);
1090 XFlush (FRAME_X_DISPLAY (f
));
1093 struct timeval wakeup
, now
;
1095 EMACS_GET_TIME (wakeup
);
1097 /* Compute time to wait until, propagating carry from usecs. */
1098 wakeup
.tv_usec
+= 150000;
1099 wakeup
.tv_sec
+= (wakeup
.tv_usec
/ 1000000);
1100 wakeup
.tv_usec
%= 1000000;
1102 /* Keep waiting until past the time wakeup. */
1105 struct timeval timeout
;
1107 EMACS_GET_TIME (timeout
);
1109 /* In effect, timeout = wakeup - timeout.
1110 Break if result would be negative. */
1111 if (timeval_subtract (&timeout
, wakeup
, timeout
))
1114 /* Try to wait that long--but we might wake up sooner. */
1115 select (0, 0, 0, 0, &timeout
);
1119 XFillRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), gc
,
1120 width
/4, height
/4, width
/2, height
/2);
1121 XFreeGC (FRAME_X_DISPLAY (f
), gc
);
1122 XFlush (FRAME_X_DISPLAY (f
));
1132 /* Make audible bell. */
1134 #define XRINGBELL XBell (FRAME_X_DISPLAY (selected_frame), 0)
1138 if (FRAME_X_DISPLAY (selected_frame
) == 0)
1141 #if defined (HAVE_TIMEVAL) && defined (HAVE_SELECT)
1143 XTflash (selected_frame
);
1149 XFlush (FRAME_X_DISPLAY (selected_frame
));
1154 /* Insert and delete character.
1155 These are not supposed to be used because we are supposed to turn
1156 off the feature of using them. */
1159 XTinsert_glyphs (start
, len
)
1160 register char *start
;
1173 /* Specify how many text lines, from the top of the window,
1174 should be affected by insert-lines and delete-lines operations.
1175 This, and those operations, are used only within an update
1176 that is bounded by calls to XTupdate_begin and XTupdate_end. */
1179 XTset_terminal_window (n
)
1182 if (updating_frame
== 0)
1185 if ((n
<= 0) || (n
> updating_frame
->height
))
1186 flexlines
= updating_frame
->height
;
1191 /* These variables need not be per frame
1192 because redisplay is done on a frame-by-frame basis
1193 and the line dance for one frame is finished before
1194 anything is done for anoter frame. */
1196 /* Array of line numbers from cached insert/delete operations.
1197 line_dance[i] is the old position of the line that we want
1198 to move to line i, or -1 if we want a blank line there. */
1199 static int *line_dance
;
1201 /* Allocated length of that array. */
1202 static int line_dance_len
;
1204 /* Flag indicating whether we've done any work. */
1205 static int line_dance_in_progress
;
1207 /* Perform an insert-lines or delete-lines operation,
1208 inserting N lines or deleting -N lines at vertical position VPOS. */
1209 XTins_del_lines (vpos
, n
)
1212 register int fence
, i
;
1214 if (vpos
>= flexlines
)
1217 if (!line_dance_in_progress
)
1219 int ht
= updating_frame
->height
;
1220 if (ht
> line_dance_len
)
1222 line_dance
= (int *)xrealloc (line_dance
, ht
* sizeof (int));
1223 line_dance_len
= ht
;
1225 for (i
= 0; i
< ht
; ++i
) line_dance
[i
] = i
;
1226 line_dance_in_progress
= 1;
1230 if (n
> flexlines
- vpos
)
1231 n
= flexlines
- vpos
;
1233 for (i
= flexlines
; --i
>= fence
;)
1234 line_dance
[i
] = line_dance
[i
-n
];
1235 for (i
= fence
; --i
>= vpos
;)
1241 if (n
> flexlines
- vpos
)
1242 n
= flexlines
- vpos
;
1243 fence
= flexlines
- n
;
1244 for (i
= vpos
; i
< fence
; ++i
)
1245 line_dance
[i
] = line_dance
[i
+ n
];
1246 for (i
= fence
; i
< flexlines
; ++i
)
1251 /* Here's where we actually move the pixels around.
1252 Must be called with input blocked. */
1256 register int i
, j
, distance
;
1257 register struct frame
*f
;
1261 /* Must check this flag first. If it's not set, then not only is the
1262 array uninitialized, but we might not even have a frame. */
1263 if (!line_dance_in_progress
)
1271 intborder
= f
->display
.x
->internal_border_width
;
1273 x_display_cursor (updating_frame
, 0);
1275 for (i
= 0; i
< ht
; ++i
)
1276 if (line_dance
[i
] != -1 && (distance
= line_dance
[i
]-i
) > 0)
1278 for (j
= i
; (j
< ht
&& line_dance
[j
] != -1
1279 && line_dance
[j
]-j
== distance
); ++j
);
1280 /* Copy [i,j) upward from [i+distance,j+distance) */
1281 XCopyArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1282 FRAME_X_WINDOW (f
), f
->display
.x
->normal_gc
,
1283 intborder
, CHAR_TO_PIXEL_ROW (f
, i
+distance
),
1284 f
->width
* FONT_WIDTH (f
->display
.x
->font
),
1285 (j
-i
) * f
->display
.x
->line_height
,
1286 intborder
, CHAR_TO_PIXEL_ROW (f
, i
));
1290 for (i
= ht
; --i
>=0; )
1291 if (line_dance
[i
] != -1 && (distance
= line_dance
[i
]-i
) < 0)
1293 for (j
= i
; (--j
>= 0 && line_dance
[j
] != -1
1294 && line_dance
[j
]-j
== distance
););
1295 /* Copy (j,i] downward from (j+distance, i+distance] */
1296 XCopyArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1297 FRAME_X_WINDOW (f
), f
->display
.x
->normal_gc
,
1298 intborder
, CHAR_TO_PIXEL_ROW (f
, j
+1+distance
),
1299 f
->width
* FONT_WIDTH (f
->display
.x
->font
),
1300 (i
-j
) * f
->display
.x
->line_height
,
1301 intborder
, CHAR_TO_PIXEL_ROW (f
, j
+1));
1305 for (i
= 0; i
< ht
; ++i
)
1306 if (line_dance
[i
] == -1)
1308 for (j
= i
; j
< ht
&& line_dance
[j
] == -1; ++j
);
1310 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1311 intborder
, CHAR_TO_PIXEL_ROW (f
, i
),
1312 f
->width
* FONT_WIDTH (f
->display
.x
->font
),
1313 (j
-i
) * f
->display
.x
->line_height
, False
);
1316 line_dance_in_progress
= 0;
1319 /* Support routines for exposure events. */
1320 static void clear_cursor ();
1322 /* Output into a rectangle of an X-window (for frame F)
1323 the characters in f->phys_lines that overlap that rectangle.
1324 TOP and LEFT are the position of the upper left corner of the rectangle.
1325 ROWS and COLS are the size of the rectangle.
1326 Call this function with input blocked. */
1329 dumprectangle (f
, left
, top
, cols
, rows
)
1331 register int left
, top
, cols
, rows
;
1333 register struct frame_glyphs
*active_frame
= FRAME_CURRENT_GLYPHS (f
);
1334 int cursor_cleared
= 0;
1338 if (FRAME_GARBAGED_P (f
))
1341 /* Express rectangle as four edges, instead of position-and-size. */
1342 bottom
= top
+ rows
;
1343 right
= left
+ cols
;
1345 /* Convert rectangle edges in pixels to edges in chars.
1346 Round down for left and top, up for right and bottom. */
1347 top
= PIXEL_TO_CHAR_ROW (f
, top
);
1348 left
= PIXEL_TO_CHAR_COL (f
, left
);
1349 bottom
+= (f
->display
.x
->line_height
- 1);
1350 right
+= (FONT_WIDTH (f
->display
.x
->font
) - 1);
1351 bottom
= PIXEL_TO_CHAR_ROW (f
, bottom
);
1352 right
= PIXEL_TO_CHAR_COL (f
, right
);
1354 /* Clip the rectangle to what can be visible. */
1359 if (right
> f
->width
)
1361 if (bottom
> f
->height
)
1364 /* Get size in chars of the rectangle. */
1365 cols
= right
- left
;
1366 rows
= bottom
- top
;
1368 /* If rectangle has zero area, return. */
1369 if (rows
<= 0) return;
1370 if (cols
<= 0) return;
1372 /* Turn off the cursor if it is in the rectangle.
1373 We will turn it back on afterward. */
1374 if ((f
->phys_cursor_x
>= left
) && (f
->phys_cursor_x
< right
)
1375 && (f
->phys_cursor_y
>= top
) && (f
->phys_cursor_y
< bottom
))
1381 /* Display the text in the rectangle, one text line at a time. */
1383 for (y
= top
; y
< bottom
; y
++)
1385 GLYPH
*line
= &active_frame
->glyphs
[y
][left
];
1387 if (! active_frame
->enable
[y
] || left
> active_frame
->used
[y
])
1391 CHAR_TO_PIXEL_COL (f
, left
),
1392 CHAR_TO_PIXEL_ROW (f
, y
),
1393 line
, min (cols
, active_frame
->used
[y
] - left
),
1394 active_frame
->highlight
[y
], 0);
1397 /* Turn the cursor on if we turned it off. */
1400 x_display_cursor (f
, 1);
1407 /* We used to only do this if Vx_no_window_manager was non-nil, but
1408 the ICCCM (section 4.1.6) says that the window's border pixmap
1409 and border pixel are window attributes which are "private to the
1410 client", so we can always change it to whatever we want. */
1412 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1413 f
->display
.x
->border_pixel
);
1415 x_display_cursor (f
, 1);
1419 frame_unhighlight (f
)
1422 /* We used to only do this if Vx_no_window_manager was non-nil, but
1423 the ICCCM (section 4.1.6) says that the window's border pixmap
1424 and border pixel are window attributes which are "private to the
1425 client", so we can always change it to whatever we want. */
1427 XSetWindowBorderPixmap (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1428 f
->display
.x
->border_tile
);
1430 x_display_cursor (f
, 1);
1433 static void XTframe_rehighlight ();
1435 /* The focus has changed. Update the frames as necessary to reflect
1436 the new situation. Note that we can't change the selected frame
1437 here, because the Lisp code we are interrupting might become confused.
1438 Each event gets marked with the frame in which it occurred, so the
1439 Lisp code can tell when the switch took place by examining the events. */
1442 x_new_focus_frame (frame
)
1443 struct frame
*frame
;
1445 struct frame
*old_focus
= x_focus_frame
;
1446 int events_enqueued
= 0;
1448 if (frame
!= x_focus_frame
)
1450 /* Set this before calling other routines, so that they see
1451 the correct value of x_focus_frame. */
1452 x_focus_frame
= frame
;
1454 if (old_focus
&& old_focus
->auto_lower
)
1455 x_lower_frame (old_focus
);
1458 selected_frame
= frame
;
1459 XSETFRAME (XWINDOW (selected_frame
->selected_window
)->frame
,
1461 Fselect_window (selected_frame
->selected_window
);
1462 choose_minibuf_frame ();
1465 if (x_focus_frame
&& x_focus_frame
->auto_raise
)
1466 pending_autoraise_frame
= x_focus_frame
;
1468 pending_autoraise_frame
= 0;
1471 XTframe_rehighlight ();
1474 /* Handle an event saying the mouse has moved out of an Emacs frame. */
1479 if (! x_focus_event_frame
)
1480 x_new_focus_frame (NULL
);
1482 x_new_focus_frame (x_focus_event_frame
); /* Was f, but that seems wrong. */
1485 /* The focus has changed, or we have redirected a frame's focus to
1486 another frame (this happens when a frame uses a surrogate
1487 minibuffer frame). Shift the highlight as appropriate. */
1489 XTframe_rehighlight ()
1491 struct frame
*old_highlight
= x_highlight_frame
;
1496 = ((GC_FRAMEP (FRAME_FOCUS_FRAME (x_focus_frame
)))
1497 ? XFRAME (FRAME_FOCUS_FRAME (x_focus_frame
))
1499 if (! FRAME_LIVE_P (x_highlight_frame
))
1501 FRAME_FOCUS_FRAME (x_focus_frame
) = Qnil
;
1502 x_highlight_frame
= x_focus_frame
;
1506 x_highlight_frame
= 0;
1508 if (x_highlight_frame
!= old_highlight
)
1511 frame_unhighlight (old_highlight
);
1512 if (x_highlight_frame
)
1513 frame_highlight (x_highlight_frame
);
1517 /* Keyboard processing - modifier keys, vendor-specific keysyms, etc. */
1519 /* Initialize mode_switch_bit and modifier_meaning. */
1521 x_find_modifier_meanings (dpyinfo
)
1522 struct x_display_info
*dpyinfo
;
1524 int min_code
, max_code
;
1527 XModifierKeymap
*mods
;
1529 dpyinfo
->meta_mod_mask
= 0;
1530 dpyinfo
->shift_lock_mask
= 0;
1531 dpyinfo
->alt_mod_mask
= 0;
1532 dpyinfo
->super_mod_mask
= 0;
1533 dpyinfo
->hyper_mod_mask
= 0;
1536 XDisplayKeycodes (dpyinfo
->display
, &min_code
, &max_code
);
1538 min_code
= display
->min_keycode
;
1539 max_code
= display
->max_keycode
;
1542 syms
= XGetKeyboardMapping (dpyinfo
->display
,
1543 min_code
, max_code
- min_code
+ 1,
1545 mods
= XGetModifierMapping (dpyinfo
->display
);
1547 /* Scan the modifier table to see which modifier bits the Meta and
1548 Alt keysyms are on. */
1550 int row
, col
; /* The row and column in the modifier table. */
1552 for (row
= 3; row
< 8; row
++)
1553 for (col
= 0; col
< mods
->max_keypermod
; col
++)
1556 = mods
->modifiermap
[(row
* mods
->max_keypermod
) + col
];
1558 /* Zeroes are used for filler. Skip them. */
1562 /* Are any of this keycode's keysyms a meta key? */
1566 for (code_col
= 0; code_col
< syms_per_code
; code_col
++)
1568 int sym
= syms
[((code
- min_code
) * syms_per_code
) + code_col
];
1574 dpyinfo
->meta_mod_mask
|= (1 << row
);
1579 dpyinfo
->alt_mod_mask
|= (1 << row
);
1584 dpyinfo
->hyper_mod_mask
|= (1 << row
);
1589 dpyinfo
->super_mod_mask
|= (1 << row
);
1593 /* Ignore this if it's not on the lock modifier. */
1594 if ((1 << row
) == LockMask
)
1595 dpyinfo
->shift_lock_mask
= LockMask
;
1603 /* If we couldn't find any meta keys, accept any alt keys as meta keys. */
1604 if (! dpyinfo
->meta_mod_mask
)
1606 dpyinfo
->meta_mod_mask
= dpyinfo
->alt_mod_mask
;
1607 dpyinfo
->alt_mod_mask
= 0;
1610 /* If some keys are both alt and meta,
1611 make them just meta, not alt. */
1612 if (dpyinfo
->alt_mod_mask
& dpyinfo
->meta_mod_mask
)
1614 dpyinfo
->alt_mod_mask
&= ~dpyinfo
->meta_mod_mask
;
1617 XFree ((char *) syms
);
1618 XFreeModifiermap (mods
);
1621 /* Convert between the modifier bits X uses and the modifier bits
1624 x_x_to_emacs_modifiers (dpyinfo
, state
)
1625 struct x_display_info
*dpyinfo
;
1628 return ( ((state
& (ShiftMask
| dpyinfo
->shift_lock_mask
)) ? shift_modifier
: 0)
1629 | ((state
& ControlMask
) ? ctrl_modifier
: 0)
1630 | ((state
& dpyinfo
->meta_mod_mask
) ? meta_modifier
: 0)
1631 | ((state
& dpyinfo
->alt_mod_mask
) ? alt_modifier
: 0)
1632 | ((state
& dpyinfo
->super_mod_mask
) ? super_modifier
: 0)
1633 | ((state
& dpyinfo
->hyper_mod_mask
) ? hyper_modifier
: 0));
1637 x_emacs_to_x_modifiers (dpyinfo
, state
)
1638 struct x_display_info
*dpyinfo
;
1641 return ( ((state
& alt_modifier
) ? dpyinfo
->alt_mod_mask
: 0)
1642 | ((state
& super_modifier
) ? dpyinfo
->super_mod_mask
: 0)
1643 | ((state
& hyper_modifier
) ? dpyinfo
->hyper_mod_mask
: 0)
1644 | ((state
& shift_modifier
) ? ShiftMask
: 0)
1645 | ((state
& ctrl_modifier
) ? ControlMask
: 0)
1646 | ((state
& meta_modifier
) ? dpyinfo
->meta_mod_mask
: 0));
1649 /* Mouse clicks and mouse movement. Rah. */
1651 /* Given a pixel position (PIX_X, PIX_Y) on the frame F, return
1652 glyph co-ordinates in (*X, *Y). Set *BOUNDS to the rectangle
1653 that the glyph at X, Y occupies, if BOUNDS != 0.
1654 If NOCLIP is nonzero, do not force the value into range. */
1657 pixel_to_glyph_coords (f
, pix_x
, pix_y
, x
, y
, bounds
, noclip
)
1659 register int pix_x
, pix_y
;
1660 register int *x
, *y
;
1664 /* Arrange for the division in PIXEL_TO_CHAR_COL etc. to round down
1665 even for negative values. */
1667 pix_x
-= FONT_WIDTH ((f
)->display
.x
->font
) - 1;
1669 pix_y
-= (f
)->display
.x
->line_height
- 1;
1671 pix_x
= PIXEL_TO_CHAR_COL (f
, pix_x
);
1672 pix_y
= PIXEL_TO_CHAR_ROW (f
, pix_y
);
1676 bounds
->width
= FONT_WIDTH (f
->display
.x
->font
);
1677 bounds
->height
= f
->display
.x
->line_height
;
1678 bounds
->x
= CHAR_TO_PIXEL_COL (f
, pix_x
);
1679 bounds
->y
= CHAR_TO_PIXEL_ROW (f
, pix_y
);
1686 else if (pix_x
> f
->width
)
1691 else if (pix_y
> f
->height
)
1700 glyph_to_pixel_coords (f
, x
, y
, pix_x
, pix_y
)
1703 register int *pix_x
, *pix_y
;
1705 *pix_x
= CHAR_TO_PIXEL_COL (f
, x
);
1706 *pix_y
= CHAR_TO_PIXEL_ROW (f
, y
);
1709 /* Prepare a mouse-event in *RESULT for placement in the input queue.
1711 If the event is a button press, then note that we have grabbed
1715 construct_mouse_click (result
, event
, f
)
1716 struct input_event
*result
;
1717 XButtonEvent
*event
;
1720 /* Make the event type no_event; we'll change that when we decide
1722 result
->kind
= mouse_click
;
1723 result
->code
= event
->button
- Button1
;
1724 result
->timestamp
= event
->time
;
1725 result
->modifiers
= (x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f
),
1727 | (event
->type
== ButtonRelease
1735 pixel_to_glyph_coords (f
, event
->x
, event
->y
, &column
, &row
, NULL
, 0);
1736 XSETFASTINT (result
->x
, column
);
1737 XSETFASTINT (result
->y
, row
);
1739 XSETINT (result
->x
, event
->x
);
1740 XSETINT (result
->y
, event
->y
);
1741 XSETFRAME (result
->frame_or_window
, f
);
1745 /* Prepare a menu-event in *RESULT for placement in the input queue. */
1748 construct_menu_click (result
, event
, f
)
1749 struct input_event
*result
;
1750 XButtonEvent
*event
;
1753 /* Make the event type no_event; we'll change that when we decide
1755 result
->kind
= mouse_click
;
1756 XSETINT (result
->code
, event
->button
- Button1
);
1757 result
->timestamp
= event
->time
;
1758 result
->modifiers
= (x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f
),
1760 | (event
->type
== ButtonRelease
1764 XSETINT (result
->x
, event
->x
);
1765 XSETINT (result
->y
, -1);
1766 XSETFRAME (result
->frame_or_window
, f
);
1769 /* Function to report a mouse movement to the mainstream Emacs code.
1770 The input handler calls this.
1772 We have received a mouse movement event, which is given in *event.
1773 If the mouse is over a different glyph than it was last time, tell
1774 the mainstream emacs code by setting mouse_moved. If not, ask for
1775 another motion event, so we can check again the next time it moves. */
1778 note_mouse_movement (frame
, event
)
1780 XMotionEvent
*event
;
1783 last_mouse_movement_time
= event
->time
;
1785 if (event
->window
!= FRAME_X_WINDOW (frame
))
1788 last_mouse_scroll_bar
= Qnil
;
1790 note_mouse_highlight (frame
, -1, -1);
1792 /* Ask for another mouse motion event. */
1795 Window dummy_window
;
1797 XQueryPointer (event
->display
, FRAME_X_WINDOW (frame
),
1798 &dummy_window
, &dummy_window
,
1799 &dummy
, &dummy
, &dummy
, &dummy
,
1800 (unsigned int *) &dummy
);
1804 /* Has the mouse moved off the glyph it was on at the last sighting? */
1805 else if (event
->x
< last_mouse_glyph
.x
1806 || event
->x
>= last_mouse_glyph
.x
+ last_mouse_glyph
.width
1807 || event
->y
< last_mouse_glyph
.y
1808 || event
->y
>= last_mouse_glyph
.y
+ last_mouse_glyph
.height
)
1811 last_mouse_scroll_bar
= Qnil
;
1813 note_mouse_highlight (frame
, event
->x
, event
->y
);
1815 /* Ask for another mouse motion event. */
1818 Window dummy_window
;
1820 XQueryPointer (event
->display
, FRAME_X_WINDOW (frame
),
1821 &dummy_window
, &dummy_window
,
1822 &dummy
, &dummy
, &dummy
, &dummy
,
1823 (unsigned int *) &dummy
);
1828 /* It's on the same glyph. Call XQueryPointer so we'll get an
1829 event the next time the mouse moves and we can see if it's
1830 *still* on the same glyph. */
1832 Window dummy_window
;
1834 XQueryPointer (event
->display
, FRAME_X_WINDOW (frame
),
1835 &dummy_window
, &dummy_window
,
1836 &dummy
, &dummy
, &dummy
, &dummy
,
1837 (unsigned int *) &dummy
);
1841 /* This is used for debugging, to turn off note_mouse_highlight. */
1842 static int disable_mouse_highlight
;
1844 /* Take proper action when the mouse has moved to position X, Y on frame F
1845 as regards highlighting characters that have mouse-face properties.
1846 Also dehighlighting chars where the mouse was before.
1847 X and Y can be negative or out of range. */
1850 note_mouse_highlight (f
, x
, y
)
1853 int row
, column
, portion
;
1854 XRectangle new_glyph
;
1858 if (disable_mouse_highlight
)
1861 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_x
= x
;
1862 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_y
= y
;
1863 FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
= f
;
1865 if (FRAME_X_DISPLAY_INFO (f
)->mouse_face_defer
)
1870 FRAME_X_DISPLAY_INFO (f
)->mouse_face_deferred_gc
= 1;
1874 /* Find out which glyph the mouse is on. */
1875 pixel_to_glyph_coords (f
, x
, y
, &column
, &row
,
1876 &new_glyph
, FRAME_X_DISPLAY_INFO (f
)->grabbed
);
1878 /* Which window is that in? */
1879 window
= window_from_coordinates (f
, column
, row
, &portion
);
1880 w
= XWINDOW (window
);
1882 /* If we were displaying active text in another window, clear that. */
1883 if (! EQ (window
, FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
))
1884 clear_mouse_face (FRAME_X_DISPLAY_INFO (f
));
1886 /* Are we in a window whose display is up to date?
1887 And verify the buffer's text has not changed. */
1888 if (WINDOWP (window
) && portion
== 0 && row
>= 0 && column
>= 0
1889 && row
< FRAME_HEIGHT (f
) && column
< FRAME_WIDTH (f
)
1890 && EQ (w
->window_end_valid
, w
->buffer
)
1891 && w
->last_modified
== BUF_MODIFF (XBUFFER (w
->buffer
)))
1893 int *ptr
= FRAME_CURRENT_GLYPHS (f
)->charstarts
[row
];
1896 /* Find which buffer position the mouse corresponds to. */
1897 for (i
= column
; i
>= 0; i
--)
1901 /* Is it outside the displayed active region (if any)? */
1903 clear_mouse_face (FRAME_X_DISPLAY_INFO (f
));
1904 else if (! (EQ (window
, FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
)
1905 && row
>= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
1906 && row
<= FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
1907 && (row
> FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
1908 || column
>= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
)
1909 && (row
< FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
1910 || column
< FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
1911 || FRAME_X_DISPLAY_INFO (f
)->mouse_face_past_end
)))
1913 Lisp_Object mouse_face
, overlay
, position
;
1914 Lisp_Object
*overlay_vec
;
1915 int len
, noverlays
, ignor1
;
1916 struct buffer
*obuf
;
1919 /* If we get an out-of-range value, return now; avoid an error. */
1920 if (pos
> BUF_Z (XBUFFER (w
->buffer
)))
1923 /* Make the window's buffer temporarily current for
1924 overlays_at and compute_char_face. */
1925 obuf
= current_buffer
;
1926 current_buffer
= XBUFFER (w
->buffer
);
1932 /* Yes. Clear the display of the old active region, if any. */
1933 clear_mouse_face (FRAME_X_DISPLAY_INFO (f
));
1935 /* Is this char mouse-active? */
1936 XSETINT (position
, pos
);
1939 overlay_vec
= (Lisp_Object
*) xmalloc (len
* sizeof (Lisp_Object
));
1941 /* Put all the overlays we want in a vector in overlay_vec.
1942 Store the length in len. */
1943 noverlays
= overlays_at (XINT (pos
), 1, &overlay_vec
, &len
,
1945 noverlays
= sort_overlays (overlay_vec
, noverlays
, w
);
1947 /* Find the highest priority overlay that has a mouse-face prop. */
1949 for (i
= 0; i
< noverlays
; i
++)
1951 mouse_face
= Foverlay_get (overlay_vec
[i
], Qmouse_face
);
1952 if (!NILP (mouse_face
))
1954 overlay
= overlay_vec
[i
];
1959 /* If no overlay applies, get a text property. */
1961 mouse_face
= Fget_text_property (position
, Qmouse_face
, w
->buffer
);
1963 /* Handle the overlay case. */
1964 if (! NILP (overlay
))
1966 /* Find the range of text around this char that
1967 should be active. */
1968 Lisp_Object before
, after
;
1971 before
= Foverlay_start (overlay
);
1972 after
= Foverlay_end (overlay
);
1973 /* Record this as the current active region. */
1974 fast_find_position (window
, before
,
1975 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
,
1976 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
);
1977 FRAME_X_DISPLAY_INFO (f
)->mouse_face_past_end
1978 = !fast_find_position (window
, after
,
1979 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
,
1980 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
);
1981 FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
= window
;
1982 FRAME_X_DISPLAY_INFO (f
)->mouse_face_face_id
1983 = compute_char_face (f
, w
, pos
, 0, 0,
1984 &ignore
, pos
+ 1, 1);
1986 /* Display it as active. */
1987 show_mouse_face (FRAME_X_DISPLAY_INFO (f
), 1);
1989 /* Handle the text property case. */
1990 else if (! NILP (mouse_face
))
1992 /* Find the range of text around this char that
1993 should be active. */
1994 Lisp_Object before
, after
, beginning
, end
;
1997 beginning
= Fmarker_position (w
->start
);
1998 XSETINT (end
, (BUF_Z (XBUFFER (w
->buffer
))
1999 - XFASTINT (w
->window_end_pos
)));
2001 = Fprevious_single_property_change (make_number (pos
+ 1),
2003 w
->buffer
, beginning
);
2005 = Fnext_single_property_change (position
, Qmouse_face
,
2007 /* Record this as the current active region. */
2008 fast_find_position (window
, before
,
2009 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
,
2010 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
);
2011 FRAME_X_DISPLAY_INFO (f
)->mouse_face_past_end
2012 = !fast_find_position (window
, after
,
2013 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
,
2014 &FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
);
2015 FRAME_X_DISPLAY_INFO (f
)->mouse_face_window
= window
;
2016 FRAME_X_DISPLAY_INFO (f
)->mouse_face_face_id
2017 = compute_char_face (f
, w
, pos
, 0, 0,
2018 &ignore
, pos
+ 1, 1);
2020 /* Display it as active. */
2021 show_mouse_face (FRAME_X_DISPLAY_INFO (f
), 1);
2025 current_buffer
= obuf
;
2030 /* Find the row and column of position POS in window WINDOW.
2031 Store them in *COLUMNP and *ROWP.
2032 This assumes display in WINDOW is up to date.
2033 If POS is above start of WINDOW, return coords
2034 of start of first screen line.
2035 If POS is after end of WINDOW, return coords of end of last screen line.
2037 Value is 1 if POS is in range, 0 if it was off screen. */
2040 fast_find_position (window
, pos
, columnp
, rowp
)
2043 int *columnp
, *rowp
;
2045 struct window
*w
= XWINDOW (window
);
2046 FRAME_PTR f
= XFRAME (WINDOW_FRAME (w
));
2051 int height
= XFASTINT (w
->height
) - ! MINI_WINDOW_P (w
);
2052 int width
= window_internal_width (w
);
2055 int maybe_next_line
= 0;
2057 /* Find the right row. */
2062 int linestart
= FRAME_CURRENT_GLYPHS (f
)->charstarts
[top
+ i
][left
];
2063 if (linestart
> pos
)
2065 /* If the position sought is the end of the buffer,
2066 don't include the blank lines at the bottom of the window. */
2067 if (linestart
== pos
&& pos
== BUF_ZV (XBUFFER (w
->buffer
)))
2069 maybe_next_line
= 1;
2076 /* Find the right column with in it. */
2077 charstarts
= FRAME_CURRENT_GLYPHS (f
)->charstarts
[top
+ row
];
2079 for (i
= 0; i
< width
; i
++)
2081 if (charstarts
[left
+ i
] == pos
)
2084 *columnp
= i
+ left
;
2087 else if (charstarts
[left
+ i
] > pos
)
2089 else if (charstarts
[left
+ i
] > 0)
2093 /* If we're looking for the end of the buffer,
2094 and we didn't find it in the line we scanned,
2095 use the start of the following line. */
2096 if (maybe_next_line
)
2107 /* Display the active region described by mouse_face_*
2108 in its mouse-face if HL > 0, in its normal face if HL = 0. */
2111 show_mouse_face (dpyinfo
, hl
)
2112 struct x_display_info
*dpyinfo
;
2115 struct window
*w
= XWINDOW (dpyinfo
->mouse_face_window
);
2116 int width
= window_internal_width (w
);
2117 FRAME_PTR f
= XFRAME (WINDOW_FRAME (w
));
2120 int old_curs_x
= curs_x
;
2121 int old_curs_y
= curs_y
;
2123 /* Set these variables temporarily
2124 so that if we have to turn the cursor off and on again
2125 we will put it back at the same place. */
2126 curs_x
= f
->phys_cursor_x
;
2127 curs_y
= f
->phys_cursor_y
;
2129 for (i
= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
;
2130 i
<= FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
; i
++)
2132 int column
= (i
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
2133 ? FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
2135 int endcolumn
= (i
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
2136 ? FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
2138 endcolumn
= min (endcolumn
, FRAME_CURRENT_GLYPHS (f
)->used
[i
]);
2140 /* If the cursor's in the text we are about to rewrite,
2141 turn the cursor off. */
2143 && curs_x
>= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
- 1
2144 && curs_x
<= FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
)
2146 x_display_cursor (f
, 0);
2151 CHAR_TO_PIXEL_COL (f
, column
),
2152 CHAR_TO_PIXEL_ROW (f
, i
),
2153 FRAME_CURRENT_GLYPHS (f
)->glyphs
[i
] + column
,
2155 /* Highlight with mouse face if hl > 0. */
2159 /* If we turned the cursor off, turn it back on. */
2161 x_display_cursor (f
, 1);
2163 curs_x
= old_curs_x
;
2164 curs_y
= old_curs_y
;
2166 /* Change the mouse cursor according to the value of HL. */
2168 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2169 f
->display
.x
->cross_cursor
);
2171 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2172 f
->display
.x
->text_cursor
);
2175 /* Clear out the mouse-highlighted active region.
2176 Redraw it unhighlighted first. */
2179 clear_mouse_face (dpyinfo
)
2180 struct x_display_info
*dpyinfo
;
2182 if (! NILP (dpyinfo
->mouse_face_window
))
2183 show_mouse_face (dpyinfo
, 0);
2185 dpyinfo
->mouse_face_beg_row
= dpyinfo
->mouse_face_beg_col
= -1;
2186 dpyinfo
->mouse_face_end_row
= dpyinfo
->mouse_face_end_col
= -1;
2187 dpyinfo
->mouse_face_window
= Qnil
;
2190 static struct scroll_bar
*x_window_to_scroll_bar ();
2191 static void x_scroll_bar_report_motion ();
2193 /* Return the current position of the mouse.
2195 If the mouse movement started in a scroll bar, set *f, *bar_window,
2196 and *part to the frame, window, and scroll bar part that the mouse
2197 is over. Set *x and *y to the portion and whole of the mouse's
2198 position on the scroll bar.
2200 If the mouse movement started elsewhere, set *f to the frame the
2201 mouse is on, *bar_window to nil, and *x and *y to the character cell
2204 Set *time to the server timestamp for the time at which the mouse
2205 was at this position.
2207 Don't store anything if we don't have a valid set of values to report.
2209 This clears the mouse_moved flag, so we can wait for the next mouse
2210 movement. This also calls XQueryPointer, which will cause the
2211 server to give us another MotionNotify when the mouse moves
2215 XTmouse_position (fp
, bar_window
, part
, x
, y
, time
)
2217 Lisp_Object
*bar_window
;
2218 enum scroll_bar_part
*part
;
2220 unsigned long *time
;
2226 if (! NILP (last_mouse_scroll_bar
))
2227 x_scroll_bar_report_motion (fp
, bar_window
, part
, x
, y
, time
);
2233 Window dummy_window
;
2237 last_mouse_scroll_bar
= Qnil
;
2239 /* Figure out which root window we're on. */
2240 XQueryPointer (FRAME_X_DISPLAY (*fp
),
2241 DefaultRootWindow (FRAME_X_DISPLAY (*fp
)),
2243 /* The root window which contains the pointer. */
2246 /* Trash which we can't trust if the pointer is on
2247 a different screen. */
2250 /* The position on that root window. */
2253 /* More trash we can't trust. */
2256 /* Modifier keys and pointer buttons, about which
2258 (unsigned int *) &dummy
);
2260 /* Now we have a position on the root; find the innermost window
2261 containing the pointer. */
2265 int parent_x
, parent_y
;
2269 if (FRAME_X_DISPLAY_INFO (*fp
)->grabbed
&& last_mouse_frame
2270 && FRAME_LIVE_P (last_mouse_frame
))
2272 /* If mouse was grabbed on a frame, give coords for that frame
2273 even if the mouse is now outside it. */
2274 XTranslateCoordinates (FRAME_X_DISPLAY (*fp
),
2276 /* From-window, to-window. */
2277 root
, FRAME_X_WINDOW (last_mouse_frame
),
2279 /* From-position, to-position. */
2280 root_x
, root_y
, &win_x
, &win_y
,
2284 f1
= last_mouse_frame
;
2290 XTranslateCoordinates (FRAME_X_DISPLAY (*fp
),
2292 /* From-window, to-window. */
2295 /* From-position, to-position. */
2296 root_x
, root_y
, &win_x
, &win_y
,
2309 /* Now we know that:
2310 win is the innermost window containing the pointer
2311 (XTC says it has no child containing the pointer),
2312 win_x and win_y are the pointer's position in it
2313 (XTC did this the last time through), and
2314 parent_x and parent_y are the pointer's position in win's parent.
2315 (They are what win_x and win_y were when win was child.
2316 If win is the root window, it has no parent, and
2317 parent_{x,y} are invalid, but that's okay, because we'll
2318 never use them in that case.) */
2320 /* Is win one of our frames? */
2321 f1
= x_any_window_to_frame (win
);
2324 /* If not, is it one of our scroll bars? */
2327 struct scroll_bar
*bar
= x_window_to_scroll_bar (win
);
2331 f1
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2339 int ignore1
, ignore2
;
2341 /* Ok, we found a frame. Store all the values. */
2343 pixel_to_glyph_coords (f1
, win_x
, win_y
, &ignore1
, &ignore2
,
2345 FRAME_X_DISPLAY_INFO (f1
)->grabbed
);
2350 XSETINT (*x
, win_x
);
2351 XSETINT (*y
, win_y
);
2352 *time
= last_mouse_movement_time
;
2360 /* Scroll bar support. */
2362 /* Given an X window ID, find the struct scroll_bar which manages it.
2363 This can be called in GC, so we have to make sure to strip off mark
2365 static struct scroll_bar
*
2366 x_window_to_scroll_bar (window_id
)
2369 Lisp_Object tail
, frame
;
2371 for (tail
= Vframe_list
;
2372 XGCTYPE (tail
) == Lisp_Cons
;
2373 tail
= XCONS (tail
)->cdr
)
2375 Lisp_Object frame
, bar
, condemned
;
2377 frame
= XCONS (tail
)->car
;
2378 /* All elements of Vframe_list should be frames. */
2379 if (! GC_FRAMEP (frame
))
2382 /* Scan this frame's scroll bar list for a scroll bar with the
2384 condemned
= FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame
));
2385 for (bar
= FRAME_SCROLL_BARS (XFRAME (frame
));
2386 /* This trick allows us to search both the ordinary and
2387 condemned scroll bar lists with one loop. */
2388 ! GC_NILP (bar
) || (bar
= condemned
,
2391 bar
= XSCROLL_BAR (bar
)->next
)
2392 if (SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
)) == window_id
)
2393 return XSCROLL_BAR (bar
);
2399 /* Open a new X window to serve as a scroll bar, and return the
2400 scroll bar vector for it. */
2401 static struct scroll_bar
*
2402 x_scroll_bar_create (window
, top
, left
, width
, height
)
2403 struct window
*window
;
2404 int top
, left
, width
, height
;
2406 FRAME_PTR f
= XFRAME (WINDOW_FRAME (window
));
2407 struct scroll_bar
*bar
2408 = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE
), Qnil
));
2413 XSetWindowAttributes a
;
2415 a
.background_pixel
= f
->display
.x
->background_pixel
;
2416 a
.event_mask
= (ButtonPressMask
| ButtonReleaseMask
2417 | ButtonMotionMask
| PointerMotionHintMask
2419 a
.cursor
= FRAME_X_DISPLAY_INFO (f
)->vertical_scroll_bar_cursor
;
2421 mask
= (CWBackPixel
| CWEventMask
| CWCursor
);
2426 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2427 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2428 XtSetArg (al
[ac
], XtNwidth
, width
); ac
++;
2429 XtSetArg (al
[ac
], XtNheight
, height
); ac
++;
2430 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2431 sb_widget
= XtCreateManagedWidget ("box",
2433 f
->display
.x
->edit_widget
, al
, ac
);
2434 SET_SCROLL_BAR_X_WINDOW
2435 (bar
, sb_widget
->core
.window
);
2437 SET_SCROLL_BAR_X_WINDOW
2439 XCreateWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2441 /* Position and size of scroll bar. */
2442 left
, top
, width
, height
,
2444 /* Border width, depth, class, and visual. */
2445 0, CopyFromParent
, CopyFromParent
, CopyFromParent
,
2451 XSETWINDOW (bar
->window
, window
);
2452 XSETINT (bar
->top
, top
);
2453 XSETINT (bar
->left
, left
);
2454 XSETINT (bar
->width
, width
);
2455 XSETINT (bar
->height
, height
);
2456 XSETINT (bar
->start
, 0);
2457 XSETINT (bar
->end
, 0);
2458 bar
->dragging
= Qnil
;
2460 /* Add bar to its frame's list of scroll bars. */
2461 bar
->next
= FRAME_SCROLL_BARS (f
);
2463 XSETVECTOR (FRAME_SCROLL_BARS (f
), bar
);
2464 if (! NILP (bar
->next
))
2465 XSETVECTOR (XSCROLL_BAR (bar
->next
)->prev
, bar
);
2467 XMapRaised (FRAME_X_DISPLAY (f
), SCROLL_BAR_X_WINDOW (bar
));
2474 /* Draw BAR's handle in the proper position.
2475 If the handle is already drawn from START to END, don't bother
2476 redrawing it, unless REBUILD is non-zero; in that case, always
2477 redraw it. (REBUILD is handy for drawing the handle after expose
2480 Normally, we want to constrain the start and end of the handle to
2481 fit inside its rectangle, but if the user is dragging the scroll bar
2482 handle, we want to let them drag it down all the way, so that the
2483 bar's top is as far down as it goes; otherwise, there's no way to
2484 move to the very end of the buffer. */
2486 x_scroll_bar_set_handle (bar
, start
, end
, rebuild
)
2487 struct scroll_bar
*bar
;
2491 int dragging
= ! NILP (bar
->dragging
);
2492 Window w
= SCROLL_BAR_X_WINDOW (bar
);
2493 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2494 GC gc
= f
->display
.x
->normal_gc
;
2496 /* If the display is already accurate, do nothing. */
2498 && start
== XINT (bar
->start
)
2499 && end
== XINT (bar
->end
))
2505 int inside_width
= VERTICAL_SCROLL_BAR_INSIDE_WIDTH (XINT (bar
->width
));
2506 int inside_height
= VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (XINT (bar
->height
));
2507 int top_range
= VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar
->height
));
2509 /* Make sure the values are reasonable, and try to preserve
2510 the distance between start and end. */
2512 int length
= end
- start
;
2516 else if (start
> top_range
)
2518 end
= start
+ length
;
2522 else if (end
> top_range
&& ! dragging
)
2526 /* Store the adjusted setting in the scroll bar. */
2527 XSETINT (bar
->start
, start
);
2528 XSETINT (bar
->end
, end
);
2530 /* Clip the end position, just for display. */
2531 if (end
> top_range
)
2534 /* Draw bottom positions VERTICAL_SCROLL_BAR_MIN_HANDLE pixels
2535 below top positions, to make sure the handle is always at least
2536 that many pixels tall. */
2537 end
+= VERTICAL_SCROLL_BAR_MIN_HANDLE
;
2539 /* Draw the empty space above the handle. Note that we can't clear
2540 zero-height areas; that means "clear to end of window." */
2542 XClearArea (FRAME_X_DISPLAY (f
), w
,
2544 /* x, y, width, height, and exposures. */
2545 VERTICAL_SCROLL_BAR_LEFT_BORDER
,
2546 VERTICAL_SCROLL_BAR_TOP_BORDER
,
2547 inside_width
, start
,
2550 /* Draw the handle itself. */
2551 XFillRectangle (FRAME_X_DISPLAY (f
), w
, gc
,
2553 /* x, y, width, height */
2554 VERTICAL_SCROLL_BAR_LEFT_BORDER
,
2555 VERTICAL_SCROLL_BAR_TOP_BORDER
+ start
,
2556 inside_width
, end
- start
);
2559 /* Draw the empty space below the handle. Note that we can't
2560 clear zero-height areas; that means "clear to end of window." */
2561 if (end
< inside_height
)
2562 XClearArea (FRAME_X_DISPLAY (f
), w
,
2564 /* x, y, width, height, and exposures. */
2565 VERTICAL_SCROLL_BAR_LEFT_BORDER
,
2566 VERTICAL_SCROLL_BAR_TOP_BORDER
+ end
,
2567 inside_width
, inside_height
- end
,
2575 /* Move a scroll bar around on the screen, to accommodate changing
2576 window configurations. */
2578 x_scroll_bar_move (bar
, top
, left
, width
, height
)
2579 struct scroll_bar
*bar
;
2580 int top
, left
, width
, height
;
2582 Window w
= SCROLL_BAR_X_WINDOW (bar
);
2583 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2589 unsigned int mask
= 0;
2596 if (left
!= XINT (bar
->left
)) mask
|= CWX
;
2597 if (top
!= XINT (bar
->top
)) mask
|= CWY
;
2598 if (width
!= XINT (bar
->width
)) mask
|= CWWidth
;
2599 if (height
!= XINT (bar
->height
)) mask
|= CWHeight
;
2602 XConfigureWindow (FRAME_X_DISPLAY (f
), SCROLL_BAR_X_WINDOW (bar
),
2606 XSETINT (bar
->left
, left
);
2607 XSETINT (bar
->top
, top
);
2608 XSETINT (bar
->width
, width
);
2609 XSETINT (bar
->height
, height
);
2614 /* Destroy the X window for BAR, and set its Emacs window's scroll bar
2617 x_scroll_bar_remove (bar
)
2618 struct scroll_bar
*bar
;
2620 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2624 /* Destroy the window. */
2625 XDestroyWindow (FRAME_X_DISPLAY (f
), SCROLL_BAR_X_WINDOW (bar
));
2627 /* Disassociate this scroll bar from its window. */
2628 XWINDOW (bar
->window
)->vertical_scroll_bar
= Qnil
;
2633 /* Set the handle of the vertical scroll bar for WINDOW to indicate
2634 that we are displaying PORTION characters out of a total of WHOLE
2635 characters, starting at POSITION. If WINDOW has no scroll bar,
2638 XTset_vertical_scroll_bar (window
, portion
, whole
, position
)
2639 struct window
*window
;
2640 int portion
, whole
, position
;
2642 FRAME_PTR f
= XFRAME (WINDOW_FRAME (window
));
2643 int top
= XINT (window
->top
);
2644 int left
= WINDOW_VERTICAL_SCROLL_BAR_COLUMN (window
);
2645 int height
= WINDOW_VERTICAL_SCROLL_BAR_HEIGHT (window
);
2647 /* Where should this scroll bar be, pixelwise? */
2648 int pixel_top
= CHAR_TO_PIXEL_ROW (f
, top
);
2649 int pixel_left
= CHAR_TO_PIXEL_COL (f
, left
);
2651 = (FRAME_SCROLL_BAR_PIXEL_WIDTH (f
) > 0
2652 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f
)
2653 : (FRAME_SCROLL_BAR_COLS (f
) * FONT_WIDTH (f
->display
.x
->font
)));
2654 int pixel_height
= VERTICAL_SCROLL_BAR_PIXEL_HEIGHT (f
, height
);
2656 struct scroll_bar
*bar
;
2658 /* Does the scroll bar exist yet? */
2659 if (NILP (window
->vertical_scroll_bar
))
2660 bar
= x_scroll_bar_create (window
,
2661 pixel_top
, pixel_left
,
2662 pixel_width
, pixel_height
);
2665 /* It may just need to be moved and resized. */
2666 bar
= XSCROLL_BAR (window
->vertical_scroll_bar
);
2667 x_scroll_bar_move (bar
, pixel_top
, pixel_left
, pixel_width
, pixel_height
);
2670 /* Set the scroll bar's current state, unless we're currently being
2672 if (NILP (bar
->dragging
))
2674 int top_range
= VERTICAL_SCROLL_BAR_TOP_RANGE (pixel_height
);
2677 x_scroll_bar_set_handle (bar
, 0, top_range
, 0);
2680 int start
= ((double) position
* top_range
) / whole
;
2681 int end
= ((double) (position
+ portion
) * top_range
) / whole
;
2683 x_scroll_bar_set_handle (bar
, start
, end
, 0);
2687 XSETVECTOR (window
->vertical_scroll_bar
, bar
);
2691 /* The following three hooks are used when we're doing a thorough
2692 redisplay of the frame. We don't explicitly know which scroll bars
2693 are going to be deleted, because keeping track of when windows go
2694 away is a real pain - "Can you say set-window-configuration, boys
2695 and girls?" Instead, we just assert at the beginning of redisplay
2696 that *all* scroll bars are to be removed, and then save a scroll bar
2697 from the fiery pit when we actually redisplay its window. */
2699 /* Arrange for all scroll bars on FRAME to be removed at the next call
2700 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
2701 `*redeem_scroll_bar_hook' is applied to its window before the judgement. */
2703 XTcondemn_scroll_bars (frame
)
2706 /* The condemned list should be empty at this point; if it's not,
2707 then the rest of Emacs isn't using the condemn/redeem/judge
2708 protocol correctly. */
2709 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame
)))
2712 /* Move them all to the "condemned" list. */
2713 FRAME_CONDEMNED_SCROLL_BARS (frame
) = FRAME_SCROLL_BARS (frame
);
2714 FRAME_SCROLL_BARS (frame
) = Qnil
;
2717 /* Unmark WINDOW's scroll bar for deletion in this judgement cycle.
2718 Note that WINDOW isn't necessarily condemned at all. */
2720 XTredeem_scroll_bar (window
)
2721 struct window
*window
;
2723 struct scroll_bar
*bar
;
2725 /* We can't redeem this window's scroll bar if it doesn't have one. */
2726 if (NILP (window
->vertical_scroll_bar
))
2729 bar
= XSCROLL_BAR (window
->vertical_scroll_bar
);
2731 /* Unlink it from the condemned list. */
2733 FRAME_PTR f
= XFRAME (WINDOW_FRAME (window
));
2735 if (NILP (bar
->prev
))
2737 /* If the prev pointer is nil, it must be the first in one of
2739 if (EQ (FRAME_SCROLL_BARS (f
), window
->vertical_scroll_bar
))
2740 /* It's not condemned. Everything's fine. */
2742 else if (EQ (FRAME_CONDEMNED_SCROLL_BARS (f
),
2743 window
->vertical_scroll_bar
))
2744 FRAME_CONDEMNED_SCROLL_BARS (f
) = bar
->next
;
2746 /* If its prev pointer is nil, it must be at the front of
2747 one or the other! */
2751 XSCROLL_BAR (bar
->prev
)->next
= bar
->next
;
2753 if (! NILP (bar
->next
))
2754 XSCROLL_BAR (bar
->next
)->prev
= bar
->prev
;
2756 bar
->next
= FRAME_SCROLL_BARS (f
);
2758 XSETVECTOR (FRAME_SCROLL_BARS (f
), bar
);
2759 if (! NILP (bar
->next
))
2760 XSETVECTOR (XSCROLL_BAR (bar
->next
)->prev
, bar
);
2764 /* Remove all scroll bars on FRAME that haven't been saved since the
2765 last call to `*condemn_scroll_bars_hook'. */
2767 XTjudge_scroll_bars (f
)
2770 Lisp_Object bar
, next
;
2772 bar
= FRAME_CONDEMNED_SCROLL_BARS (f
);
2774 /* Clear out the condemned list now so we won't try to process any
2775 more events on the hapless scroll bars. */
2776 FRAME_CONDEMNED_SCROLL_BARS (f
) = Qnil
;
2778 for (; ! NILP (bar
); bar
= next
)
2780 struct scroll_bar
*b
= XSCROLL_BAR (bar
);
2782 x_scroll_bar_remove (b
);
2785 b
->next
= b
->prev
= Qnil
;
2788 /* Now there should be no references to the condemned scroll bars,
2789 and they should get garbage-collected. */
2793 /* Handle an Expose or GraphicsExpose event on a scroll bar.
2795 This may be called from a signal handler, so we have to ignore GC
2798 x_scroll_bar_expose (bar
, event
)
2799 struct scroll_bar
*bar
;
2802 Window w
= SCROLL_BAR_X_WINDOW (bar
);
2803 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2804 GC gc
= f
->display
.x
->normal_gc
;
2808 x_scroll_bar_set_handle (bar
, XINT (bar
->start
), XINT (bar
->end
), 1);
2810 /* Draw a one-pixel border just inside the edges of the scroll bar. */
2811 XDrawRectangle (FRAME_X_DISPLAY (f
), w
, gc
,
2813 /* x, y, width, height */
2814 0, 0, XINT (bar
->width
) - 1, XINT (bar
->height
) - 1);
2819 /* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind
2820 is set to something other than no_event, it is enqueued.
2822 This may be called from a signal handler, so we have to ignore GC
2825 x_scroll_bar_handle_click (bar
, event
, emacs_event
)
2826 struct scroll_bar
*bar
;
2828 struct input_event
*emacs_event
;
2830 if (! GC_WINDOWP (bar
->window
))
2833 emacs_event
->kind
= scroll_bar_click
;
2834 emacs_event
->code
= event
->xbutton
.button
- Button1
;
2835 emacs_event
->modifiers
2836 = (x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO
2837 (XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)))),
2838 event
->xbutton
.state
)
2839 | (event
->type
== ButtonRelease
2842 emacs_event
->frame_or_window
= bar
->window
;
2843 emacs_event
->timestamp
= event
->xbutton
.time
;
2846 = VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (XINT (bar
->height
));
2848 = VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar
->height
));
2849 int y
= event
->xbutton
.y
- VERTICAL_SCROLL_BAR_TOP_BORDER
;
2852 if (y
> top_range
) y
= top_range
;
2854 if (y
< XINT (bar
->start
))
2855 emacs_event
->part
= scroll_bar_above_handle
;
2856 else if (y
< XINT (bar
->end
) + VERTICAL_SCROLL_BAR_MIN_HANDLE
)
2857 emacs_event
->part
= scroll_bar_handle
;
2859 emacs_event
->part
= scroll_bar_below_handle
;
2861 /* Just because the user has clicked on the handle doesn't mean
2862 they want to drag it. Lisp code needs to be able to decide
2863 whether or not we're dragging. */
2865 /* If the user has just clicked on the handle, record where they're
2867 if (event
->type
== ButtonPress
2868 && emacs_event
->part
== scroll_bar_handle
)
2869 XSETINT (bar
->dragging
, y
- XINT (bar
->start
));
2872 /* If the user has released the handle, set it to its final position. */
2873 if (event
->type
== ButtonRelease
2874 && ! NILP (bar
->dragging
))
2876 int new_start
= y
- XINT (bar
->dragging
);
2877 int new_end
= new_start
+ (XINT (bar
->end
) - XINT (bar
->start
));
2879 x_scroll_bar_set_handle (bar
, new_start
, new_end
, 0);
2880 bar
->dragging
= Qnil
;
2883 /* Same deal here as the other #if 0. */
2885 /* Clicks on the handle are always reported as occurring at the top of
2887 if (emacs_event
->part
== scroll_bar_handle
)
2888 emacs_event
->x
= bar
->start
;
2890 XSETINT (emacs_event
->x
, y
);
2892 XSETINT (emacs_event
->x
, y
);
2895 XSETINT (emacs_event
->y
, top_range
);
2899 /* Handle some mouse motion while someone is dragging the scroll bar.
2901 This may be called from a signal handler, so we have to ignore GC
2904 x_scroll_bar_note_movement (bar
, event
)
2905 struct scroll_bar
*bar
;
2908 last_mouse_movement_time
= event
->xmotion
.time
;
2911 XSETVECTOR (last_mouse_scroll_bar
, bar
);
2913 /* If we're dragging the bar, display it. */
2914 if (! GC_NILP (bar
->dragging
))
2916 /* Where should the handle be now? */
2917 int new_start
= event
->xmotion
.y
- XINT (bar
->dragging
);
2919 if (new_start
!= XINT (bar
->start
))
2921 int new_end
= new_start
+ (XINT (bar
->end
) - XINT (bar
->start
));
2923 x_scroll_bar_set_handle (bar
, new_start
, new_end
, 0);
2927 /* Call XQueryPointer so we'll get an event the next time the mouse
2928 moves and we can see *still* on the same position. */
2931 Window dummy_window
;
2933 XQueryPointer (event
->xmotion
.display
, event
->xmotion
.window
,
2934 &dummy_window
, &dummy_window
,
2935 &dummy
, &dummy
, &dummy
, &dummy
,
2936 (unsigned int *) &dummy
);
2940 /* Return information to the user about the current position of the mouse
2941 on the scroll bar. */
2943 x_scroll_bar_report_motion (fp
, bar_window
, part
, x
, y
, time
)
2945 Lisp_Object
*bar_window
;
2946 enum scroll_bar_part
*part
;
2948 unsigned long *time
;
2950 struct scroll_bar
*bar
= XSCROLL_BAR (last_mouse_scroll_bar
);
2951 Window w
= SCROLL_BAR_X_WINDOW (bar
);
2952 FRAME_PTR f
= XFRAME (WINDOW_FRAME (XWINDOW (bar
->window
)));
2954 Window dummy_window
;
2956 unsigned int dummy_mask
;
2960 /* Get the mouse's position relative to the scroll bar window, and
2962 if (! XQueryPointer (FRAME_X_DISPLAY (f
), w
,
2964 /* Root, child, root x and root y. */
2965 &dummy_window
, &dummy_window
,
2966 &dummy_coord
, &dummy_coord
,
2968 /* Position relative to scroll bar. */
2971 /* Mouse buttons and modifier keys. */
2977 = VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (XINT (bar
->height
));
2979 = VERTICAL_SCROLL_BAR_TOP_RANGE (XINT (bar
->height
));
2981 win_y
-= VERTICAL_SCROLL_BAR_TOP_BORDER
;
2983 if (! NILP (bar
->dragging
))
2984 win_y
-= XINT (bar
->dragging
);
2988 if (win_y
> top_range
)
2992 *bar_window
= bar
->window
;
2994 if (! NILP (bar
->dragging
))
2995 *part
= scroll_bar_handle
;
2996 else if (win_y
< XINT (bar
->start
))
2997 *part
= scroll_bar_above_handle
;
2998 else if (win_y
< XINT (bar
->end
) + VERTICAL_SCROLL_BAR_MIN_HANDLE
)
2999 *part
= scroll_bar_handle
;
3001 *part
= scroll_bar_below_handle
;
3003 XSETINT (*x
, win_y
);
3004 XSETINT (*y
, top_range
);
3007 last_mouse_scroll_bar
= Qnil
;
3010 *time
= last_mouse_movement_time
;
3016 /* The screen has been cleared so we may have changed foreground or
3017 background colors, and the scroll bars may need to be redrawn.
3018 Clear out the scroll bars, and ask for expose events, so we can
3021 x_scroll_bar_clear (f
)
3026 for (bar
= FRAME_SCROLL_BARS (f
); VECTORP (bar
);
3027 bar
= XSCROLL_BAR (bar
)->next
)
3028 XClearArea (FRAME_X_DISPLAY (f
), SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
)),
3032 /* This processes Expose events from the menubar specific X event
3033 loop in menubar.c. This allows to redisplay the frame if necessary
3034 when handling menubar or popup items. */
3037 process_expose_from_menu (event
)
3044 f
= x_window_to_frame (event
.xexpose
.window
);
3047 if (f
->async_visible
== 0)
3049 f
->async_visible
= 1;
3050 f
->async_iconified
= 0;
3051 SET_FRAME_GARBAGED (f
);
3055 dumprectangle (x_window_to_frame (event
.xexpose
.window
),
3056 event
.xexpose
.x
, event
.xexpose
.y
,
3057 event
.xexpose
.width
, event
.xexpose
.height
);
3062 struct scroll_bar
*bar
3063 = x_window_to_scroll_bar (event
.xexpose
.window
);
3066 x_scroll_bar_expose (bar
, &event
);
3072 /* Define a queue to save up SelectionRequest events for later handling. */
3074 struct selection_event_queue
3077 struct selection_event_queue
*next
;
3080 static struct selection_event_queue
*queue
;
3082 /* Nonzero means queue up certain events--don't process them yet. */
3083 static int x_queue_selection_requests
;
3085 /* Queue up an X event *EVENT, to be processed later. */
3088 x_queue_event (f
, event
)
3092 struct selection_event_queue
*queue_tmp
3093 = (struct selection_event_queue
*) malloc (sizeof (struct selection_event_queue
));
3095 if (queue_tmp
!= NULL
)
3097 queue_tmp
->event
= *event
;
3098 queue_tmp
->next
= queue
;
3103 /* Take all the queued events and put them back
3104 so that they get processed afresh. */
3107 x_unqueue_events (display
)
3110 while (queue
!= NULL
)
3112 struct selection_event_queue
*queue_tmp
= queue
;
3113 XPutBackEvent (display
, &queue_tmp
->event
);
3114 queue
= queue_tmp
->next
;
3115 free ((char *)queue_tmp
);
3119 /* Start queuing SelectionRequest events. */
3122 x_start_queuing_selection_requests (display
)
3125 x_queue_selection_requests
++;
3128 /* Stop queuing SelectionRequest events. */
3131 x_stop_queuing_selection_requests (display
)
3134 x_queue_selection_requests
--;
3135 x_unqueue_events (display
);
3138 /* The main X event-reading loop - XTread_socket. */
3140 /* Timestamp of enter window event. This is only used by XTread_socket,
3141 but we have to put it out here, since static variables within functions
3142 sometimes don't work. */
3143 static Time enter_timestamp
;
3145 /* This holds the state XLookupString needs to implement dead keys
3146 and other tricks known as "compose processing". _X Window System_
3147 says that a portable program can't use this, but Stephen Gildea assures
3148 me that letting the compiler initialize it to zeros will work okay.
3150 This must be defined outside of XTread_socket, for the same reasons
3151 given for enter_timestamp, above. */
3152 static XComposeStatus compose_status
;
3154 /* Record the last 100 characters stored
3155 to help debug the loss-of-chars-during-GC problem. */
3157 short temp_buffer
[100];
3159 /* Set this to nonzero to fake an "X I/O error"
3160 on a particular display. */
3161 struct x_display_info
*XTread_socket_fake_io_error
;
3163 /* Read events coming from the X server.
3164 This routine is called by the SIGIO handler.
3165 We return as soon as there are no more events to be read.
3167 Events representing keys are stored in buffer BUFP,
3168 which can hold up to NUMCHARS characters.
3169 We return the number of characters stored into the buffer,
3170 thus pretending to be `read'.
3172 WAITP is nonzero if we should block until input arrives.
3173 EXPECTED is nonzero if the caller knows input is available. */
3176 XTread_socket (sd
, bufp
, numchars
, waitp
, expected
)
3178 register struct input_event
*bufp
;
3179 register int numchars
;
3186 int items_pending
; /* How many items are in the X queue. */
3189 int event_found
= 0;
3192 struct x_display_info
*dpyinfo
;
3194 if (interrupt_input_blocked
)
3196 interrupt_input_pending
= 1;
3200 interrupt_input_pending
= 0;
3203 /* So people can tell when we have read the available input. */
3204 input_signal_count
++;
3207 abort (); /* Don't think this happens. */
3209 /* Find the display we are supposed to read input for.
3210 It's the one communicating on descriptor SD. */
3211 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
3213 #if 0 /* This ought to be unnecessary; let's verify it. */
3215 /* If available, Xlib uses FIOSNBIO to make the socket
3216 non-blocking, and then looks for EWOULDBLOCK. If O_NDELAY is set,
3217 FIOSNBIO is ignored, and instead of signalling EWOULDBLOCK,
3218 a read returns 0, which Xlib interprets as equivalent to EPIPE. */
3219 fcntl (dpyinfo
->connection
, F_SETFL
, 0);
3220 #endif /* ! defined (FIOSNBIO) */
3223 #if 0 /* This code can't be made to work, with multiple displays,
3224 and appears not to be used on any system any more.
3225 Also keyboard.c doesn't turn O_NDELAY on and off
3226 for X connections. */
3229 if (! (fcntl (dpyinfo
->connection
, F_GETFL
, 0) & O_NDELAY
))
3231 extern int read_alarm_should_throw
;
3232 read_alarm_should_throw
= 1;
3233 XPeekEvent (dpyinfo
->display
, &event
);
3234 read_alarm_should_throw
= 0;
3236 #endif /* HAVE_SELECT */
3240 /* For debugging, this gives a way to fake an I/O error. */
3241 if (dpyinfo
== XTread_socket_fake_io_error
)
3243 XTread_socket_fake_io_error
= 0;
3244 x_io_error_quitter (dpyinfo
->display
);
3247 while (XPending (dpyinfo
->display
) != 0)
3249 XNextEvent (dpyinfo
->display
, &event
);
3256 if (event
.xclient
.message_type
3257 == dpyinfo
->Xatom_wm_protocols
3258 && event
.xclient
.format
== 32)
3260 if (event
.xclient
.data
.l
[0]
3261 == dpyinfo
->Xatom_wm_take_focus
)
3263 f
= x_window_to_frame (event
.xclient
.window
);
3264 /* Since we set WM_TAKE_FOCUS, we must call
3265 XSetInputFocus explicitly. But not if f is null,
3266 since that might be an event for a deleted frame. */
3268 XSetInputFocus (event
.xclient
.display
,
3269 event
.xclient
.window
,
3270 RevertToPointerRoot
,
3271 event
.xclient
.data
.l
[1]);
3272 /* Not certain about handling scroll bars here */
3274 else if (event
.xclient
.data
.l
[0]
3275 == dpyinfo
->Xatom_wm_save_yourself
)
3277 /* Save state modify the WM_COMMAND property to
3278 something which can reinstate us. This notifies
3279 the session manager, who's looking for such a
3280 PropertyNotify. Can restart processing when
3281 a keyboard or mouse event arrives. */
3284 f
= x_top_window_to_frame (event
.xclient
.window
);
3286 /* This is just so we only give real data once
3287 for a single Emacs process. */
3288 if (f
== selected_frame
)
3289 XSetCommand (FRAME_X_DISPLAY (f
),
3290 event
.xclient
.window
,
3291 initial_argv
, initial_argc
);
3293 XSetCommand (FRAME_X_DISPLAY (f
),
3294 event
.xclient
.window
,
3298 else if (event
.xclient
.data
.l
[0]
3299 == dpyinfo
->Xatom_wm_delete_window
)
3301 struct frame
*f
= x_any_window_to_frame (event
.xclient
.window
);
3308 bufp
->kind
= delete_window_event
;
3309 XSETFRAME (bufp
->frame_or_window
, f
);
3317 else if (event
.xclient
.message_type
3318 == dpyinfo
->Xatom_wm_configure_denied
)
3321 else if (event
.xclient
.message_type
3322 == dpyinfo
->Xatom_wm_window_moved
)
3325 struct frame
*f
= x_window_to_frame (event
.xclient
.window
);
3327 new_x
= event
.xclient
.data
.s
[0];
3328 new_y
= event
.xclient
.data
.s
[1];
3332 f
->display
.x
->left_pos
= new_x
;
3333 f
->display
.x
->top_pos
= new_y
;
3336 #if defined (USE_X_TOOLKIT) && defined (HAVE_X11R5)
3337 else if (event
.xclient
.message_type
3338 == dpyinfo
->Xatom_editres
)
3340 struct frame
*f
= x_any_window_to_frame (event
.xclient
.window
);
3341 _XEditResCheckMessages (f
->display
.x
->widget
, NULL
, &event
, NULL
);
3343 #endif /* USE_X_TOOLKIT and HAVE_X11R5 */
3347 case SelectionNotify
:
3348 #ifdef USE_X_TOOLKIT
3349 if (! x_window_to_frame (event
.xselection
.requestor
))
3351 #endif /* not USE_X_TOOLKIT */
3352 x_handle_selection_notify (&event
);
3355 case SelectionClear
: /* Someone has grabbed ownership. */
3356 #ifdef USE_X_TOOLKIT
3357 if (! x_window_to_frame (event
.xselectionclear
.window
))
3359 #endif /* USE_X_TOOLKIT */
3361 XSelectionClearEvent
*eventp
= (XSelectionClearEvent
*) &event
;
3366 bufp
->kind
= selection_clear_event
;
3367 SELECTION_EVENT_DISPLAY (bufp
) = eventp
->display
;
3368 SELECTION_EVENT_SELECTION (bufp
) = eventp
->selection
;
3369 SELECTION_EVENT_TIME (bufp
) = eventp
->time
;
3377 case SelectionRequest
: /* Someone wants our selection. */
3378 #ifdef USE_X_TOOLKIT
3379 if (!x_window_to_frame (event
.xselectionrequest
.owner
))
3381 #endif /* USE_X_TOOLKIT */
3382 if (x_queue_selection_requests
)
3383 x_queue_event (x_window_to_frame (event
.xselectionrequest
.owner
),
3387 XSelectionRequestEvent
*eventp
= (XSelectionRequestEvent
*) &event
;
3392 bufp
->kind
= selection_request_event
;
3393 SELECTION_EVENT_DISPLAY (bufp
) = eventp
->display
;
3394 SELECTION_EVENT_REQUESTOR (bufp
) = eventp
->requestor
;
3395 SELECTION_EVENT_SELECTION (bufp
) = eventp
->selection
;
3396 SELECTION_EVENT_TARGET (bufp
) = eventp
->target
;
3397 SELECTION_EVENT_PROPERTY (bufp
) = eventp
->property
;
3398 SELECTION_EVENT_TIME (bufp
) = eventp
->time
;
3406 case PropertyNotify
:
3407 #ifdef USE_X_TOOLKIT
3408 if (!x_any_window_to_frame (event
.xproperty
.window
))
3410 #endif /* not USE_X_TOOLKIT */
3411 x_handle_property_notify (&event
);
3414 case ReparentNotify
:
3415 f
= x_top_window_to_frame (event
.xreparent
.window
);
3419 f
->display
.x
->parent_desc
= event
.xreparent
.parent
;
3420 x_real_positions (f
, &x
, &y
);
3421 f
->display
.x
->left_pos
= x
;
3422 f
->display
.x
->top_pos
= y
;
3427 f
= x_window_to_frame (event
.xexpose
.window
);
3430 if (f
->async_visible
== 0)
3432 f
->async_visible
= 1;
3433 f
->async_iconified
= 0;
3434 SET_FRAME_GARBAGED (f
);
3437 dumprectangle (x_window_to_frame (event
.xexpose
.window
),
3438 event
.xexpose
.x
, event
.xexpose
.y
,
3439 event
.xexpose
.width
, event
.xexpose
.height
);
3443 struct scroll_bar
*bar
3444 = x_window_to_scroll_bar (event
.xexpose
.window
);
3447 x_scroll_bar_expose (bar
, &event
);
3448 #ifdef USE_X_TOOLKIT
3451 #endif /* USE_X_TOOLKIT */
3455 case GraphicsExpose
: /* This occurs when an XCopyArea's
3456 source area was obscured or not
3458 f
= x_window_to_frame (event
.xgraphicsexpose
.drawable
);
3462 event
.xgraphicsexpose
.x
, event
.xgraphicsexpose
.y
,
3463 event
.xgraphicsexpose
.width
,
3464 event
.xgraphicsexpose
.height
);
3466 #ifdef USE_X_TOOLKIT
3469 #endif /* USE_X_TOOLKIT */
3472 case NoExpose
: /* This occurs when an XCopyArea's
3473 source area was completely
3478 f
= x_any_window_to_frame (event
.xunmap
.window
);
3479 if (f
) /* F may no longer exist if
3480 the frame was deleted. */
3482 /* While a frame is unmapped, display generation is
3483 disabled; you don't want to spend time updating a
3484 display that won't ever be seen. */
3485 f
->async_visible
= 0;
3486 /* We can't distinguish, from the event, whether the window
3487 has become iconified or invisible. So assume, if it
3488 was previously visible, than now it is iconified.
3489 We depend on x_make_frame_invisible to mark it iconified. */
3490 if (FRAME_VISIBLE_P (f
) || FRAME_ICONIFIED_P (f
))
3491 f
->async_iconified
= 1;
3493 bufp
->kind
= iconify_event
;
3494 XSETFRAME (bufp
->frame_or_window
, f
);
3499 #ifdef USE_X_TOOLKIT
3501 #endif /* USE_X_TOOLKIT */
3505 /* We use x_top_window_to_frame because map events can come
3506 for subwindows and they don't mean that the frame is visible. */
3507 f
= x_top_window_to_frame (event
.xmap
.window
);
3510 f
->async_visible
= 1;
3511 f
->async_iconified
= 0;
3513 /* wait_reading_process_input will notice this and update
3514 the frame's display structures. */
3515 SET_FRAME_GARBAGED (f
);
3517 bufp
->kind
= deiconify_event
;
3518 XSETFRAME (bufp
->frame_or_window
, f
);
3523 #ifdef USE_X_TOOLKIT
3525 #endif /* USE_X_TOOLKIT */
3528 /* Turn off processing if we become fully obscured. */
3529 case VisibilityNotify
:
3533 f
= x_any_window_to_frame (event
.xkey
.window
);
3537 KeySym keysym
, orig_keysym
;
3538 /* al%imercury@uunet.uu.net says that making this 81 instead of
3539 80 fixed a bug whereby meta chars made his Emacs hang. */
3540 unsigned char copy_buffer
[81];
3544 |= x_emacs_to_x_modifiers (FRAME_X_DISPLAY_INFO (f
),
3545 extra_keyboard_modifiers
);
3546 modifiers
= event
.xkey
.state
;
3548 /* This will have to go some day... */
3550 /* make_lispy_event turns chars into control chars.
3551 Don't do it here because XLookupString is too eager. */
3552 event
.xkey
.state
&= ~ControlMask
;
3553 nbytes
= XLookupString (&event
.xkey
, copy_buffer
,
3554 80, &keysym
, &compose_status
);
3556 orig_keysym
= keysym
;
3560 if (((keysym
>= XK_BackSpace
&& keysym
<= XK_Escape
)
3561 || keysym
== XK_Delete
3562 || IsCursorKey (keysym
) /* 0xff50 <= x < 0xff60 */
3563 || IsMiscFunctionKey (keysym
) /* 0xff60 <= x < VARIES */
3565 /* This recognizes the "extended function keys".
3566 It seems there's no cleaner way.
3567 Test IsModifierKey to avoid handling mode_switch
3569 || ((unsigned) (keysym
) >= XK_Select
3570 && (unsigned)(keysym
) < XK_KP_Space
)
3572 #ifdef XK_dead_circumflex
3573 || orig_keysym
== XK_dead_circumflex
3575 #ifdef XK_dead_grave
3576 || orig_keysym
== XK_dead_grave
3578 #ifdef XK_dead_tilde
3579 || orig_keysym
== XK_dead_tilde
3581 #ifdef XK_dead_diaeresis
3582 || orig_keysym
== XK_dead_diaeresis
3584 #ifdef XK_dead_macron
3585 || orig_keysym
== XK_dead_macron
3587 #ifdef XK_dead_degree
3588 || orig_keysym
== XK_dead_degree
3590 #ifdef XK_dead_acute
3591 || orig_keysym
== XK_dead_acute
3593 #ifdef XK_dead_cedilla
3594 || orig_keysym
== XK_dead_cedilla
3596 #ifdef XK_dead_breve
3597 || orig_keysym
== XK_dead_breve
3599 #ifdef XK_dead_ogonek
3600 || orig_keysym
== XK_dead_ogonek
3602 #ifdef XK_dead_caron
3603 || orig_keysym
== XK_dead_caron
3605 #ifdef XK_dead_doubleacute
3606 || orig_keysym
== XK_dead_doubleacute
3608 #ifdef XK_dead_abovedot
3609 || orig_keysym
== XK_dead_abovedot
3611 || IsKeypadKey (keysym
) /* 0xff80 <= x < 0xffbe */
3612 || IsFunctionKey (keysym
) /* 0xffbe <= x < 0xffe1 */
3613 /* Any "vendor-specific" key is ok. */
3614 || (orig_keysym
& (1 << 28)))
3615 && ! (IsModifierKey (orig_keysym
)
3617 #ifdef XK_Mode_switch
3618 || ((unsigned)(orig_keysym
) == XK_Mode_switch
)
3621 || ((unsigned)(orig_keysym
) == XK_Num_Lock
)
3623 #endif /* not HAVE_X11R5 */
3626 if (temp_index
== sizeof temp_buffer
/ sizeof (short))
3628 temp_buffer
[temp_index
++] = keysym
;
3629 bufp
->kind
= non_ascii_keystroke
;
3630 bufp
->code
= keysym
;
3631 XSETFRAME (bufp
->frame_or_window
, f
);
3633 = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f
),
3635 bufp
->timestamp
= event
.xkey
.time
;
3640 else if (numchars
> nbytes
)
3644 for (i
= 0; i
< nbytes
; i
++)
3646 if (temp_index
== sizeof temp_buffer
/ sizeof (short))
3648 temp_buffer
[temp_index
++] = copy_buffer
[i
];
3649 bufp
->kind
= ascii_keystroke
;
3650 bufp
->code
= copy_buffer
[i
];
3651 XSETFRAME (bufp
->frame_or_window
, f
);
3653 = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f
),
3655 bufp
->timestamp
= event
.xkey
.time
;
3670 /* Here's a possible interpretation of the whole
3671 FocusIn-EnterNotify FocusOut-LeaveNotify mess. If you get a
3672 FocusIn event, you have to get a FocusOut event before you
3673 relinquish the focus. If you haven't received a FocusIn event,
3674 then a mere LeaveNotify is enough to free you. */
3677 f
= x_any_window_to_frame (event
.xcrossing
.window
);
3679 if (event
.xcrossing
.focus
) /* Entered Window */
3681 /* Avoid nasty pop/raise loops. */
3682 if (f
&& (!(f
->auto_raise
)
3684 || (event
.xcrossing
.time
- enter_timestamp
) > 500))
3686 x_new_focus_frame (f
);
3687 enter_timestamp
= event
.xcrossing
.time
;
3690 else if (f
== x_focus_frame
)
3691 x_new_focus_frame (0);
3692 /* EnterNotify counts as mouse movement,
3693 so update things that depend on mouse position. */
3695 note_mouse_movement (f
, &event
.xmotion
);
3696 #ifdef USE_X_TOOLKIT
3698 #endif /* USE_X_TOOLKIT */
3702 f
= x_any_window_to_frame (event
.xfocus
.window
);
3703 if (event
.xfocus
.detail
!= NotifyPointer
)
3704 x_focus_event_frame
= f
;
3706 x_new_focus_frame (f
);
3707 #ifdef USE_X_TOOLKIT
3709 #endif /* USE_X_TOOLKIT */
3714 f
= x_top_window_to_frame (event
.xcrossing
.window
);
3717 if (f
== dpyinfo
->mouse_face_mouse_frame
)
3718 /* If we move outside the frame,
3719 then we're certainly no longer on any text in the frame. */
3720 clear_mouse_face (dpyinfo
);
3722 if (event
.xcrossing
.focus
)
3726 if (f
== x_focus_event_frame
)
3727 x_focus_event_frame
= 0;
3728 if (f
== x_focus_frame
)
3729 x_new_focus_frame (0);
3732 #ifdef USE_X_TOOLKIT
3734 #endif /* USE_X_TOOLKIT */
3738 f
= x_any_window_to_frame (event
.xfocus
.window
);
3739 if (event
.xfocus
.detail
!= NotifyPointer
3740 && f
== x_focus_event_frame
)
3741 x_focus_event_frame
= 0;
3742 if (f
&& f
== x_focus_frame
)
3743 x_new_focus_frame (0);
3744 #ifdef USE_X_TOOLKIT
3746 #endif /* USE_X_TOOLKIT */
3751 if (dpyinfo
->grabbed
&& last_mouse_frame
3752 && FRAME_LIVE_P (last_mouse_frame
))
3753 f
= last_mouse_frame
;
3755 f
= x_window_to_frame (event
.xmotion
.window
);
3757 note_mouse_movement (f
, &event
.xmotion
);
3760 struct scroll_bar
*bar
3761 = x_window_to_scroll_bar (event
.xmotion
.window
);
3764 x_scroll_bar_note_movement (bar
, &event
);
3766 /* If we move outside the frame,
3767 then we're certainly no longer on any text in the frame. */
3768 clear_mouse_face (dpyinfo
);
3771 #if 0 /* This should be unnecessary, since the toolkit has no use
3772 for motion events that happen outside of the menu event loop,
3773 and it seems to cause the bug that mouse events stop coming
3775 #ifdef USE_X_TOOLKIT
3777 #endif /* USE_X_TOOLKIT */
3781 case ConfigureNotify
:
3782 f
= x_any_window_to_frame (event
.xconfigure
.window
);
3783 #ifdef USE_X_TOOLKIT
3786 && ! event
.xconfigure
.send_event
3788 && (event
.xconfigure
.window
== XtWindow (f
->display
.x
->widget
)))
3793 /* Find the position of the outside upper-left corner of
3794 the window, in the root coordinate system. Don't
3795 refer to the parent window here; we may be processing
3796 this event after the window manager has changed our
3797 parent, but before we have reached the ReparentNotify. */
3798 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
3800 /* From-window, to-window. */
3801 XtWindow (f
->display
.x
->widget
),
3802 FRAME_X_DISPLAY_INFO (f
)->root_window
,
3804 /* From-position, to-position. */
3805 -event
.xconfigure
.border_width
,
3806 -event
.xconfigure
.border_width
,
3811 event
.xconfigure
.x
= win_x
;
3812 event
.xconfigure
.y
= win_y
;
3814 f
->display
.x
->pixel_width
= event
.xconfigure
.width
;
3815 f
->display
.x
->pixel_height
= event
.xconfigure
.height
;
3816 f
->display
.x
->left_pos
= event
.xconfigure
.x
;
3817 f
->display
.x
->top_pos
= event
.xconfigure
.y
;
3819 /* What we have now is the position of Emacs's own window.
3820 Convert that to the position of the window manager window. */
3823 x_real_positions (f
, &x
, &y
);
3824 f
->display
.x
->left_pos
= x
;
3825 f
->display
.x
->top_pos
= y
;
3829 #else /* not USE_X_TOOLKIT */
3832 int rows
= PIXEL_TO_CHAR_HEIGHT (f
, event
.xconfigure
.height
);
3833 int columns
= PIXEL_TO_CHAR_WIDTH (f
, event
.xconfigure
.width
);
3835 /* Even if the number of character rows and columns has
3836 not changed, the font size may have changed, so we need
3837 to check the pixel dimensions as well. */
3838 if (columns
!= f
->width
3839 || rows
!= f
->height
3840 || event
.xconfigure
.width
!= f
->display
.x
->pixel_width
3841 || event
.xconfigure
.height
!= f
->display
.x
->pixel_height
)
3843 change_frame_size (f
, rows
, columns
, 0, 1);
3844 SET_FRAME_GARBAGED (f
);
3847 if (! event
.xconfigure
.send_event
)
3852 /* Find the position of the outside upper-left corner of
3853 the window, in the root coordinate system. Don't
3854 refer to the parent window here; we may be processing
3855 this event after the window manager has changed our
3856 parent, but before we have reached the ReparentNotify. */
3857 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
3859 /* From-window, to-window. */
3860 f
->display
.x
->window_desc
,
3861 FRAME_X_DISPLAY_INFO (f
)->root_window
,
3863 /* From-position, to-position. */
3864 -event
.xconfigure
.border_width
,
3865 -event
.xconfigure
.border_width
,
3870 event
.xconfigure
.x
= win_x
;
3871 event
.xconfigure
.y
= win_y
;
3874 f
->display
.x
->pixel_width
= event
.xconfigure
.width
;
3875 f
->display
.x
->pixel_height
= event
.xconfigure
.height
;
3876 f
->display
.x
->left_pos
= event
.xconfigure
.x
;
3877 f
->display
.x
->top_pos
= event
.xconfigure
.y
;
3879 /* What we have now is the position of Emacs's own window.
3880 Convert that to the position of the window manager window. */
3883 x_real_positions (f
, &x
, &y
);
3884 f
->display
.x
->left_pos
= x
;
3885 f
->display
.x
->top_pos
= y
;
3886 if (y
!= event
.xconfigure
.y
)
3888 /* Since the WM decorations come below top_pos now,
3889 we must put them below top_pos in the future. */
3890 f
->display
.x
->win_gravity
= NorthWestGravity
;
3891 x_wm_set_size_hint (f
, 0, 0);
3895 #endif /* not USE_X_TOOLKIT */
3901 /* If we decide we want to generate an event to be seen
3902 by the rest of Emacs, we put it here. */
3903 struct input_event emacs_event
;
3904 emacs_event
.kind
= no_event
;
3906 bzero (&compose_status
, sizeof (compose_status
));
3908 if (dpyinfo
->grabbed
&& last_mouse_frame
3909 && FRAME_LIVE_P (last_mouse_frame
))
3910 f
= last_mouse_frame
;
3912 f
= x_window_to_frame (event
.xmotion
.window
);
3916 if (!x_focus_frame
|| (f
== x_focus_frame
))
3917 construct_mouse_click (&emacs_event
, &event
, f
);
3921 struct scroll_bar
*bar
3922 = x_window_to_scroll_bar (event
.xbutton
.window
);
3925 x_scroll_bar_handle_click (bar
, &event
, &emacs_event
);
3926 #ifdef USE_X_TOOLKIT
3929 /* Assume we have a menubar button press. A bad
3930 assumption should behave benignly. */
3931 popup_get_selection (&event
);
3934 #endif /* USE_X_TOOLKIT */
3937 if (event
.type
== ButtonPress
)
3939 dpyinfo
->grabbed
|= (1 << event
.xbutton
.button
);
3940 last_mouse_frame
= f
;
3944 dpyinfo
->grabbed
&= ~(1 << event
.xbutton
.button
);
3947 if (numchars
>= 1 && emacs_event
.kind
!= no_event
)
3949 bcopy (&emacs_event
, bufp
, sizeof (struct input_event
));
3955 #ifdef USE_X_TOOLKIT
3957 #endif /* USE_X_TOOLKIT */
3961 case CirculateNotify
:
3963 case CirculateRequest
:
3967 /* Someone has changed the keyboard mapping - update the
3969 switch (event
.xmapping
.request
)
3971 case MappingModifier
:
3972 x_find_modifier_meanings (dpyinfo
);
3973 /* This is meant to fall through. */
3974 case MappingKeyboard
:
3975 XRefreshKeyboardMapping (&event
.xmapping
);
3977 #ifdef USE_X_TOOLKIT
3979 #endif /* USE_X_TOOLKIT */
3983 #ifdef USE_X_TOOLKIT
3986 XtDispatchEvent (&event
);
3988 #endif /* USE_X_TOOLKIT */
3994 /* On some systems, an X bug causes Emacs to get no more events
3995 when the window is destroyed. Detect that. (1994.) */
3998 /* Emacs and the X Server eats up CPU time if XNoOp is done every time.
3999 One XNOOP in 100 loops will make Emacs terminate.
4000 B. Bretthauer, 1994 */
4002 if (x_noop_count
>= 100)
4005 /* Use the first display in the list. Why not? */
4006 XNoOp (x_display_list
->display
);
4010 /* If the focus was just given to an autoraising frame,
4012 /* ??? This ought to be able to handle more than one such frame. */
4013 if (pending_autoraise_frame
)
4015 x_raise_frame (pending_autoraise_frame
);
4016 pending_autoraise_frame
= 0;
4023 /* Drawing the cursor. */
4026 /* Draw a hollow box cursor. Don't change the inside of the box. */
4032 int left
= CHAR_TO_PIXEL_COL (f
, curs_x
);
4033 int top
= CHAR_TO_PIXEL_ROW (f
, curs_y
);
4034 int width
= FONT_WIDTH (f
->display
.x
->font
);
4035 int height
= f
->display
.x
->line_height
;
4037 XDrawRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4038 f
->display
.x
->cursor_gc
,
4039 left
, top
, width
- 1, height
- 1);
4042 /* Clear the cursor of frame F to background color,
4043 and mark the cursor as not shown.
4044 This is used when the text where the cursor is
4045 is about to be rewritten. */
4053 if (! FRAME_VISIBLE_P (f
)
4054 || f
->phys_cursor_x
< 0)
4057 x_display_cursor (f
, 0);
4058 f
->phys_cursor_x
= -1;
4061 /* Redraw the glyph at ROW, COLUMN on frame F, in the style
4062 HIGHLIGHT. HIGHLIGHT is as defined for dumpglyphs. Return the
4066 x_draw_single_glyph (f
, row
, column
, glyph
, highlight
)
4073 CHAR_TO_PIXEL_COL (f
, column
),
4074 CHAR_TO_PIXEL_ROW (f
, row
),
4075 &glyph
, 1, highlight
, 0);
4079 x_display_bar_cursor (f
, on
)
4083 struct frame_glyphs
*current_glyphs
= FRAME_CURRENT_GLYPHS (f
);
4085 /* This is pointless on invisible frames, and dangerous on garbaged
4086 frames; in the latter case, the frame may be in the midst of
4087 changing its size, and curs_x and curs_y may be off the frame. */
4088 if (! FRAME_VISIBLE_P (f
) || FRAME_GARBAGED_P (f
))
4091 if (! on
&& f
->phys_cursor_x
< 0)
4094 /* If we're not updating, then we want to use the current frame's
4095 cursor position, not our local idea of where the cursor ought to be. */
4096 if (f
!= updating_frame
)
4098 curs_x
= FRAME_CURSOR_X (f
);
4099 curs_y
= FRAME_CURSOR_Y (f
);
4102 /* If there is anything wrong with the current cursor state, remove it. */
4103 if (f
->phys_cursor_x
>= 0
4105 || f
->phys_cursor_x
!= curs_x
4106 || f
->phys_cursor_y
!= curs_y
4107 || f
->display
.x
->current_cursor
!= bar_cursor
))
4109 /* Erase the cursor by redrawing the character underneath it. */
4110 x_draw_single_glyph (f
, f
->phys_cursor_y
, f
->phys_cursor_x
,
4111 f
->phys_cursor_glyph
,
4112 current_glyphs
->highlight
[f
->phys_cursor_y
]);
4113 f
->phys_cursor_x
= -1;
4116 /* If we now need a cursor in the new place or in the new form, do it so. */
4118 && (f
->phys_cursor_x
< 0
4119 || (f
->display
.x
->current_cursor
!= bar_cursor
)))
4121 f
->phys_cursor_glyph
4122 = ((current_glyphs
->enable
[curs_y
]
4123 && curs_x
< current_glyphs
->used
[curs_y
])
4124 ? current_glyphs
->glyphs
[curs_y
][curs_x
]
4126 XFillRectangle (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4127 f
->display
.x
->cursor_gc
,
4128 CHAR_TO_PIXEL_COL (f
, curs_x
),
4129 CHAR_TO_PIXEL_ROW (f
, curs_y
),
4130 max (f
->display
.x
->cursor_width
, 1),
4131 f
->display
.x
->line_height
);
4133 f
->phys_cursor_x
= curs_x
;
4134 f
->phys_cursor_y
= curs_y
;
4136 f
->display
.x
->current_cursor
= bar_cursor
;
4139 if (updating_frame
!= f
)
4140 XFlush (FRAME_X_DISPLAY (f
));
4144 /* Turn the displayed cursor of frame F on or off according to ON.
4145 If ON is nonzero, where to put the cursor is specified
4146 by F->cursor_x and F->cursor_y. */
4149 x_display_box_cursor (f
, on
)
4153 struct frame_glyphs
*current_glyphs
= FRAME_CURRENT_GLYPHS (f
);
4155 /* This is pointless on invisible frames, and dangerous on garbaged
4156 frames; in the latter case, the frame may be in the midst of
4157 changing its size, and curs_x and curs_y may be off the frame. */
4158 if (! FRAME_VISIBLE_P (f
) || FRAME_GARBAGED_P (f
))
4161 /* If cursor is off and we want it off, return quickly. */
4162 if (!on
&& f
->phys_cursor_x
< 0)
4165 /* If we're not updating, then we want to use the current frame's
4166 cursor position, not our local idea of where the cursor ought to be. */
4167 if (f
!= updating_frame
)
4169 curs_x
= FRAME_CURSOR_X (f
);
4170 curs_y
= FRAME_CURSOR_Y (f
);
4173 /* If cursor is currently being shown and we don't want it to be
4174 or it is in the wrong place,
4175 or we want a hollow box and it's not so, (pout!)
4177 if (f
->phys_cursor_x
>= 0
4179 || f
->phys_cursor_x
!= curs_x
4180 || f
->phys_cursor_y
!= curs_y
4181 || (f
->display
.x
->current_cursor
!= hollow_box_cursor
4182 && (f
!= x_highlight_frame
))))
4184 int mouse_face_here
= 0;
4185 struct frame_glyphs
*active_glyphs
= FRAME_CURRENT_GLYPHS (f
);
4187 /* If the cursor is in the mouse face area, redisplay that when
4188 we clear the cursor. */
4189 if (f
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_mouse_frame
4191 (f
->phys_cursor_y
> FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
4192 || (f
->phys_cursor_y
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_row
4193 && f
->phys_cursor_x
>= FRAME_X_DISPLAY_INFO (f
)->mouse_face_beg_col
))
4195 (f
->phys_cursor_y
< FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
4196 || (f
->phys_cursor_y
== FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_row
4197 && f
->phys_cursor_x
< FRAME_X_DISPLAY_INFO (f
)->mouse_face_end_col
))
4198 /* Don't redraw the cursor's spot in mouse face
4199 if it is at the end of a line (on a newline).
4200 The cursor appears there, but mouse highlighting does not. */
4201 && active_glyphs
->used
[f
->phys_cursor_y
] > f
->phys_cursor_x
)
4202 mouse_face_here
= 1;
4204 /* If the font is not as tall as a whole line,
4205 we must explicitly clear the line's whole height. */
4206 if (FONT_HEIGHT (f
->display
.x
->font
) != f
->display
.x
->line_height
)
4207 XClearArea (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4208 CHAR_TO_PIXEL_COL (f
, f
->phys_cursor_x
),
4209 CHAR_TO_PIXEL_ROW (f
, f
->phys_cursor_y
),
4210 FONT_WIDTH (f
->display
.x
->font
),
4211 f
->display
.x
->line_height
, False
);
4212 /* Erase the cursor by redrawing the character underneath it. */
4213 x_draw_single_glyph (f
, f
->phys_cursor_y
, f
->phys_cursor_x
,
4214 f
->phys_cursor_glyph
,
4217 : current_glyphs
->highlight
[f
->phys_cursor_y
]));
4218 f
->phys_cursor_x
= -1;
4221 /* If we want to show a cursor,
4222 or we want a box cursor and it's not so,
4223 write it in the right place. */
4225 && (f
->phys_cursor_x
< 0
4226 || (f
->display
.x
->current_cursor
!= filled_box_cursor
4227 && f
== x_highlight_frame
)))
4229 f
->phys_cursor_glyph
4230 = ((current_glyphs
->enable
[curs_y
]
4231 && curs_x
< current_glyphs
->used
[curs_y
])
4232 ? current_glyphs
->glyphs
[curs_y
][curs_x
]
4234 if (f
!= x_highlight_frame
)
4237 f
->display
.x
->current_cursor
= hollow_box_cursor
;
4241 x_draw_single_glyph (f
, curs_y
, curs_x
,
4242 f
->phys_cursor_glyph
, 2);
4243 f
->display
.x
->current_cursor
= filled_box_cursor
;
4246 f
->phys_cursor_x
= curs_x
;
4247 f
->phys_cursor_y
= curs_y
;
4250 if (updating_frame
!= f
)
4251 XFlush (FRAME_X_DISPLAY (f
));
4254 x_display_cursor (f
, on
)
4260 if (FRAME_DESIRED_CURSOR (f
) == filled_box_cursor
)
4261 x_display_box_cursor (f
, on
);
4262 else if (FRAME_DESIRED_CURSOR (f
) == bar_cursor
)
4263 x_display_bar_cursor (f
, on
);
4265 /* Those are the only two we have implemented! */
4273 /* Refresh bitmap kitchen sink icon for frame F
4274 when we get an expose event for it. */
4279 /* Normally, the window manager handles this function. */
4282 /* Make the x-window of frame F use the gnu icon bitmap. */
4285 x_bitmap_icon (f
, file
)
4289 int mask
, bitmap_id
;
4292 if (FRAME_X_WINDOW (f
) == 0)
4295 /* Free up our existing icon bitmap if any. */
4296 if (f
->display
.x
->icon_bitmap
> 0)
4297 x_destroy_bitmap (f
, f
->display
.x
->icon_bitmap
);
4298 f
->display
.x
->icon_bitmap
= 0;
4301 bitmap_id
= x_create_bitmap_from_file (f
, file
);
4304 /* Create the GNU bitmap if necessary. */
4305 if (FRAME_X_DISPLAY_INFO (f
)->icon_bitmap_id
< 0)
4306 FRAME_X_DISPLAY_INFO (f
)->icon_bitmap_id
4307 = x_create_bitmap_from_data (f
, gnu_bits
,
4308 gnu_width
, gnu_height
);
4310 /* The first time we create the GNU bitmap,
4311 this increments the refcount one extra time.
4312 As a result, the GNU bitmap is never freed.
4313 That way, we don't have to worry about allocating it again. */
4314 x_reference_bitmap (f
, FRAME_X_DISPLAY_INFO (f
)->icon_bitmap_id
);
4316 bitmap_id
= FRAME_X_DISPLAY_INFO (f
)->icon_bitmap_id
;
4319 x_wm_set_icon_pixmap (f
, bitmap_id
);
4320 f
->display
.x
->icon_bitmap
= bitmap_id
;
4326 /* Make the x-window of frame F use a rectangle with text. */
4329 x_text_icon (f
, icon_name
)
4333 if (FRAME_X_WINDOW (f
) == 0)
4337 f
->display
.x
->icon_label
= icon_name
;
4339 if (! f
->display
.x
->icon_label
)
4340 f
->display
.x
->icon_label
= " *emacs* ";
4343 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4344 (char *) f
->display
.x
->icon_label
);
4347 if (f
->display
.x
->icon_bitmap
> 0)
4348 x_destroy_bitmap (f
, f
->display
.x
->icon_bitmap
);
4349 f
->display
.x
->icon_bitmap
= 0;
4350 x_wm_set_icon_pixmap (f
, 0);
4355 /* Handling X errors. */
4357 /* Handle the loss of connection to display DISPLAY. */
4360 x_connection_closed (display
, error_message
)
4362 char *error_message
;
4364 struct x_display_info
*dpyinfo
= x_display_info_for_display (display
);
4365 Lisp_Object frame
, tail
;
4370 /* First delete frames whose minibuffers are on frames
4371 that are on the dead display. */
4372 FOR_EACH_FRAME (tail
, frame
)
4374 Lisp_Object minibuf_frame
;
4376 = WINDOW_FRAME (XWINDOW (FRAME_MINIBUF_WINDOW (XFRAME (frame
))));
4377 if (! EQ (frame
, minibuf_frame
)
4378 && FRAME_X_DISPLAY_INFO (XFRAME (frame
)) == dpyinfo
)
4379 Fdelete_frame (frame
, Qt
);
4382 /* Now delete all remaining frames on the dead display.
4383 We are now sure none of these is used as the minibuffer
4384 for another frame that we need to delete. */
4385 FOR_EACH_FRAME (tail
, frame
)
4386 if (FRAME_X_DISPLAY_INFO (XFRAME (frame
)) == dpyinfo
)
4387 Fdelete_frame (frame
, Qt
);
4389 x_delete_display (dpyinfo
);
4391 if (x_display_list
== 0)
4393 fprintf (stderr
, "%s", error_message
);
4394 shut_down_emacs (0, 0, Qnil
);
4398 /* Ordinary stack unwind doesn't deal with these. */
4400 sigunblock (sigmask (SIGIO
));
4402 sigunblock (sigmask (SIGALRM
));
4403 TOTALLY_UNBLOCK_INPUT
;
4405 error ("%s", error_message
);
4409 x_connection_signal (signalnum
) /* If we don't have an argument, */
4410 int signalnum
; /* some compilers complain in signal calls. */
4412 /* We really ought to close the connection to the display
4413 that actually failed.
4414 But do we actually get this signal ever with X11? */
4415 fprintf (stderr
, "X connection closed");
4416 shut_down_emacs (0, 0, Qnil
);
4420 /* This is the usual handler for X protocol errors.
4421 It kills all frames on the display that we got the error for.
4422 If that was the only one, it prints an error message and kills Emacs. */
4425 x_error_quitter (display
, error
)
4429 char buf
[256], buf1
[356];
4431 /* Note that there is no real way portable across R3/R4 to get the
4432 original error handler. */
4434 XGetErrorText (display
, error
->error_code
, buf
, sizeof (buf
));
4435 sprintf (buf1
, "X protocol error: %s on protocol request %d",
4436 buf
, error
->request_code
);
4437 x_connection_closed (display
, buf1
);
4440 /* This is the handler for X IO errors, always.
4441 It kills all frames on the display that we lost touch with.
4442 If that was the only one, it prints an error message and kills Emacs. */
4445 x_io_error_quitter (display
)
4450 sprintf (buf
, "Connection lost to X server `%s'", DisplayString (display
));
4451 x_connection_closed (display
, buf
);
4454 /* A buffer for storing X error messages. */
4455 static char *x_caught_error_message
;
4456 #define X_CAUGHT_ERROR_MESSAGE_SIZE 200
4458 /* An X error handler which stores the error message in
4459 x_caught_error_message. This is what's installed when
4460 x_catch_errors is in effect. */
4463 x_error_catcher (display
, error
)
4467 XGetErrorText (display
, error
->error_code
,
4468 x_caught_error_message
, X_CAUGHT_ERROR_MESSAGE_SIZE
);
4472 /* Begin trapping X errors for display DPY. Actually we trap X errors
4473 for all displays, but DPY should be the display you are actually
4476 After calling this function, X protocol errors no longer cause
4477 Emacs to exit; instead, they are recorded in x_cfc_error_message.
4479 Calling x_check_errors signals an Emacs error if an X error has
4480 occurred since the last call to x_catch_errors or x_check_errors.
4482 Calling x_uncatch_errors resumes the normal error handling. */
4484 void x_catch_errors (), x_check_errors (), x_uncatch_errors ();
4487 x_catch_errors (dpy
)
4490 /* Make sure any errors from previous requests have been dealt with. */
4493 /* Set up the error buffer. */
4494 x_caught_error_message
4495 = (char*) xmalloc (X_CAUGHT_ERROR_MESSAGE_SIZE
);
4496 x_caught_error_message
[0] = '\0';
4498 /* Install our little error handler. */
4499 XSetErrorHandler (x_error_catcher
);
4502 /* If any X protocol errors have arrived since the last call to
4503 x_catch_errors or x_check_errors, signal an Emacs error using
4504 sprintf (a buffer, FORMAT, the x error message text) as the text. */
4507 x_check_errors (dpy
, format
)
4511 /* Make sure to catch any errors incurred so far. */
4514 if (x_caught_error_message
[0])
4516 char buf
[X_CAUGHT_ERROR_MESSAGE_SIZE
+ 56];
4518 sprintf (buf
, format
, x_caught_error_message
);
4519 x_uncatch_errors (dpy
);
4524 /* Nonzero if we had any X protocol errors since we did x_catch_errors. */
4527 x_had_errors_p (dpy
)
4530 /* Make sure to catch any errors incurred so far. */
4533 return x_caught_error_message
[0] != 0;
4536 /* Stop catching X protocol errors and let them make Emacs die. */
4539 x_uncatch_errors (dpy
)
4542 xfree (x_caught_error_message
);
4543 x_caught_error_message
= 0;
4544 XSetErrorHandler (x_error_quitter
);
4548 static unsigned int x_wire_count
;
4551 fprintf (stderr
, "Lib call: %d\n", ++x_wire_count
);
4556 /* Changing the font of the frame. */
4558 /* Give frame F the font named FONTNAME as its default font, and
4559 return the full name of that font. FONTNAME may be a wildcard
4560 pattern; in that case, we choose some font that fits the pattern.
4561 The return value shows which font we chose. */
4564 x_new_font (f
, fontname
)
4566 register char *fontname
;
4569 int n_matching_fonts
;
4570 XFontStruct
*font_info
;
4573 /* Get a list of all the fonts that match this name. Once we
4574 have a list of matching fonts, we compare them against the fonts
4575 we already have by comparing font ids. */
4576 font_names
= (char **) XListFonts (FRAME_X_DISPLAY (f
), fontname
,
4577 1024, &n_matching_fonts
);
4578 /* Apparently it doesn't set n_matching_fonts to zero when it can't
4579 find any matches; font_names == 0 is the only clue. */
4581 n_matching_fonts
= 0;
4583 /* Don't just give up if n_matching_fonts is 0.
4584 Apparently there's a bug on Suns: XListFontsWithInfo can
4585 fail to find a font, but XLoadQueryFont may still find it. */
4587 /* See if we've already loaded a matching font. */
4588 already_loaded
= -1;
4589 if (n_matching_fonts
!= 0)
4593 for (i
= 0; i
< FRAME_X_DISPLAY_INFO (f
)->n_fonts
; i
++)
4594 for (j
= 0; j
< n_matching_fonts
; j
++)
4595 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->font_table
[i
].name
, font_names
[j
])
4596 || !strcmp (FRAME_X_DISPLAY_INFO (f
)->font_table
[i
].full_name
, font_names
[j
]))
4599 fontname
= FRAME_X_DISPLAY_INFO (f
)->font_table
[i
].full_name
;
4605 /* If we have, just return it from the table. */
4606 if (already_loaded
>= 0)
4607 f
->display
.x
->font
= FRAME_X_DISPLAY_INFO (f
)->font_table
[already_loaded
].font
;
4608 /* Otherwise, load the font and add it to the table. */
4616 /* Try to find a character-cell font in the list. */
4618 /* A laudable goal, but this isn't how to do it. */
4619 for (i
= 0; i
< n_matching_fonts
; i
++)
4620 if (! font_info
[i
].per_char
)
4626 /* See comment above. */
4627 if (n_matching_fonts
!= 0)
4628 fontname
= font_names
[i
];
4630 font
= (XFontStruct
*) XLoadQueryFont (FRAME_X_DISPLAY (f
), fontname
);
4633 /* Free the information from XListFonts. */
4634 if (n_matching_fonts
)
4635 XFreeFontNames (font_names
);
4639 /* Do we need to create the table? */
4640 if (FRAME_X_DISPLAY_INFO (f
)->font_table_size
== 0)
4642 FRAME_X_DISPLAY_INFO (f
)->font_table_size
= 16;
4643 FRAME_X_DISPLAY_INFO (f
)->font_table
4644 = (struct font_info
*) xmalloc (FRAME_X_DISPLAY_INFO (f
)->font_table_size
4645 * sizeof (struct font_info
));
4647 /* Do we need to grow the table? */
4648 else if (FRAME_X_DISPLAY_INFO (f
)->n_fonts
4649 >= FRAME_X_DISPLAY_INFO (f
)->font_table_size
)
4651 FRAME_X_DISPLAY_INFO (f
)->font_table_size
*= 2;
4652 FRAME_X_DISPLAY_INFO (f
)->font_table
4653 = (struct font_info
*) xrealloc (FRAME_X_DISPLAY_INFO (f
)->font_table
,
4654 (FRAME_X_DISPLAY_INFO (f
)->font_table_size
4655 * sizeof (struct font_info
)));
4658 /* Try to get the full name of FONT. Put it in full_name. */
4660 for (i
= 0; i
< font
->n_properties
; i
++)
4663 = XGetAtomName (FRAME_X_DISPLAY (f
), font
->properties
[i
].name
);
4664 if (!strcmp (atom
, "FONT"))
4666 char *name
= XGetAtomName (FRAME_X_DISPLAY (f
),
4667 (Atom
) (font
->properties
[i
].card32
));
4671 /* Count the number of dashes in the "full name".
4672 If it is too few, this isn't really the font's full name,
4674 In X11R4, the fonts did not come with their canonical names
4692 n_fonts
= FRAME_X_DISPLAY_INFO (f
)->n_fonts
;
4693 FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].name
= (char *) xmalloc (strlen (fontname
) + 1);
4694 bcopy (fontname
, FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].name
, strlen (fontname
) + 1);
4696 FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].full_name
= full_name
;
4698 FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].full_name
= FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].name
;
4699 f
->display
.x
->font
= FRAME_X_DISPLAY_INFO (f
)->font_table
[n_fonts
].font
= font
;
4700 FRAME_X_DISPLAY_INFO (f
)->n_fonts
++;
4703 fontname
= full_name
;
4706 /* Compute the scroll bar width in character columns. */
4707 if (f
->scroll_bar_pixel_width
> 0)
4709 int wid
= FONT_WIDTH (f
->display
.x
->font
);
4710 f
->scroll_bar_cols
= (f
->scroll_bar_pixel_width
+ wid
-1) / wid
;
4713 f
->scroll_bar_cols
= 2;
4715 /* Now make the frame display the given font. */
4716 if (FRAME_X_WINDOW (f
) != 0)
4718 XSetFont (FRAME_X_DISPLAY (f
), f
->display
.x
->normal_gc
,
4719 f
->display
.x
->font
->fid
);
4720 XSetFont (FRAME_X_DISPLAY (f
), f
->display
.x
->reverse_gc
,
4721 f
->display
.x
->font
->fid
);
4722 XSetFont (FRAME_X_DISPLAY (f
), f
->display
.x
->cursor_gc
,
4723 f
->display
.x
->font
->fid
);
4725 frame_update_line_height (f
);
4726 x_set_window_size (f
, 0, f
->width
, f
->height
);
4729 /* If we are setting a new frame's font for the first time,
4730 there are no faces yet, so this font's height is the line height. */
4731 f
->display
.x
->line_height
= FONT_HEIGHT (f
->display
.x
->font
);
4734 Lisp_Object lispy_name
;
4736 lispy_name
= build_string (fontname
);
4738 /* Free the information from XListFonts. The data
4739 we actually retain comes from XLoadQueryFont. */
4740 XFreeFontNames (font_names
);
4746 x_calc_absolute_position (f
)
4750 int win_x
= 0, win_y
= 0;
4751 int flags
= f
->display
.x
->size_hint_flags
;
4753 /* Find the position of the outside upper-left corner of
4754 the inner window, with respect to the outer window. */
4755 if (f
->display
.x
->parent_desc
!= FRAME_X_DISPLAY_INFO (f
)->root_window
)
4758 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
4760 /* From-window, to-window. */
4761 f
->display
.x
->window_desc
,
4762 f
->display
.x
->parent_desc
,
4764 /* From-position, to-position. */
4765 0, 0, &win_x
, &win_y
,
4772 /* Treat negative positions as relative to the leftmost bottommost
4773 position that fits on the screen. */
4774 if (flags
& XNegative
)
4775 f
->display
.x
->left_pos
= (FRAME_X_DISPLAY_INFO (f
)->width
4776 - 2 * f
->display
.x
->border_width
- win_x
4778 + f
->display
.x
->left_pos
);
4780 if (flags
& YNegative
)
4781 f
->display
.x
->top_pos
= (FRAME_X_DISPLAY_INFO (f
)->height
4782 - 2 * f
->display
.x
->border_width
- win_y
4784 + f
->display
.x
->top_pos
);
4785 /* The left_pos and top_pos
4786 are now relative to the top and left screen edges,
4787 so the flags should correspond. */
4788 f
->display
.x
->size_hint_flags
&= ~ (XNegative
| YNegative
);
4791 /* CHANGE_GRAVITY is 1 when calling from Fset_frame_position,
4792 to really change the position, and 0 when calling from
4793 x_make_frame_visible (in that case, XOFF and YOFF are the current
4794 position values). */
4796 x_set_offset (f
, xoff
, yoff
, change_gravity
)
4798 register int xoff
, yoff
;
4803 f
->display
.x
->top_pos
= yoff
;
4804 f
->display
.x
->left_pos
= xoff
;
4805 f
->display
.x
->size_hint_flags
&= ~ (XNegative
| YNegative
);
4807 f
->display
.x
->size_hint_flags
|= XNegative
;
4809 f
->display
.x
->size_hint_flags
|= YNegative
;
4810 f
->display
.x
->win_gravity
= NorthWestGravity
;
4812 x_calc_absolute_position (f
);
4815 x_wm_set_size_hint (f
, 0, 0);
4817 #ifdef USE_X_TOOLKIT
4818 XMoveWindow (FRAME_X_DISPLAY (f
), XtWindow (f
->display
.x
->widget
),
4819 f
->display
.x
->left_pos
, f
->display
.x
->top_pos
);
4820 #else /* not USE_X_TOOLKIT */
4821 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4822 f
->display
.x
->left_pos
, f
->display
.x
->top_pos
);
4823 #endif /* not USE_X_TOOLKIT */
4827 /* Call this to change the size of frame F's x-window.
4828 If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity
4829 for this size change and subsequent size changes.
4830 Otherwise we leave the window gravity unchanged. */
4832 x_set_window_size (f
, change_gravity
, cols
, rows
)
4837 int pixelwidth
, pixelheight
;
4840 #ifdef USE_X_TOOLKIT
4843 /* The x and y position of the widget is clobbered by the
4844 call to XtSetValues within EmacsFrameSetCharSize.
4845 This is a real kludge, but I don't understand Xt so I can't
4846 figure out a correct fix. Can anyone else tell me? -- rms. */
4847 int xpos
= f
->display
.x
->widget
->core
.x
;
4848 int ypos
= f
->display
.x
->widget
->core
.y
;
4849 EmacsFrameSetCharSize (f
->display
.x
->edit_widget
, cols
, rows
);
4850 f
->display
.x
->widget
->core
.x
= xpos
;
4851 f
->display
.x
->widget
->core
.y
= ypos
;
4855 #else /* not USE_X_TOOLKIT */
4859 check_frame_size (f
, &rows
, &cols
);
4860 f
->display
.x
->vertical_scroll_bar_extra
4861 = (!FRAME_HAS_VERTICAL_SCROLL_BARS (f
)
4863 : FRAME_SCROLL_BAR_PIXEL_WIDTH (f
) > 0
4864 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f
)
4865 : (FRAME_SCROLL_BAR_COLS (f
) * FONT_WIDTH (f
->display
.x
->font
)));
4866 pixelwidth
= CHAR_TO_PIXEL_WIDTH (f
, cols
);
4867 pixelheight
= CHAR_TO_PIXEL_HEIGHT (f
, rows
);
4869 f
->display
.x
->win_gravity
= NorthWestGravity
;
4870 x_wm_set_size_hint (f
, 0, 0);
4872 XSync (FRAME_X_DISPLAY (f
), False
);
4873 XResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4874 pixelwidth
, pixelheight
);
4876 /* Now, strictly speaking, we can't be sure that this is accurate,
4877 but the window manager will get around to dealing with the size
4878 change request eventually, and we'll hear how it went when the
4879 ConfigureNotify event gets here.
4881 We could just not bother storing any of this information here,
4882 and let the ConfigureNotify event set everything up, but that
4883 might be kind of confusing to the lisp code, since size changes
4884 wouldn't be reported in the frame parameters until some random
4885 point in the future when the ConfigureNotify event arrives. */
4886 change_frame_size (f
, rows
, cols
, 0, 0);
4887 PIXEL_WIDTH (f
) = pixelwidth
;
4888 PIXEL_HEIGHT (f
) = pixelheight
;
4890 /* If cursor was outside the new size, mark it as off. */
4891 if (f
->phys_cursor_y
>= rows
4892 || f
->phys_cursor_x
>= cols
)
4894 f
->phys_cursor_x
= -1;
4895 f
->phys_cursor_y
= -1;
4898 /* We've set {FRAME,PIXEL}_{WIDTH,HEIGHT} to the values we hope to
4899 receive in the ConfigureNotify event; if we get what we asked
4900 for, then the event won't cause the screen to become garbaged, so
4901 we have to make sure to do it here. */
4902 SET_FRAME_GARBAGED (f
);
4904 XFlush (FRAME_X_DISPLAY (f
));
4906 #endif /* not USE_X_TOOLKIT */
4909 /* Mouse warping, focus shifting, raising and lowering. */
4912 x_set_mouse_position (f
, x
, y
)
4918 pix_x
= CHAR_TO_PIXEL_COL (f
, x
) + FONT_WIDTH (f
->display
.x
->font
) / 2;
4919 pix_y
= CHAR_TO_PIXEL_ROW (f
, y
) + f
->display
.x
->line_height
/ 2;
4921 if (pix_x
< 0) pix_x
= 0;
4922 if (pix_x
> PIXEL_WIDTH (f
)) pix_x
= PIXEL_WIDTH (f
);
4924 if (pix_y
< 0) pix_y
= 0;
4925 if (pix_y
> PIXEL_HEIGHT (f
)) pix_y
= PIXEL_HEIGHT (f
);
4929 XWarpPointer (FRAME_X_DISPLAY (f
), None
, FRAME_X_WINDOW (f
),
4930 0, 0, 0, 0, pix_x
, pix_y
);
4934 /* Move the mouse to position pixel PIX_X, PIX_Y relative to frame F. */
4937 x_set_mouse_pixel_position (f
, pix_x
, pix_y
)
4943 XWarpPointer (FRAME_X_DISPLAY (f
), None
, FRAME_X_WINDOW (f
),
4944 0, 0, 0, 0, pix_x
, pix_y
);
4948 x_focus_on_frame (f
)
4951 #if 0 /* This proves to be unpleasant. */
4955 /* I don't think that the ICCCM allows programs to do things like this
4956 without the interaction of the window manager. Whatever you end up
4957 doing with this code, do it to x_unfocus_frame too. */
4958 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
4959 RevertToPointerRoot
, CurrentTime
);
4967 /* Look at the remarks in x_focus_on_frame. */
4968 if (x_focus_frame
== f
)
4969 XSetInputFocus (FRAME_X_DISPLAY (f
), PointerRoot
,
4970 RevertToPointerRoot
, CurrentTime
);
4974 /* Raise frame F. */
4979 if (f
->async_visible
)
4982 #ifdef USE_X_TOOLKIT
4983 XRaiseWindow (FRAME_X_DISPLAY (f
), XtWindow (f
->display
.x
->widget
));
4984 #else /* not USE_X_TOOLKIT */
4985 XRaiseWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
4986 #endif /* not USE_X_TOOLKIT */
4987 XFlush (FRAME_X_DISPLAY (f
));
4992 /* Lower frame F. */
4997 if (f
->async_visible
)
5000 #ifdef USE_X_TOOLKIT
5001 XLowerWindow (FRAME_X_DISPLAY (f
), XtWindow (f
->display
.x
->widget
));
5002 #else /* not USE_X_TOOLKIT */
5003 XLowerWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5004 #endif /* not USE_X_TOOLKIT */
5005 XFlush (FRAME_X_DISPLAY (f
));
5011 XTframe_raise_lower (f
, raise
)
5021 /* Change from withdrawn state to mapped state,
5024 x_make_frame_visible (f
)
5032 type
= x_icon_type (f
);
5034 x_bitmap_icon (f
, type
);
5036 if (! FRAME_VISIBLE_P (f
))
5038 #ifndef USE_X_TOOLKIT
5039 if (! FRAME_ICONIFIED_P (f
))
5040 x_set_offset (f
, f
->display
.x
->left_pos
, f
->display
.x
->top_pos
, 0);
5043 if (! EQ (Vx_no_window_manager
, Qt
))
5044 x_wm_set_window_state (f
, NormalState
);
5045 #ifdef USE_X_TOOLKIT
5046 /* This was XtPopup, but that did nothing for an iconified frame. */
5047 XtMapWidget (f
->display
.x
->widget
);
5048 #else /* not USE_X_TOOLKIT */
5049 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5050 #endif /* not USE_X_TOOLKIT */
5051 #if 0 /* This seems to bring back scroll bars in the wrong places
5052 if the window configuration has changed. They seem
5053 to come back ok without this. */
5054 if (FRAME_HAS_VERTICAL_SCROLL_BARS (f
))
5055 XMapSubwindows (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5059 XFlush (FRAME_X_DISPLAY (f
));
5061 /* Synchronize to ensure Emacs knows the frame is visible
5062 before we do anything else. We do this loop with input not blocked
5063 so that incoming events are handled. */
5066 int count
= input_signal_count
;
5068 /* This must come after we set COUNT. */
5071 XSETFRAME (frame
, f
);
5076 /* Once we have handled input events,
5077 we should have received the MapNotify if one is coming.
5078 So if we have not got it yet, stop looping.
5079 Some window managers make their own decisions
5080 about visibility. */
5081 if (input_signal_count
!= count
)
5083 /* Machines that do polling rather than SIGIO have been observed
5084 to go into a busy-wait here. So we'll fake an alarm signal
5085 to let the handler know that there's something to be read.
5086 We used to raise a real alarm, but it seems that the handler
5087 isn't always enabled here. This is probably a bug. */
5088 if (input_polling_used ())
5090 /* It could be confusing if a real alarm arrives while processing
5091 the fake one. Turn it off and let the handler reset it. */
5093 input_poll_signal ();
5095 /* Once we have handled input events,
5096 we should have received the MapNotify if one is coming.
5097 So if we have not got it yet, stop looping.
5098 Some window managers make their own decisions
5099 about visibility. */
5100 if (input_signal_count
!= count
)
5103 FRAME_SAMPLE_VISIBILITY (f
);
5107 /* Change from mapped state to withdrawn state. */
5109 x_make_frame_invisible (f
)
5115 #ifdef USE_X_TOOLKIT
5116 /* Use the frame's outermost window, not the one we normally draw on. */
5117 window
= XtWindow (f
->display
.x
->widget
);
5118 #else /* not USE_X_TOOLKIT */
5119 window
= FRAME_X_WINDOW (f
);
5120 #endif /* not USE_X_TOOLKIT */
5122 /* Don't keep the highlight on an invisible frame. */
5123 if (x_highlight_frame
== f
)
5124 x_highlight_frame
= 0;
5126 #if 0/* This might add unreliability; I don't trust it -- rms. */
5127 if (! f
->async_visible
&& ! f
->async_iconified
)
5133 /* Before unmapping the window, update the WM_SIZE_HINTS property to claim
5134 that the current position of the window is user-specified, rather than
5135 program-specified, so that when the window is mapped again, it will be
5136 placed at the same location, without forcing the user to position it
5137 by hand again (they have already done that once for this window.) */
5138 x_wm_set_size_hint (f
, 0, 1);
5142 if (! XWithdrawWindow (FRAME_X_DISPLAY (f
), window
,
5143 DefaultScreen (FRAME_X_DISPLAY (f
))))
5145 UNBLOCK_INPUT_RESIGNAL
;
5146 error ("Can't notify window manager of window withdrawal");
5148 #else /* ! defined (HAVE_X11R4) */
5150 /* Tell the window manager what we're going to do. */
5151 if (! EQ (Vx_no_window_manager
, Qt
))
5155 unmap
.xunmap
.type
= UnmapNotify
;
5156 unmap
.xunmap
.window
= window
;
5157 unmap
.xunmap
.event
= DefaultRootWindow (FRAME_X_DISPLAY (f
));
5158 unmap
.xunmap
.from_configure
= False
;
5159 if (! XSendEvent (FRAME_X_DISPLAY (f
),
5160 DefaultRootWindow (FRAME_X_DISPLAY (f
)),
5162 SubstructureRedirectMask
|SubstructureNotifyMask
,
5165 UNBLOCK_INPUT_RESIGNAL
;
5166 error ("Can't notify window manager of withdrawal");
5170 /* Unmap the window ourselves. Cheeky! */
5171 XUnmapWindow (FRAME_X_DISPLAY (f
), window
);
5172 #endif /* ! defined (HAVE_X11R4) */
5174 /* We can't distinguish this from iconification
5175 just by the event that we get from the server.
5176 So we can't win using the usual strategy of letting
5177 FRAME_SAMPLE_VISIBILITY set this. So do it by hand,
5178 and synchronize with the server to make sure we agree. */
5180 FRAME_ICONIFIED_P (f
) = 0;
5181 f
->async_visible
= 0;
5182 f
->async_iconified
= 0;
5189 /* Change window state from mapped to iconified. */
5198 /* Don't keep the highlight on an invisible frame. */
5199 if (x_highlight_frame
== f
)
5200 x_highlight_frame
= 0;
5202 if (f
->async_iconified
)
5207 type
= x_icon_type (f
);
5209 x_bitmap_icon (f
, type
);
5211 #ifdef USE_X_TOOLKIT
5213 if (! FRAME_VISIBLE_P (f
))
5215 if (! EQ (Vx_no_window_manager
, Qt
))
5216 x_wm_set_window_state (f
, IconicState
);
5217 /* This was XtPopup, but that did nothing for an iconified frame. */
5218 XtMapWidget (f
->display
.x
->widget
);
5223 result
= XIconifyWindow (FRAME_X_DISPLAY (f
),
5224 XtWindow (f
->display
.x
->widget
),
5225 DefaultScreen (FRAME_X_DISPLAY (f
)));
5229 error ("Can't notify window manager of iconification");
5231 f
->async_iconified
= 1;
5234 XFlush (FRAME_X_DISPLAY (f
));
5236 #else /* not USE_X_TOOLKIT */
5238 /* Make sure the X server knows where the window should be positioned,
5239 in case the user deiconifies with the window manager. */
5240 if (! FRAME_VISIBLE_P (f
) && !FRAME_ICONIFIED_P (f
))
5241 x_set_offset (f
, f
->display
.x
->left_pos
, f
->display
.x
->top_pos
, 0);
5243 /* Since we don't know which revision of X we're running, we'll use both
5244 the X11R3 and X11R4 techniques. I don't know if this is a good idea. */
5246 /* X11R4: send a ClientMessage to the window manager using the
5247 WM_CHANGE_STATE type. */
5251 message
.xclient
.window
= FRAME_X_WINDOW (f
);
5252 message
.xclient
.type
= ClientMessage
;
5253 message
.xclient
.message_type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_change_state
;
5254 message
.xclient
.format
= 32;
5255 message
.xclient
.data
.l
[0] = IconicState
;
5257 if (! XSendEvent (FRAME_X_DISPLAY (f
),
5258 DefaultRootWindow (FRAME_X_DISPLAY (f
)),
5260 SubstructureRedirectMask
| SubstructureNotifyMask
,
5263 UNBLOCK_INPUT_RESIGNAL
;
5264 error ("Can't notify window manager of iconification");
5268 /* X11R3: set the initial_state field of the window manager hints to
5270 x_wm_set_window_state (f
, IconicState
);
5272 if (!FRAME_VISIBLE_P (f
))
5274 /* If the frame was withdrawn, before, we must map it. */
5275 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5278 f
->async_iconified
= 1;
5280 XFlush (FRAME_X_DISPLAY (f
));
5282 #endif /* not USE_X_TOOLKIT */
5285 /* Destroy the X window of frame F. */
5287 x_destroy_window (f
)
5290 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
5294 if (f
->display
.x
->icon_desc
!= 0)
5295 XDestroyWindow (FRAME_X_DISPLAY (f
), f
->display
.x
->icon_desc
);
5296 XDestroyWindow (FRAME_X_DISPLAY (f
), f
->display
.x
->window_desc
);
5297 #ifdef USE_X_TOOLKIT
5298 XtDestroyWidget (f
->display
.x
->widget
);
5299 free_frame_menubar (f
);
5300 #endif /* USE_X_TOOLKIT */
5302 free_frame_faces (f
);
5303 XFlush (FRAME_X_DISPLAY (f
));
5305 xfree (f
->display
.x
);
5307 if (f
== x_focus_frame
)
5309 if (f
== x_focus_event_frame
)
5310 x_focus_event_frame
= 0;
5311 if (f
== x_highlight_frame
)
5312 x_highlight_frame
= 0;
5314 dpyinfo
->reference_count
--;
5316 if (f
== dpyinfo
->mouse_face_mouse_frame
)
5318 dpyinfo
->mouse_face_beg_row
5319 = dpyinfo
->mouse_face_beg_col
= -1;
5320 dpyinfo
->mouse_face_end_row
5321 = dpyinfo
->mouse_face_end_col
= -1;
5322 dpyinfo
->mouse_face_window
= Qnil
;
5328 /* Setting window manager hints. */
5330 /* Set the normal size hints for the window manager, for frame F.
5331 FLAGS is the flags word to use--or 0 meaning preserve the flags
5332 that the window now has.
5333 If USER_POSITION is nonzero, we set the USPosition
5334 flag (this is useful when FLAGS is 0). */
5336 x_wm_set_size_hint (f
, flags
, user_position
)
5341 XSizeHints size_hints
;
5343 #ifdef USE_X_TOOLKIT
5346 Dimension widget_width
, widget_height
;
5347 Window window
= XtWindow (f
->display
.x
->widget
);
5348 #else /* not USE_X_TOOLKIT */
5349 Window window
= FRAME_X_WINDOW (f
);
5350 #endif /* not USE_X_TOOLKIT */
5352 /* Setting PMaxSize caused various problems. */
5353 size_hints
.flags
= PResizeInc
| PMinSize
/* | PMaxSize */;
5355 flexlines
= f
->height
;
5357 size_hints
.x
= f
->display
.x
->left_pos
;
5358 size_hints
.y
= f
->display
.x
->top_pos
;
5360 #ifdef USE_X_TOOLKIT
5361 XtSetArg (al
[ac
], XtNwidth
, &widget_width
); ac
++;
5362 XtSetArg (al
[ac
], XtNheight
, &widget_height
); ac
++;
5363 XtGetValues (f
->display
.x
->column_widget
, al
, ac
);
5364 size_hints
.height
= widget_height
;
5365 size_hints
.width
= widget_width
;
5366 #else /* not USE_X_TOOLKIT */
5367 size_hints
.height
= PIXEL_HEIGHT (f
);
5368 size_hints
.width
= PIXEL_WIDTH (f
);
5369 #endif /* not USE_X_TOOLKIT */
5371 size_hints
.width_inc
= FONT_WIDTH (f
->display
.x
->font
);
5372 size_hints
.height_inc
= f
->display
.x
->line_height
;
5373 size_hints
.max_width
5374 = FRAME_X_DISPLAY_INFO (f
)->width
- CHAR_TO_PIXEL_WIDTH (f
, 0);
5375 size_hints
.max_height
5376 = FRAME_X_DISPLAY_INFO (f
)->height
- CHAR_TO_PIXEL_HEIGHT (f
, 0);
5379 int base_width
, base_height
;
5380 int min_rows
= 0, min_cols
= 0;
5382 base_width
= CHAR_TO_PIXEL_WIDTH (f
, 0);
5383 base_height
= CHAR_TO_PIXEL_HEIGHT (f
, 0);
5385 check_frame_size (f
, &min_rows
, &min_cols
);
5387 /* The window manager uses the base width hints to calculate the
5388 current number of rows and columns in the frame while
5389 resizing; min_width and min_height aren't useful for this
5390 purpose, since they might not give the dimensions for a
5391 zero-row, zero-column frame.
5393 We use the base_width and base_height members if we have
5394 them; otherwise, we set the min_width and min_height members
5395 to the size for a zero x zero frame. */
5398 size_hints
.flags
|= PBaseSize
;
5399 size_hints
.base_width
= base_width
;
5400 size_hints
.base_height
= base_height
;
5401 size_hints
.min_width
= base_width
+ min_cols
* size_hints
.width_inc
;
5402 size_hints
.min_height
= base_height
+ min_rows
* size_hints
.height_inc
;
5404 size_hints
.min_width
= base_width
;
5405 size_hints
.min_height
= base_height
;
5410 size_hints
.flags
|= flags
;
5413 XSizeHints hints
; /* Sometimes I hate X Windows... */
5414 long supplied_return
;
5418 value
= XGetWMNormalHints (FRAME_X_DISPLAY (f
), window
, &hints
,
5421 value
= XGetNormalHints (FRAME_X_DISPLAY (f
), window
, &hints
);
5426 if (hints
.flags
& PSize
)
5427 size_hints
.flags
|= PSize
;
5428 if (hints
.flags
& PPosition
)
5429 size_hints
.flags
|= PPosition
;
5430 if (hints
.flags
& USPosition
)
5431 size_hints
.flags
|= USPosition
;
5432 if (hints
.flags
& USSize
)
5433 size_hints
.flags
|= USSize
;
5437 size_hints
.win_gravity
= f
->display
.x
->win_gravity
;
5438 size_hints
.flags
|= PWinGravity
;
5442 size_hints
.flags
&= ~ PPosition
;
5443 size_hints
.flags
|= USPosition
;
5445 #endif /* PWinGravity */
5448 XSetWMNormalHints (FRAME_X_DISPLAY (f
), window
, &size_hints
);
5450 XSetNormalHints (FRAME_X_DISPLAY (f
), window
, &size_hints
);
5454 /* Used for IconicState or NormalState */
5455 x_wm_set_window_state (f
, state
)
5459 #ifdef USE_X_TOOLKIT
5462 XtSetArg (al
[0], XtNinitialState
, state
);
5463 XtSetValues (f
->display
.x
->widget
, al
, 1);
5464 #else /* not USE_X_TOOLKIT */
5465 Window window
= FRAME_X_WINDOW (f
);
5467 f
->display
.x
->wm_hints
.flags
|= StateHint
;
5468 f
->display
.x
->wm_hints
.initial_state
= state
;
5470 XSetWMHints (FRAME_X_DISPLAY (f
), window
, &f
->display
.x
->wm_hints
);
5471 #endif /* not USE_X_TOOLKIT */
5474 x_wm_set_icon_pixmap (f
, pixmap_id
)
5478 #ifdef USE_X_TOOLKIT
5479 Window window
= XtWindow (f
->display
.x
->widget
);
5481 Window window
= FRAME_X_WINDOW (f
);
5486 Pixmap icon_pixmap
= x_bitmap_pixmap (f
, pixmap_id
);
5487 f
->display
.x
->wm_hints
.icon_pixmap
= icon_pixmap
;
5488 f
->display
.x
->wm_hints
.flags
|= IconPixmapHint
;
5492 f
->display
.x
->wm_hints
.icon_pixmap
= None
;
5493 f
->display
.x
->wm_hints
.flags
&= ~IconPixmapHint
;
5496 XSetWMHints (FRAME_X_DISPLAY (f
), window
, &f
->display
.x
->wm_hints
);
5499 x_wm_set_icon_position (f
, icon_x
, icon_y
)
5503 #ifdef USE_X_TOOLKIT
5504 Window window
= XtWindow (f
->display
.x
->widget
);
5506 Window window
= FRAME_X_WINDOW (f
);
5509 f
->display
.x
->wm_hints
.flags
|= IconPositionHint
;
5510 f
->display
.x
->wm_hints
.icon_x
= icon_x
;
5511 f
->display
.x
->wm_hints
.icon_y
= icon_y
;
5513 XSetWMHints (FRAME_X_DISPLAY (f
), window
, &f
->display
.x
->wm_hints
);
5517 /* Initialization. */
5519 #ifdef USE_X_TOOLKIT
5520 static XrmOptionDescRec emacs_options
[] = {
5521 {"-geometry", ".geometry", XrmoptionSepArg
, NULL
},
5522 {"-iconic", ".iconic", XrmoptionNoArg
, (XtPointer
) "yes"},
5524 {"-internal-border-width", "*EmacsScreen.internalBorderWidth",
5525 XrmoptionSepArg
, NULL
},
5526 {"-ib", "*EmacsScreen.internalBorderWidth", XrmoptionSepArg
, NULL
},
5528 {"-T", "*EmacsShell.title", XrmoptionSepArg
, (XtPointer
) NULL
},
5529 {"-wn", "*EmacsShell.title", XrmoptionSepArg
, (XtPointer
) NULL
},
5530 {"-title", "*EmacsShell.title", XrmoptionSepArg
, (XtPointer
) NULL
},
5531 {"-iconname", "*EmacsShell.iconName", XrmoptionSepArg
, (XtPointer
) NULL
},
5532 {"-in", "*EmacsShell.iconName", XrmoptionSepArg
, (XtPointer
) NULL
},
5533 {"-mc", "*pointerColor", XrmoptionSepArg
, (XtPointer
) NULL
},
5534 {"-cr", "*cursorColor", XrmoptionSepArg
, (XtPointer
) NULL
}
5536 #endif /* USE_X_TOOLKIT */
5538 static int x_initialized
;
5540 struct x_display_info
*
5541 x_term_init (display_name
, xrm_option
, resource_name
)
5542 Lisp_Object display_name
;
5544 char *resource_name
;
5550 struct x_display_info
*dpyinfo
;
5559 #ifdef USE_X_TOOLKIT
5561 XtSetLanguageProc (NULL
, NULL
, NULL
);
5572 argv
[argc
++] = "-xrm";
5573 argv
[argc
++] = xrm_option
;
5575 dpy
= XtOpenDisplay (Xt_app_con
, XSTRING (display_name
)->data
,
5576 resource_name
, EMACS_CLASS
,
5577 emacs_options
, XtNumber (emacs_options
),
5581 #else /* not USE_X_TOOLKIT */
5583 XSetLocaleModifiers ("");
5585 dpy
= XOpenDisplay (XSTRING (display_name
)->data
);
5586 #endif /* not USE_X_TOOLKIT */
5588 /* Detect failure. */
5592 /* We have definitely succeeded. Record the new connection. */
5594 dpyinfo
= (struct x_display_info
*) xmalloc (sizeof (struct x_display_info
));
5596 #ifdef MULTI_PERDISPLAY
5597 init_perdisplay (&dpyinfo
->perdisplay
);
5598 dpyinfo
->perdisplay
.next_perdisplay
= all_perdisplays
;
5599 all_perdisplays
= &dpyinfo
->perdisplay
;
5602 /* Put this display on the chain. */
5603 dpyinfo
->next
= x_display_list
;
5604 x_display_list
= dpyinfo
;
5606 /* Put it on x_display_name_list as well, to keep them parallel. */
5607 x_display_name_list
= Fcons (Fcons (display_name
, Qnil
),
5608 x_display_name_list
);
5609 dpyinfo
->name_list_element
= XCONS (x_display_name_list
)->car
;
5611 dpyinfo
->display
= dpy
;
5614 XSetAfterFunction (x_current_display
, x_trace_wire
);
5618 = (char *) xmalloc (XSTRING (Vinvocation_name
)->size
5619 + XSTRING (Vsystem_name
)->size
5621 sprintf (dpyinfo
->x_id_name
, "%s@%s",
5622 XSTRING (Vinvocation_name
)->data
, XSTRING (Vsystem_name
)->data
);
5624 /* Figure out which modifier bits mean what. */
5625 x_find_modifier_meanings (dpyinfo
);
5627 /* Get the scroll bar cursor. */
5628 dpyinfo
->vertical_scroll_bar_cursor
5629 = XCreateFontCursor (dpyinfo
->display
, XC_sb_v_double_arrow
);
5631 xrdb
= x_load_resources (dpyinfo
->display
, xrm_option
,
5632 resource_name
, EMACS_CLASS
);
5633 #ifdef HAVE_XRMSETDATABASE
5634 XrmSetDatabase (dpyinfo
->display
, xrdb
);
5636 dpyinfo
->display
->db
= xrdb
;
5638 /* Put thr rdb where we can find it in a way that works on
5640 dpyinfo
->xrdb
= xrdb
;
5642 dpyinfo
->screen
= ScreenOfDisplay (dpyinfo
->display
,
5643 DefaultScreen (dpyinfo
->display
));
5644 dpyinfo
->visual
= select_visual (dpyinfo
->display
, dpyinfo
->screen
,
5645 &dpyinfo
->n_planes
);
5646 dpyinfo
->height
= HeightOfScreen (dpyinfo
->screen
);
5647 dpyinfo
->width
= WidthOfScreen (dpyinfo
->screen
);
5648 dpyinfo
->root_window
= RootWindowOfScreen (dpyinfo
->screen
);
5649 dpyinfo
->grabbed
= 0;
5650 dpyinfo
->reference_count
= 0;
5651 dpyinfo
->icon_bitmap_id
= -1;
5652 dpyinfo
->n_fonts
= 0;
5653 dpyinfo
->font_table_size
= 0;
5654 dpyinfo
->bitmaps
= 0;
5655 dpyinfo
->bitmaps_size
= 0;
5656 dpyinfo
->bitmaps_last
= 0;
5657 dpyinfo
->scratch_cursor_gc
= 0;
5658 dpyinfo
->mouse_face_mouse_frame
= 0;
5659 dpyinfo
->mouse_face_deferred_gc
= 0;
5660 dpyinfo
->mouse_face_beg_row
= dpyinfo
->mouse_face_beg_col
= -1;
5661 dpyinfo
->mouse_face_end_row
= dpyinfo
->mouse_face_end_col
= -1;
5662 dpyinfo
->mouse_face_face_id
= 0;
5663 dpyinfo
->mouse_face_window
= Qnil
;
5664 dpyinfo
->mouse_face_mouse_x
= dpyinfo
->mouse_face_mouse_y
= 0;
5665 dpyinfo
->mouse_face_defer
= 0;
5667 dpyinfo
->Xatom_wm_protocols
5668 = XInternAtom (dpyinfo
->display
, "WM_PROTOCOLS", False
);
5669 dpyinfo
->Xatom_wm_take_focus
5670 = XInternAtom (dpyinfo
->display
, "WM_TAKE_FOCUS", False
);
5671 dpyinfo
->Xatom_wm_save_yourself
5672 = XInternAtom (dpyinfo
->display
, "WM_SAVE_YOURSELF", False
);
5673 dpyinfo
->Xatom_wm_delete_window
5674 = XInternAtom (dpyinfo
->display
, "WM_DELETE_WINDOW", False
);
5675 dpyinfo
->Xatom_wm_change_state
5676 = XInternAtom (dpyinfo
->display
, "WM_CHANGE_STATE", False
);
5677 dpyinfo
->Xatom_wm_configure_denied
5678 = XInternAtom (dpyinfo
->display
, "WM_CONFIGURE_DENIED", False
);
5679 dpyinfo
->Xatom_wm_window_moved
5680 = XInternAtom (dpyinfo
->display
, "WM_MOVED", False
);
5681 dpyinfo
->Xatom_editres
5682 = XInternAtom (dpyinfo
->display
, "Editres", False
);
5683 dpyinfo
->Xatom_CLIPBOARD
5684 = XInternAtom (dpyinfo
->display
, "CLIPBOARD", False
);
5685 dpyinfo
->Xatom_TIMESTAMP
5686 = XInternAtom (dpyinfo
->display
, "TIMESTAMP", False
);
5688 = XInternAtom (dpyinfo
->display
, "TEXT", False
);
5689 dpyinfo
->Xatom_DELETE
5690 = XInternAtom (dpyinfo
->display
, "DELETE", False
);
5691 dpyinfo
->Xatom_MULTIPLE
5692 = XInternAtom (dpyinfo
->display
, "MULTIPLE", False
);
5694 = XInternAtom (dpyinfo
->display
, "INCR", False
);
5695 dpyinfo
->Xatom_EMACS_TMP
5696 = XInternAtom (dpyinfo
->display
, "_EMACS_TMP_", False
);
5697 dpyinfo
->Xatom_TARGETS
5698 = XInternAtom (dpyinfo
->display
, "TARGETS", False
);
5700 = XInternAtom (dpyinfo
->display
, "NULL", False
);
5701 dpyinfo
->Xatom_ATOM_PAIR
5702 = XInternAtom (dpyinfo
->display
, "ATOM_PAIR", False
);
5704 connection
= ConnectionNumber (dpyinfo
->display
);
5705 dpyinfo
->connection
= connection
;
5708 /* This is only needed for distinguishing keyboard and process input. */
5709 if (connection
!= 0)
5710 add_keyboard_wait_descriptor (connection
);
5713 #ifndef F_SETOWN_BUG
5715 #ifdef F_SETOWN_SOCK_NEG
5716 /* stdin is a socket here */
5717 fcntl (connection
, F_SETOWN
, -getpid ());
5718 #else /* ! defined (F_SETOWN_SOCK_NEG) */
5719 fcntl (connection
, F_SETOWN
, getpid ());
5720 #endif /* ! defined (F_SETOWN_SOCK_NEG) */
5721 #endif /* ! defined (F_SETOWN) */
5722 #endif /* F_SETOWN_BUG */
5725 init_sigio (connection
);
5726 #endif /* ! defined (SIGIO) */
5731 /* Get rid of display DPYINFO, assuming all frames are already gone,
5732 and without sending any more commands to the X server. */
5735 x_delete_display (dpyinfo
)
5736 struct x_display_info
*dpyinfo
;
5738 delete_keyboard_wait_descriptor (dpyinfo
->connection
);
5740 /* Discard this display from x_display_name_list and x_display_list.
5741 We can't use Fdelq because that can quit. */
5742 if (! NILP (x_display_name_list
)
5743 && EQ (XCONS (x_display_name_list
)->car
, dpyinfo
->name_list_element
))
5744 x_display_name_list
= XCONS (x_display_name_list
)->cdr
;
5749 tail
= x_display_name_list
;
5750 while (CONSP (tail
) && CONSP (XCONS (tail
)->cdr
))
5752 if (EQ (XCONS (XCONS (tail
)->cdr
)->car
,
5753 dpyinfo
->name_list_element
))
5755 XCONS (tail
)->cdr
= XCONS (XCONS (tail
)->cdr
)->cdr
;
5758 tail
= XCONS (tail
)->cdr
;
5762 if (x_display_list
== dpyinfo
)
5763 x_display_list
= dpyinfo
->next
;
5766 struct x_display_info
*tail
;
5768 for (tail
= x_display_list
; tail
; tail
= tail
->next
)
5769 if (tail
->next
== dpyinfo
)
5770 tail
->next
= tail
->next
->next
;
5773 #ifndef USE_X_TOOLKIT
5774 /* I'm told Xt does this itself. */
5775 XrmDestroyDatabase (dpyinfo
->xrdb
);
5777 #ifdef MULTI_PERDISPLAY
5780 for (perdp
= &all_perdisplays
; *perdp
!= &dpyinfo
->perdisplay
;
5781 perdp
= &(*perdp
)->next_perdisplay
)
5784 *perdp
= dpyinfo
->perdisplay
.next_perdisplay
;
5786 wipe_perdisplay (&dpyinfo
->perdisplay
);
5788 xfree (dpyinfo
->font_table
);
5789 xfree (dpyinfo
->x_id_name
);
5793 /* Set up use of X before we make the first connection. */
5797 clear_frame_hook
= XTclear_frame
;
5798 clear_end_of_line_hook
= XTclear_end_of_line
;
5799 ins_del_lines_hook
= XTins_del_lines
;
5800 change_line_highlight_hook
= XTchange_line_highlight
;
5801 insert_glyphs_hook
= XTinsert_glyphs
;
5802 write_glyphs_hook
= XTwrite_glyphs
;
5803 delete_glyphs_hook
= XTdelete_glyphs
;
5804 ring_bell_hook
= XTring_bell
;
5805 reset_terminal_modes_hook
= XTreset_terminal_modes
;
5806 set_terminal_modes_hook
= XTset_terminal_modes
;
5807 update_begin_hook
= XTupdate_begin
;
5808 update_end_hook
= XTupdate_end
;
5809 set_terminal_window_hook
= XTset_terminal_window
;
5810 read_socket_hook
= XTread_socket
;
5811 frame_up_to_date_hook
= XTframe_up_to_date
;
5812 cursor_to_hook
= XTcursor_to
;
5813 reassert_line_highlight_hook
= XTreassert_line_highlight
;
5814 mouse_position_hook
= XTmouse_position
;
5815 frame_rehighlight_hook
= XTframe_rehighlight
;
5816 frame_raise_lower_hook
= XTframe_raise_lower
;
5817 set_vertical_scroll_bar_hook
= XTset_vertical_scroll_bar
;
5818 condemn_scroll_bars_hook
= XTcondemn_scroll_bars
;
5819 redeem_scroll_bar_hook
= XTredeem_scroll_bar
;
5820 judge_scroll_bars_hook
= XTjudge_scroll_bars
;
5822 scroll_region_ok
= 1; /* we'll scroll partial frames */
5823 char_ins_del_ok
= 0; /* just as fast to write the line */
5824 line_ins_del_ok
= 1; /* we'll just blt 'em */
5825 fast_clear_end_of_line
= 1; /* X does this well */
5826 memory_below_frame
= 0; /* we don't remember what scrolls
5832 x_focus_frame
= x_highlight_frame
= 0;
5834 /* Try to use interrupt input; if we can't, then start polling. */
5835 Fset_input_mode (Qt
, Qnil
, Qt
, Qnil
);
5837 #ifdef USE_X_TOOLKIT
5838 XtToolkitInitialize ();
5839 Xt_app_con
= XtCreateApplicationContext ();
5842 /* Note that there is no real way portable across R3/R4 to get the
5843 original error handler. */
5844 XSetErrorHandler (x_error_quitter
);
5845 XSetIOErrorHandler (x_io_error_quitter
);
5847 /* Disable Window Change signals; they are handled by X events. */
5849 signal (SIGWINCH
, SIG_DFL
);
5850 #endif /* ! defined (SIGWINCH) */
5852 signal (SIGPIPE
, x_connection_signal
);
5858 staticpro (&x_display_name_list
);
5859 x_display_name_list
= Qnil
;
5861 staticpro (&last_mouse_scroll_bar
);
5862 last_mouse_scroll_bar
= Qnil
;
5864 #endif /* ! defined (HAVE_X_WINDOWS) */