diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-04-05 13:07:22 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-04-05 13:07:22 +0000 |
| commit | fc2cdd9a0fa5a7ee9c02d4e83459878568d07030 (patch) | |
| tree | 8c2744adbbd6c75a0a7e5a666269d4e6e643a05d | |
| parent | 81a81c0fd1ba782e16216900ada3d4afe6c0ba05 (diff) | |
| download | emacs-fc2cdd9a0fa5a7ee9c02d4e83459878568d07030.tar.gz | |
(Vmotif_version_string) [USE_MOTIF]: New variable.
(syms_of_xfns): DEFVAR_LISP it. Initialize from XmVERSION_STRING.
| -rw-r--r-- | src/xfns.c | 17 |
1 files changed, 15 insertions, 2 deletions
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); |