changeset 37210:8b47704e0150

(Vmotif_version_string) [USE_MOTIF]: New variable. (syms_of_xfns): DEFVAR_LISP it. Initialize from XmVERSION_STRING.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 05 Apr 2001 13:07:22 +0000
parents ee53d19a78b4
children afa458ac7a62
files src/xfns.c
diffstat 1 files changed, 15 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfns.c	Thu Apr 05 12:29:24 2001 +0000
+++ b/src/xfns.c	Thu Apr 05 13:07:22 2001 +0000
@@ -107,6 +107,14 @@
 extern void free_frame_menubar ();
 extern double atof ();
 
+#ifdef USE_MOTIF
+
+/* LessTif/Motif version info.  */
+
+static Lisp_Object Vmotif_version_string;
+
+#endif /* USE_MOTIF */
+
 #endif /* USE_X_TOOLKIT */
 
 #define min(a,b) ((a) < (b) ? (a) : (b))
@@ -11521,10 +11529,15 @@
 
 #ifdef USE_X_TOOLKIT
   Fprovide (intern ("x-toolkit"));
-#endif
+  
 #ifdef USE_MOTIF
   Fprovide (intern ("motif"));
-#endif
+
+  DEFVAR_LISP ("motif-version-string", &Vmotif_version_string,
+     "Version info for LessTif/Motif.");
+  Vmotif_version_string = build_string (XmVERSION_STRING);
+#endif /* USE_MOTIF */
+#endif /* USE_X_TOOLKIT */
 
   defsubr (&Sx_get_resource);