* lisp/version.el (emacs-version): Change '*Step' to 'NS' for consistency with other...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38ce13929bbd70b694bfee2028c905f0e7b77a0f..6e710bb7bdaf3e61750c9d6870da9d9fd716075e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-10-22  Adrian Robert  <Adrian.B.Robert@gmail.com>
+
+       * version.el (emacs-version): Change '*Step' to 'NS' for consistency
+       with other documentation.
+
 2008-10-22  Juanma Barranquero  <lekktu@gmail.com>
 
        * replace.el (how-many): Fix typo in docstring.

diff --git a/lisp/version.el b/lisp/version.el
index c6d2b6ff46211795de0cc4716851457e7ba0b073..e77efaf60a8194db9e3559ad5a03822d1bc99880 100644 (file)
--- a/lisp/version.el
+++ b/lisp/version.el
@@ -66,7 +66,7 @@ to the system configuration; look at `system-configuration' instead."
                        (concat ", GTK+ Version " gtk-version-string))
                       ((featurep 'x-toolkit) ", X toolkit")
                       ((featurep 'ns)
-                       (format ", *Step %s" ns-version-string))
+                       (format ", NS %s" ns-version-string))
                       (t ""))
                 (if (and (boundp 'x-toolkit-scroll-bars)
                          (memq x-toolkit-scroll-bars '(xaw xaw3d)))

diff --git a/src/ChangeLog b/src/ChangeLog
index c4d36b09126def70db42fd3473db18071b3a14fe..d853d5b55a73918ed62a0f3953d823663633affe 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+2008-10-02  Adrian Robert  <Adrian.B.Robert@gmail.com>
+
+       * nsfns.m (ns_appkit_version): New function.
+       (x-server-version): Use it.
+       (syms_of_nsfns): Define ns-version-string here, not nsterm.m.
+       (x-server-vendor): Don't check_ns().
+
+       * nsterm.m (syms_of_nsterm): Drop ns-version-string.
+
 2008-10-22  Juanma Barranquero  <lekktu@gmail.com>
 
        * w32fns.c (unwind_create_frame) [!GLYPH_DEBUG]: Fix xassert.

diff --git a/src/nsfns.m b/src/nsfns.m
index f14851b698f9c23521818f702bd564d39f9dd4e7..459c058f7caa760422570272d5cf28d07aacf37f 100644 (file)
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -86,7 +86,10 @@ char panelOK = 0;
 
 /* Alist of elements (REGEXP . IMAGE) for images of icons associated
    to frames.*/
-Lisp_Object Vns_icon_type_alist;
+static Lisp_Object Vns_icon_type_alist;
+
+/* Toolkit version support. */
+static Lisp_Object Vns_version_string;
 
 EmacsTooltip *ns_tooltip;
 
@@ -950,6 +953,25 @@ ns_set_mouse_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
 }
 
 
+#define Str(x) #x
+#define Xstr(x) Str(x)
+
+static Lisp_Object
+ns_appkit_version ()
+{
+  char tmp[80];
+
+#ifdef NS_IMPL_GNUSTEP
+  sprintf(tmp, "gnustep-gui-%s", Xstr(GNUSTEP_GUI_VERSION));
+#elif defined(NS_IMPL_COCOA)
+  sprintf(tmp, "apple-appkit-%.2f", NSAppKitVersionNumber);
+#else
+  tmp = "ns-unknown";
+#endif
+  return build_string (tmp);
+}
+
+
 static void
 x_icon (struct frame *f, Lisp_Object parms)
 /* --------------------------------------------------------------------------
@@ -1019,6 +1041,13 @@ frame_parm_handler ns_frame_parm_handlers[] =
 };
 
 
+
+/* ==========================================================================
+
+    Lisp definitions
+
+   ========================================================================== */
+
 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
        1, 1, 0,
        doc: /* Make a new Nextstep window, called a \"frame\" in Emacs terms.
@@ -1321,12 +1350,6 @@ be shared by the new frame.  */)
 }
 
 
-/* ==========================================================================
-
-    Lisp definitions
-
-   ========================================================================== */
-
 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
        doc: /* Set the input focus to FRAME.
 FRAME nil means use the selected frame.  */)
@@ -1575,7 +1598,6 @@ If omitted or nil, the selected frame's display is used.  */)
      (display)
      Lisp_Object display;
 {
-  check_ns ();
 #ifdef NS_IMPL_GNUSTEP
   return build_string ("GNU");
 #else
@@ -1592,8 +1614,7 @@ See also the function `ns-server-vendor'.  */)
      (display)
      Lisp_Object display;
 {
-  /* FIXME: return GUI version on GNUstep, ?? on OS X */
-  return build_string ("1.0");
+  return ns_appkit_version ();
 }
 
 
@@ -2640,6 +2661,10 @@ When you miniaturize a Group, Summary or Article frame, Gnus.tiff will
 be used as the image of the icon representing the frame.  */);
   Vns_icon_type_alist = Fcons (Qt, Qnil);
 
+  DEFVAR_LISP ("ns-version-string", &Vns_version_string,
+               doc: /* Toolkit version for NS Windowing.  */);
+  Vns_version_string = ns_appkit_version ();
+
   defsubr (&Sns_read_file_name);
   defsubr (&Sns_get_resource);
   defsubr (&Sns_set_resource);

diff --git a/src/nsterm.m b/src/nsterm.m
index 245dff4930eff415517ed33c3d04bdecf9f5e9e9..5cd64f1d4a35f843ad7e4f4f04cc44e098550138 100644 (file)
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -6379,13 +6379,6 @@ baseline level.  The default value is nil.  */);
 
   /* Tell emacs about this window system. */
   Fprovide (intern ("ns"), Qnil);
-  /* TODO: try to move this back into lisp,  ns-win.el loaded too late
-           right now */
-  {
-    Lisp_Object args[3] = { intern ("ns-version-string"), build_string ("9.0"),
-                    build_string ("NS Window system port version number.") };
-    Fdefconst (Flist (3, args));
-  }
 }