[Emacs-diffs] Changes to emacs/src/xfns.c

[Lute Kamstra]

Index: emacs/src/xfns.c
diff -c emacs/src/xfns.c:1.591 emacs/src/xfns.c:1.592
*** emacs/src/xfns.c:1.591      Thu Aug 21 15:54:47 2003
--- emacs/src/xfns.c    Tue Aug 26 04:44:35 2003
***************
*** 125,130 ****
--- 125,138 ----
  
  #endif /* USE_X_TOOLKIT */
  
+ #ifdef USE_GTK
+ 
+ /* GTK+ version info */
+ 
+ static Lisp_Object Vgtk_version_string;
+ 
+ #endif /* USE_GTK */
+ 
  #ifdef HAVE_X11R4
  #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
  #else
***************
*** 10898,10903 ****
--- 10906,10924 ----
    Vmotif_version_string = build_string (XmVERSION_STRING);
  #endif /* USE_MOTIF */
  #endif /* USE_X_TOOLKIT */
+ 
+ #ifdef USE_GTK
+   Fprovide (intern ("gtk"), Qnil);
+ 
+   DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string,
+                doc: /* Version info for GTK+.  */);
+   {
+     char gtk_version[40];
+     g_snprintf (gtk_version, sizeof (gtk_version), "%u.%u.%u",
+                 GTK_MAJOR_VERSION, GTK_MINOR_VERSION, GTK_MICRO_VERSION);
+     Vgtk_version_string = build_string (gtk_version);
+   }
+ #endif /* USE_GTK */
  
    /* X window properties.  */
    defsubr (&Sx_change_window_property);