Mercurial > emacs
comparison src/xterm.c @ 6941:a914781ef58a
(Xatom_editres_name): Variable defined.
(XTread_socket): Handle that kind of message.
(x_term_init): Specify -name option in XtAppInitialize.
(Qface, Qmouse_face): Supply missing Lisp_Object.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 17 Apr 1994 23:46:08 +0000 |
parents | e0ab4f59004e |
children | b18e5c09d7c3 |
comparison
equal
deleted
inserted
replaced
6940:5e194e2529e7 | 6941:a914781ef58a |
---|---|
88 | 88 |
89 #ifdef USE_X_TOOLKIT | 89 #ifdef USE_X_TOOLKIT |
90 extern XtAppContext Xt_app_con; | 90 extern XtAppContext Xt_app_con; |
91 extern Widget Xt_app_shell; | 91 extern Widget Xt_app_shell; |
92 extern void free_frame_menubar (); | 92 extern void free_frame_menubar (); |
93 extern void _XEditResCheckMessages (); | |
93 #endif /* USE_X_TOOLKIT */ | 94 #endif /* USE_X_TOOLKIT */ |
94 | 95 |
95 #ifndef USE_X_TOOLKIT | 96 #ifndef USE_X_TOOLKIT |
96 #define x_any_window_to_frame x_window_to_frame | 97 #define x_any_window_to_frame x_window_to_frame |
97 #endif | 98 #endif |
307 extern Window requestor_window; | 308 extern Window requestor_window; |
308 | 309 |
309 /* Nonzero enables some debugging for the X interface code. */ | 310 /* Nonzero enables some debugging for the X interface code. */ |
310 extern int _Xdebug; | 311 extern int _Xdebug; |
311 | 312 |
312 extern Qface, Qmouse_face; | 313 extern Lisp_Object Qface, Qmouse_face; |
313 | 314 |
314 #else /* ! defined (HAVE_X11) */ | 315 #else /* ! defined (HAVE_X11) */ |
315 | 316 |
316 /* Bit patterns for the mouse cursor. */ | 317 /* Bit patterns for the mouse cursor. */ |
317 | 318 |
3309 Atom Xatom_wm_configure_denied; /* When our config request is denied */ | 3310 Atom Xatom_wm_configure_denied; /* When our config request is denied */ |
3310 Atom Xatom_wm_window_moved; /* When the WM moves us. */ | 3311 Atom Xatom_wm_window_moved; /* When the WM moves us. */ |
3311 | 3312 |
3312 /* Window manager communication. */ | 3313 /* Window manager communication. */ |
3313 Atom Xatom_wm_change_state; | 3314 Atom Xatom_wm_change_state; |
3315 | |
3316 /* EditRes protocol */ | |
3317 Atom Xatom_editres_name; | |
3314 | 3318 |
3315 /* Record the last 100 characters stored | 3319 /* Record the last 100 characters stored |
3316 to help debug the loss-of-chars-during-GC problem. */ | 3320 to help debug the loss-of-chars-during-GC problem. */ |
3317 int temp_index; | 3321 int temp_index; |
3318 short temp_buffer[100]; | 3322 short temp_buffer[100]; |
3448 { | 3452 { |
3449 f->display.x->left_pos = new_x; | 3453 f->display.x->left_pos = new_x; |
3450 f->display.x->top_pos = new_y; | 3454 f->display.x->top_pos = new_y; |
3451 } | 3455 } |
3452 } | 3456 } |
3457 #ifdef USE_X_TOOLKIT | |
3458 else if (event.xclient.message_type == Xatom_editres_name) | |
3459 { | |
3460 struct frame *f = x_any_window_to_frame (event.xclient.window); | |
3461 _XEditResCheckMessages (f->display.x->widget, NULL, &event, NULL); | |
3462 } | |
3463 #endif /* USE_X_TOOLKIT */ | |
3453 } | 3464 } |
3454 break; | 3465 break; |
3455 | 3466 |
3456 #ifdef NEW_SELECTIONS | 3467 #ifdef NEW_SELECTIONS |
3457 case SelectionNotify: | 3468 case SelectionNotify: |
5910 #endif /* F_SETOWN_BUG */ | 5921 #endif /* F_SETOWN_BUG */ |
5911 | 5922 |
5912 x_focus_frame = x_highlight_frame = 0; | 5923 x_focus_frame = x_highlight_frame = 0; |
5913 | 5924 |
5914 #ifdef USE_X_TOOLKIT | 5925 #ifdef USE_X_TOOLKIT |
5915 argv = (char **) XtMalloc (3 * sizeof (char *)); | 5926 argv = (char **) XtMalloc (5 * sizeof (char *)); |
5916 argv [0] = ""; | 5927 argv [0] = ""; |
5917 argv [1] = "-display"; | 5928 argv [1] = "-display"; |
5918 argv [2] = display_name; | 5929 argv [2] = display_name; |
5919 argc = 3; | 5930 argv [3] = "-name"; |
5931 argv [4] = "emacs"; | |
5932 argc = 5; | |
5920 Xt_app_shell = XtAppInitialize (&Xt_app_con, "Emacs", | 5933 Xt_app_shell = XtAppInitialize (&Xt_app_con, "Emacs", |
5921 emacs_options, XtNumber (emacs_options), | 5934 emacs_options, XtNumber (emacs_options), |
5922 &argc, argv, | 5935 &argc, argv, |
5923 NULL, NULL, 0); | 5936 NULL, NULL, 0); |
5924 XtFree (argv); | 5937 XtFree (argv); |