/[emacs]/emacs/src/sunfns.c
ViewVC logotype

Diff of /emacs/src/sunfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by pj, Sun Oct 21 12:07:34 2001 UTC revision 1.21 by pj, Fri Nov 2 20:44:41 2001 UTC
# Line 159  Redisplay does not happen if input is av Line 159  Redisplay does not happen if input is av
159    struct timeval Timeout;    struct timeval Timeout;
160    int waitmask = 1;    int waitmask = 1;
161        
162    CHECK_NUMBER (n, 0);    CHECK_NUMBER (n);
163    Timeout.tv_sec = XINT(n) / 1000;    Timeout.tv_sec = XINT(n) / 1000;
164    Timeout.tv_usec = (XINT(n) - (Timeout.tv_sec * 1000)) * 1000;    Timeout.tv_usec = (XINT(n) - (Timeout.tv_sec * 1000)) * 1000;
165    
# Line 187  DEFUN ("sleep-for-millisecs", Line 187  DEFUN ("sleep-for-millisecs",
187  {  {
188    unsigned useconds;    unsigned useconds;
189    
190    CHECK_NUMBER (n, 0);    CHECK_NUMBER (n);
191    useconds = XINT(n) * 1000;    useconds = XINT(n) * 1000;
192    usleep(useconds);    usleep(useconds);
193    return(Qt);    return(Qt);
# Line 230  expressed as a string.  If ICON is nil t Line 230  expressed as a string.  If ICON is nil t
230      /*      /*
231       *  extract the data from the vector       *  extract the data from the vector
232       */       */
233      CHECK_VECTOR (Icon, 0);      CHECK_VECTOR (Icon);
234      if (XVECTOR(Icon)->size < 3) return(Qnil);      if (XVECTOR(Icon)->size < 3) return(Qnil);
235      X_Hot = XVECTOR(Icon)->contents[0];      X_Hot = XVECTOR(Icon)->contents[0];
236      Y_Hot = XVECTOR(Icon)->contents[1];      Y_Hot = XVECTOR(Icon)->contents[1];
237      Data = XVECTOR(Icon)->contents[2];      Data = XVECTOR(Icon)->contents[2];
238            
239      CHECK_NUMBER (X_Hot, 0);      CHECK_NUMBER (X_Hot);
240      CHECK_NUMBER (Y_Hot, 0);      CHECK_NUMBER (Y_Hot);
241      CHECK_STRING (Data, 0);      CHECK_STRING (Data);
242      if (XSTRING(Data)->size != 32) return(Qnil);      if (XSTRING(Data)->size != 32) return(Qnil);
243      /*      /*
244       *  Setup the new cursor       *  Setup the new cursor
# Line 324  DEFUN ("sun-set-selection", Fsun_set_sel Line 324  DEFUN ("sun-set-selection", Fsun_set_sel
324  {  {
325    struct selection selection;    struct selection selection;
326    
327    CHECK_STRING (str, 0);    CHECK_STRING (str);
328    Current_Selection = str;    Current_Selection = str;
329    
330    CHECK_GFX (Qnil);    CHECK_GFX (Qnil);
# Line 363  sun_item_create (Pair) Line 363  sun_item_create (Pair)
363    
364    if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair);    if (!CONSP(Pair)) wrong_type_argument(Qlistp, Pair);
365    String = Fcar(Pair);    String = Fcar(Pair);
366    CHECK_STRING(String, 0);    CHECK_STRING(String);
367    Value = Fcdr(Pair);    Value = Fcdr(Pair);
368    if (SYMBOLP (Value))    if (SYMBOLP (Value))
369      Value = SYMBOL_VALUE (Value);      Value = SYMBOL_VALUE (Value);
# Line 384  sun_menu_create (Vector) Line 384  sun_menu_create (Vector)
384  {  {
385    Menu menu;    Menu menu;
386    int i;    int i;
387    CHECK_VECTOR(Vector,0);    CHECK_VECTOR(Vector);
388    menu=menu_create(0);    menu=menu_create(0);
389    for(i = 0; i < XVECTOR(Vector)->size; i++) {    for(i = 0; i < XVECTOR(Vector)->size; i++) {
390      menu_set (menu, MENU_APPEND_ITEM,      menu_set (menu, MENU_APPEND_ITEM,
# Line 445  as a menu label.  */) Line 445  as a menu label.  */)
445    Event *event = &event0;    Event *event = &event0;
446    Lisp_Object Value, Pair;    Lisp_Object Value, Pair;
447        
448    CHECK_NUMBER(X_Position, 0);    CHECK_NUMBER(X_Position);
449    CHECK_NUMBER(Y_Position, 1);    CHECK_NUMBER(Y_Position);
450    CHECK_LIVE_WINDOW(window, 2);    CHECK_LIVE_WINDOW(window);
451    CHECK_NUMBER(Button, 3);    CHECK_NUMBER(Button);
452    CHECK_VECTOR(MEnu, 4);    CHECK_VECTOR(MEnu);
453    
454    CHECK_GFX (Qnil);    CHECK_GFX (Qnil);
455    

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26