/[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.23 by raeburn, Mon Jul 15 00:00:37 2002 UTC revision 1.24 by lektu, Tue Feb 4 14:03:13 2003 UTC
# Line 158  Redisplay does not happen if input is av Line 158  Redisplay does not happen if input is av
158  {  {
159    struct timeval Timeout;    struct timeval Timeout;
160    int waitmask = 1;    int waitmask = 1;
161      
162    CHECK_NUMBER (n);    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;
# Line 178  Redisplay does not happen if input is av Line 178  Redisplay does not happen if input is av
178  /*  /*
179   *   Sun sleep-for (allows a shorter interval than the regular sleep-for)   *   Sun sleep-for (allows a shorter interval than the regular sleep-for)
180   */   */
181  DEFUN ("sleep-for-millisecs",  DEFUN ("sleep-for-millisecs",
182         Fsleep_for_millisecs,         Fsleep_for_millisecs,
183         Ssleep_for_millisecs, 1, 1, 0,         Ssleep_for_millisecs, 1, 1, 0,
184         doc: /* Pause, without updating display, for ARG milliseconds.  */)         doc: /* Pause, without updating display, for ARG milliseconds.  */)
# Line 220  expressed as a string.  If ICON is nil t Line 220  expressed as a string.  If ICON is nil t
220    register short *p;    register short *p;
221    register int i;    register int i;
222    Lisp_Object X_Hot, Y_Hot, Data;    Lisp_Object X_Hot, Y_Hot, Data;
223      
224    CHECK_GFX (Qnil);    CHECK_GFX (Qnil);
225    /*    /*
226     *    If the icon is null, we just restore the DefaultCursor     *    If the icon is null, we just restore the DefaultCursor
227     */     */
228    if (NILP(Icon))    if (NILP(Icon))
229      CurrentCursor = DefaultCursor;      CurrentCursor = DefaultCursor;
230    else {    else {
231      /*      /*
# Line 236  expressed as a string.  If ICON is nil t Line 236  expressed as a string.  If ICON is nil t
236      X_Hot = XVECTOR(Icon)->contents[0];      X_Hot = XVECTOR(Icon)->contents[0];
237      Y_Hot = XVECTOR(Icon)->contents[1];      Y_Hot = XVECTOR(Icon)->contents[1];
238      Data = XVECTOR(Icon)->contents[2];      Data = XVECTOR(Icon)->contents[2];
239        
240      CHECK_NUMBER (X_Hot);      CHECK_NUMBER (X_Hot);
241      CHECK_NUMBER (Y_Hot);      CHECK_NUMBER (Y_Hot);
242      CHECK_STRING (Data);      CHECK_STRING (Data);
# Line 267  sel_write (sel, file) Line 267  sel_write (sel, file)
267       struct selection *sel;       struct selection *sel;
268       FILE *file;       FILE *file;
269  {  {
270    fwrite (SDATA (Current_Selection), sizeof (char),    fwrite (SDATA (Current_Selection), sizeof (char),
271            sel->sel_items, file);            sel->sel_items, file);
272  }  }
273    
# Line 285  sel_read (sel, file) Line 285  sel_read (sel, file)
285  {  {
286    register int i, n;    register int i, n;
287    register char *cp;    register char *cp;
288      
289    Current_Selection = make_string ("", 0);    Current_Selection = make_string ("", 0);
290    if (sel->sel_items <= 0)    if (sel->sel_items <= 0)
291      return (0);      return (0);
# Line 306  sel_read (sel, file) Line 306  sel_read (sel, file)
306     * The shelltool select saves newlines as carriage returns,     * The shelltool select saves newlines as carriage returns,
307     * but emacs wants newlines.     * but emacs wants newlines.
308     */     */
309    for (i = 0; i < n; i++)    for (i = 0; i < n; i++)
310      if (cp[i] == '\r') cp[i] = '\n';      if (cp[i] == '\r') cp[i] = '\n';
311    
312    Current_Selection = make_string (cp, n);    Current_Selection = make_string (cp, n);
# Line 379  sun_item_create (Pair) Line 379  sun_item_create (Pair)
379    return menu_item;    return menu_item;
380  }  }
381    
382  Menu  Menu
383  sun_menu_create (Vector)  sun_menu_create (Vector)
384       Lisp_Object Vector;       Lisp_Object Vector;
385  {  {
386    Menu menu;    Menu menu;
387    int i;    int i;
388    CHECK_VECTOR(Vector);    CHECK_VECTOR(Vector);
389    menu=menu_create(0);    menu=menu_create(0);
390    for(i = 0; i < XVECTOR(Vector)->size; i++) {    for(i = 0; i < XVECTOR(Vector)->size; i++) {
391      menu_set (menu, MENU_APPEND_ITEM,      menu_set (menu, MENU_APPEND_ITEM,
392                sun_item_create(XVECTOR(Vector)->contents[i]), 0);                sun_item_create(XVECTOR(Vector)->contents[i]), 0);
393    }    }
394    return menu;    return menu;
# Line 445  as a menu label.  */) Line 445  as a menu label.  */)
445    Event event0;    Event event0;
446    Event *event = &event0;    Event *event = &event0;
447    Lisp_Object Value, Pair;    Lisp_Object Value, Pair;
448      
449    CHECK_NUMBER(X_Position);    CHECK_NUMBER(X_Position);
450    CHECK_NUMBER(Y_Position);    CHECK_NUMBER(Y_Position);
451    CHECK_LIVE_WINDOW(window);    CHECK_LIVE_WINDOW(window);

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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