From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 5 Apr 2001 13:07:22 +0000 (+0000)
Subject: (Vmotif_version_string) [USE_MOTIF]: New variable.
X-Git-Tag: emacs-pretest-21.0.102~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc2cdd9a0fa5a7ee9c02d4e83459878568d07030;p=emacs.git

(Vmotif_version_string) [USE_MOTIF]: New variable.
(syms_of_xfns): DEFVAR_LISP it.  Initialize from XmVERSION_STRING.
---

diff --git a/src/xfns.c b/src/xfns.c
index 37663e35e09..1e14bc80fe6 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -107,6 +107,14 @@ extern XFontStruct *xlwmenu_default_font;
 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 @@ meaning don't clear the cache.");
 
 #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);