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);