comparison src/w16select.c @ 21707:7b76832ac019

(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for. (Fwin16_get_clipboard_data, Fwin16_set_clipboard_data): Balance the calls to BLOCK_INPUT and UNBLOCK_INPUT.

21706:a0c3ee34362d

  
  ok = empty_clipboard () && (ok1 = set_clipboard_data (CF_TEXT, src, nbytes));
  
  close_clipboard ();
  
  if (ok) goto done;

 error:
  
  ok = 0;

  /* Notify user if the text is too large to fit into DOS memory.
     (This will happen somewhere after 600K bytes (470K in DJGPP v1.x),
     depending on user system configuration.)  If we just silently
     fail the function, people might wonder why their text sometimes

      message2 (no_mem_msg, sizeof (no_mem_msg) - 1, 0);
      sit_for (2, 0, 0, 1, 1);
    }
  
 done:
  UNBLOCK_INPUT;

  return (ok ? string : Qnil);
}

DEFUN ("win16-get-clipboard-data", Fwin16_get_clipboard_data, Swin16_get_clipboard_data, 0, 1, 0,

    goto done;
  
  BLOCK_INPUT;
  
  if (!open_clipboard ())
    goto done;

  if ((data_size = get_clipboard_data_size (CF_TEXT)) == 0 ||
      (htext = (unsigned char *)xmalloc (data_size)) == 0)
    goto closeclip;

  ret = make_string (htext, truelen);
  xfree (htext);

 closeclip:
  close_clipboard ();
  
 done:
  UNBLOCK_INPUT;
  
  return (ret);
}

/* Support checking for a clipboard selection. */

21707:7b76832ac019

  
  ok = empty_clipboard () && (ok1 = set_clipboard_data (CF_TEXT, src, nbytes));
  
  close_clipboard ();
  
  if (ok) goto unblock;

 error:
  
  ok = 0;

 unblock:
  UNBLOCK_INPUT;

  /* Notify user if the text is too large to fit into DOS memory.
     (This will happen somewhere after 600K bytes (470K in DJGPP v1.x),
     depending on user system configuration.)  If we just silently
     fail the function, people might wonder why their text sometimes

      message2 (no_mem_msg, sizeof (no_mem_msg) - 1, 0);
      sit_for (2, 0, 0, 1, 1);
    }
  
 done:

  return (ok ? string : Qnil);
}

DEFUN ("win16-get-clipboard-data", Fwin16_get_clipboard_data, Swin16_get_clipboard_data, 0, 1, 0,

    goto done;
  
  BLOCK_INPUT;
  
  if (!open_clipboard ())
    goto unblock;

  if ((data_size = get_clipboard_data_size (CF_TEXT)) == 0 ||
      (htext = (unsigned char *)xmalloc (data_size)) == 0)
    goto closeclip;

  ret = make_string (htext, truelen);
  xfree (htext);

 closeclip:
  close_clipboard ();

 unblock:
  UNBLOCK_INPUT;
  
 done:
  
  return (ret);
}

/* Support checking for a clipboard selection. */