Mercurial > hg > xemacs-beta

comparison src/device-x.c @ 2681:f15523a6da7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-03-24 12:17:51 by aidan] Move to XEmacs for X11 app class, frame name.
author aidan
date Thu, 24 Mar 2005 12:18:02 +0000
parents 166ed8151e62
children 800fef0b5c75
comparison
equal deleted inserted replaced
2680:b26d8b5d0d30 2681:f15523a6da7a
612 if (STRINGP (Vx_emacs_application_class) && 612 if (STRINGP (Vx_emacs_application_class) &&
613 XSTRING_LENGTH (Vx_emacs_application_class) > 0) 613 XSTRING_LENGTH (Vx_emacs_application_class) > 0)
614 LISP_STRING_TO_EXTERNAL (Vx_emacs_application_class, app_class, Qctext); 614 LISP_STRING_TO_EXTERNAL (Vx_emacs_application_class, app_class, Qctext);
615 else 615 else
616 { 616 {
617 app_class = (NILP (Vx_emacs_application_class) && 617 if (egetenv ("USE_EMACS_AS_DEFAULT_APPLICATION_CLASS"))
618 have_xemacs_resources_in_xrdb (dpy)) 618 {
619 app_class = (NILP (Vx_emacs_application_class) &&
620 have_xemacs_resources_in_xrdb (dpy))
619 #ifdef INFODOCK 621 #ifdef INFODOCK
620 ? "InfoDock" 622 ? "InfoDock"
621 #else 623 #else
622 ? "XEmacs" 624 ? "XEmacs"
623 #endif 625 #endif
624 : "Emacs"; 626 : "Emacs";
627 }
628 else
629 {
630 app_class = "XEmacs";
631 }
632
625 /* need to update Vx_emacs_application_class: */ 633 /* need to update Vx_emacs_application_class: */
626 Vx_emacs_application_class = build_string (app_class); 634 Vx_emacs_application_class = build_string (app_class);
627 } 635 }
628 636
629 slow_down_interrupts (); 637 slow_down_interrupts ();
2094 that XEmacs will use. For changes to this variable to take effect, they 2102 that XEmacs will use. For changes to this variable to take effect, they
2095 must be made before the connection to the X server is initialized, that is, 2103 must be made before the connection to the X server is initialized, that is,
2096 this variable may only be changed before emacs is dumped, or by setting it 2104 this variable may only be changed before emacs is dumped, or by setting it
2097 in the file lisp/term/x-win.el. 2105 in the file lisp/term/x-win.el.
2098 2106
2099 If this variable is nil before the connection to the X server is first 2107 If this variable is nil on startup, the application uses `XEmacs'. Versions
2100 initialized (which it is by default), the X resource database will be 2108 previous to 21.5.21 examined the resource database and used `XEmacs' if any
2101 consulted and the value will be set according to whether any resources 2109 resources beginning with that string existed, and `Emacs' otherwise, for
2102 are found for the application class `XEmacs'. If the user has set any 2110 greated backward compatibility. However, this has always tended to conflict
2103 resources for the XEmacs application class, the XEmacs process will use 2111 with GNU Emacs, so this behavior is deprecated--in the short term, you can
2104 the application class `XEmacs'. Otherwise, the XEmacs process will use 2112 restore it in a post-21.5.21 XEmacs by setting the
2105 the application class `Emacs' which is backwards compatible to previous 2113 USE_EMACS_AS_DEFAULT_APPLICATION_CLASS environment variable to some value,
2106 XEmacs versions but may conflict with resources intended for GNU Emacs. 2114 but in the medium and long term, you should migrate your X resources.
2107 */ ); 2115 */ );
2108 Vx_emacs_application_class = Qnil; 2116 Vx_emacs_application_class = Qnil;
2109 2117
2110 DEFVAR_LISP ("x-initial-argv-list", &Vx_initial_argv_list /* 2118 DEFVAR_LISP ("x-initial-argv-list", &Vx_initial_argv_list /*
2111 You don't want to know. 2119 You don't want to know.