/[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.22 by rms, Wed Nov 14 00:04:24 2001 UTC revision 1.23 by raeburn, Mon Jul 15 00:00:37 2002 UTC
# Line 240  expressed as a string.  If ICON is nil t Line 240  expressed as a string.  If ICON is nil t
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);
243      if (XSTRING(Data)->size != 32) return(Qnil);      if (SCHARS (Data) != 32) return(Qnil);
244      /*      /*
245       *  Setup the new cursor       *  Setup the new cursor
246       */       */
247      NewCursor.cur_xhot = X_Hot;      NewCursor.cur_xhot = X_Hot;
248      NewCursor.cur_yhot = Y_Hot;      NewCursor.cur_yhot = Y_Hot;
249      cp = XSTRING(Data)->data;      cp = SDATA (Data);
250      p = CursorData;      p = CursorData;
251      i = 16;      i = 16;
252      while(--i >= 0)      while(--i >= 0)
# 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 (XSTRING (Current_Selection)->data, sizeof (char),    fwrite (SDATA (Current_Selection), sizeof (char),
271            sel->sel_items, file);            sel->sel_items, file);
272  }  }
273    
# Line 330  DEFUN ("sun-set-selection", Fsun_set_sel Line 330  DEFUN ("sun-set-selection", Fsun_set_sel
330    
331    CHECK_GFX (Qnil);    CHECK_GFX (Qnil);
332    selection.sel_type = SELTYPE_CHAR;    selection.sel_type = SELTYPE_CHAR;
333    selection.sel_items = XSTRING (str)->size;    selection.sel_items = SCHARS (str);
334    selection.sel_itembytes = 1;    selection.sel_itembytes = 1;
335    selection.sel_pubflags = 1;    selection.sel_pubflags = 1;
336    selection_set(&selection, sel_write, sel_clear, win_fd);    selection_set(&selection, sel_write, sel_clear, win_fd);
# Line 371  sun_item_create (Pair) Line 371  sun_item_create (Pair)
371    if (VECTORP (Value)) {    if (VECTORP (Value)) {
372      submenu = sun_menu_create (Value);      submenu = sun_menu_create (Value);
373      menu_item = menu_create_item      menu_item = menu_create_item
374        (MENU_RELEASE, MENU_PULLRIGHT_ITEM, XSTRING(String)->data, submenu, 0);        (MENU_RELEASE, MENU_PULLRIGHT_ITEM, SDATA (String), submenu, 0);
375    } else {    } else {
376      menu_item = menu_create_item      menu_item = menu_create_item
377        (MENU_RELEASE, MENU_STRING_ITEM, XSTRING(String)->data, Value, 0);        (MENU_RELEASE, MENU_STRING_ITEM, SDATA (String), Value, 0);
378    }    }
379    return menu_item;    return menu_item;
380  }  }

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

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