Changeset 3090

Timestamp:

05/28/03 20:19:12 (6 years ago)

Author:

himi

Message:

Deleted needless codes. (Note that these functions are
implimented with elisp based emulation functions.)

Files:

• work/cvs2svn/src/mw32fns.c (modified) (1 diff)

work/cvs2svn/src/mw32fns.c

@@ -4208 +4208 @@
-  return Qt;
-}
-
-
-/***********************************************************************
-           Inspect Device Capability/Intrinsic Facilities.
- ***********************************************************************/
-
-#if 0
-DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
-  0, 1, 0,
-  "Returns the width in pixels of the X display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-
-  return make_number (dpyinfo->width);
-}
-
-DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
-  Sx_display_pixel_height, 0, 1, 0,
-  "Returns the height in pixels of the X display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-
-  return make_number (dpyinfo->height);
-}
-
-DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
-  0, 1, 0,
-  "Returns the number of bitplanes of the X display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-
-  return make_number (dpyinfo->n_planes);
-}
-
-DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
-  0, 1, 0,
-  "Returns the number of color cells of the X display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-
-  return make_number (DisplayCells (dpyinfo->display,
-                                    XScreenNumberOfScreen (dpyinfo->screen)));
-}
-
-DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
-       Sx_server_max_request_size,
-  0, 1, 0,
-  "Returns the maximum request size of the X server of display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-
-  return make_number (MAXREQUEST (dpyinfo->display));
-}
-
-DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
-  "Returns the vendor ID string of the X server of display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-  char *vendor = ServerVendor (dpyinfo->display);
-
-  if (! vendor) vendor = "";
-  return build_string (vendor);
-}
-
-DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
-  "Returns the version numbers of the X server of display DISPLAY.\n\
-The value is a list of three integers: the major and minor\n\
-version numbers of the X Protocol in use, and the vendor-specific release\n\
-number.  See also the function `x-server-vendor'.\n\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-  Display *dpy = dpyinfo->display;
-
-  return Fcons (make_number (ProtocolVersion (dpy)),
-                Fcons (make_number (ProtocolRevision (dpy)),
-                       Fcons (make_number (VendorRelease (dpy)), Qnil)));
-}
-
-DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
-  "Returns the number of screens on the X server of display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-
-  return make_number (ScreenCount (dpyinfo->display));
-}
-
-DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0,
-  "Returns the height in millimeters of the X display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-
-  return make_number (HeightMMOfScreen (dpyinfo->screen));
-}
-
-DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,
-  "Returns the width in millimeters of the X display DISPLAY.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-
-  return make_number (WidthMMOfScreen (dpyinfo->screen));
-}
-
-DEFUN ("x-display-backing-store", Fx_display_backing_store,
-  Sx_display_backing_store, 0, 1, 0,
-  "Returns an indication of whether X display DISPLAY does backing store.\n\
-The value may be `always', `when-mapped', or `not-useful'.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-  Lisp_Object result;
-
-  switch (DoesBackingStore (dpyinfo->screen))
-    {
-    case Always:
-      result = intern ("always");
-      break;
-
-    case WhenMapped:
-      result = intern ("when-mapped");
-      break;
-
-    case NotUseful:
-      result = intern ("not-useful");
-      break;
-
-    default:
-      error ("Strange value for BackingStore parameter of screen");
-      result = Qnil;
-    }
-
-  return result;
-}
-
-DEFUN ("x-display-visual-class", Fx_display_visual_class,
-  Sx_display_visual_class, 0, 1, 0,
-  "Returns the visual class of the X display DISPLAY.\n\
-The value is one of the symbols `static-gray', `gray-scale',\n\
-`static-color', `pseudo-color', `true-color', or `direct-color'.\n\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-        (display)
-     Lisp_Object display;
-{
-  struct x_display_info *dpyinfo = check_mw32_display_info (display);
-  Lisp_Object result;
-
-  switch (dpyinfo->visual->class)
-    {
-    case StaticGray:
-      result = intern ("static-gray");
-      break;
-    case GrayScale:
-      result = intern ("gray-scale");
-      break;
-    case StaticColor:
-      result = intern ("static-color");
-      break;
-    case PseudoColor:
-      result = intern ("pseudo-color");
-      break;
-    case TrueColor:
-      result = intern ("true-color");
-      break;
-    case DirectColor:
-      result = intern ("direct-color");
-      break;
-    default:
-      error ("Display has an unknown visual class");
-      result = Qnil;
-    }
-  
-  return result;
-}
-
-DEFUN ("x-display-save-under", Fx_display_save_under,
-  Sx_display_save_under, 0, 1, 0,
-  "Returns t if the X display DISPLAY supports the save-under feature.\n\
-The optional argument DISPLAY specifies which display to ask about.\n\
-DISPLAY should be either a frame or a display name (a string).\n\
-If omitted or nil, that stands for the selected frame's display.")
-  (display)
-     Lisp_Object display;
-{
-  struct mw32_display_info *dpyinfo = check_mw32_display_info (display);
-
-  if (DoesSaveUnders (dpyinfo->screen) == True)
-    return Qt;
-  else
-    return Qnil;
-}
-#endif
-
-