xemacs-beta: src/glyphs-x.c comparison

comparison src/glyphs-x.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	0293115a14e9
children	4103f0995bd7

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 This can be dealt with in the new redisplay. */
 /* #### These are completely un-re-implemented in 19.14.  Get it done
 for 19.15. */
-DEFUN ("make-subwindow", Fmake_subwindow, Smake_subwindow,
+DEFUN ("make-subwindow", Fmake_subwindow, 0, 3, 0, /*
-0, 3, 0 /*
 Creates a new `subwindow' object of size WIDTH x HEIGHT.
 The default is a window of size 1x1, which is also the minimum allowed
 window size.  Subwindows are per-frame.  A buffer being shown in two
 different frames will only display a subwindow glyph in the frame in
 which it was actually created.  If two windows on the same frame are
 displaying the buffer then the most recently used window will actually
 display the window.  If the frame is not specified, the selected frame
 is used.
 Subwindows are not currently implemented.
-*/ )
+*/
-(width, height, frame)
+(width, height, frame))
-Lisp_Object width, height, frame;
 {
 Display *dpy;
 Screen *xs;
 Window pw;
 struct frame *f;
 return val;
 }
 }
 /* #### Should this function exist? */
-DEFUN ("change-subwindow-property", Fchange_subwindow_property,
+DEFUN ("change-subwindow-property", Fchange_subwindow_property, 3, 3, 0, /*
-Schange_subwindow_property, 3, 3, 0 /*
 For the given SUBWINDOW, set PROPERTY to DATA, which is a string.
 Subwindows are not currently implemented.
-*/ )
+*/
-(subwindow, property, data)
+(subwindow, property, data))
-Lisp_Object subwindow, property, data;
 {
 Atom property_atom;
 struct Lisp_Subwindow *sw;
 Display *dpy;
 		   XSTRING_LENGTH (data));
 return (property);
 }
-DEFUN ("subwindowp", Fsubwindowp, Ssubwindowp, 1, 1, 0 /*
+DEFUN ("subwindowp", Fsubwindowp, 1, 1, 0, /*
 Return non-nil if OBJECT is a subwindow.
 Subwindows are not currently implemented.
-*/ )
+*/
-(object)
+(object))
-Lisp_Object object;
 {
 return (SUBWINDOWP (object) ? Qt : Qnil);
 }
-DEFUN ("subwindow-width", Fsubwindow_width, Ssubwindow_width,
+DEFUN ("subwindow-width", Fsubwindow_width, 1, 1, 0, /*
-1, 1, 0 /*
 Width of SUBWINDOW.
 Subwindows are not currently implemented.
-*/ )
+*/
-(subwindow)
+(subwindow))
-Lisp_Object subwindow;
 {
 CHECK_SUBWINDOW (subwindow);
 return (make_int (XSUBWINDOW (subwindow)->width));
 }
-DEFUN ("subwindow-height", Fsubwindow_height, Ssubwindow_height,
+DEFUN ("subwindow-height", Fsubwindow_height, 1, 1, 0, /*
-1, 1, 0 /*
 Height of SUBWINDOW.
 Subwindows are not currently implemented.
-*/ )
+*/
-(subwindow)
+(subwindow))
-Lisp_Object subwindow;
 {
 CHECK_SUBWINDOW (subwindow);
 return (make_int (XSUBWINDOW (subwindow)->height));
 }
-DEFUN ("subwindow-xid", Fsubwindow_xid, Ssubwindow_xid, 1, 1, 0 /*
+DEFUN ("subwindow-xid", Fsubwindow_xid, 1, 1, 0, /*
 Return the xid of SUBWINDOW as a number.
 Subwindows are not currently implemented.
-*/ )
+*/
-(subwindow)
+(subwindow))
-Lisp_Object subwindow;
 {
 CHECK_SUBWINDOW (subwindow);
 return (make_int (XSUBWINDOW (subwindow)->subwindow));
 }
-DEFUN ("resize-subwindow", Fresize_subwindow, Sresize_subwindow,
+DEFUN ("resize-subwindow", Fresize_subwindow, 1, 3, 0, /*
-1, 3, 0 /*
 Resize SUBWINDOW to WIDTH x HEIGHT.
 If a value is nil that parameter is not changed.
 Subwindows are not currently implemented.
-*/ )
+*/
-(subwindow, width, height)
+(subwindow, width, height))
-Lisp_Object subwindow, width, height;
 {
 int neww, newh;
 struct Lisp_Subwindow *sw;
 CHECK_SUBWINDOW (subwindow);
 sw->width = neww;
 return subwindow;
 }
-DEFUN ("force-subwindow-map", Fforce_subwindow_map,
+DEFUN ("force-subwindow-map", Fforce_subwindow_map, 1, 1, 0, /*
-Sforce_subwindow_map, 1, 1, 0 /*
 Generate a Map event for SUBWINDOW.
 Subwindows are not currently implemented.
-*/ )
+*/
-(subwindow)
+(subwindow))
-Lisp_Object subwindow;
 {
 CHECK_SUBWINDOW (subwindow);
 XMapWindow (DisplayOfScreen (XSUBWINDOW (subwindow)->xscreen),
 	      XSUBWINDOW (subwindow)->subwindow);
 void
 syms_of_glyphs_x (void)
 {
 defsymbol (&Qsubwindowp, "subwindowp");
-defsubr (&Smake_subwindow);
+DEFSUBR (Fmake_subwindow);
-defsubr (&Schange_subwindow_property);
+DEFSUBR (Fchange_subwindow_property);
-defsubr (&Ssubwindowp);
+DEFSUBR (Fsubwindowp);
-defsubr (&Ssubwindow_width);
+DEFSUBR (Fsubwindow_width);
-defsubr (&Ssubwindow_height);
+DEFSUBR (Fsubwindow_height);
-defsubr (&Ssubwindow_xid);
+DEFSUBR (Fsubwindow_xid);
-defsubr (&Sresize_subwindow);
+DEFSUBR (Fresize_subwindow);
-defsubr (&Sforce_subwindow_map);
+DEFSUBR (Fforce_subwindow_map);
 defkeyword (&Q_mask_file, ":mask-file");
 defkeyword (&Q_mask_data, ":mask-data");
 defkeyword (&Q_hotspot_x, ":hotspot-x");
 defkeyword (&Q_hotspot_y, ":hotspot-y");

Mercurial > hg > xemacs-beta

comparison src/glyphs-x.c @ 20:859a2309aef8 r19-15b93