Mercurial > hg > xemacs-beta
diff src/select-x.c @ 1726:a8d8f419b459
[xemacs-hg @ 2003-09-30 15:26:34 by james]
Add type information to xfree to avoid alias creation.
| author | james |
|---|---|
| date | Tue, 30 Sep 2003 15:27:01 +0000 |
| parents | 70921960b980 |
| children | 04bc9d2f42c7 |
line wrap: on
line diff
--- a/src/select-x.c Mon Sep 29 21:53:04 2003 +0000 +++ b/src/select-x.c Tue Sep 30 15:27:01 2003 +0000 @@ -642,7 +642,7 @@ successful_p = Qt; /* Tell x_selection_request_lisp_error() it's cool. */ event->type = 0; - xfree (data); + xfree (data, UChar_Binary *); } unbind_to (count); @@ -771,7 +771,7 @@ prev->next = rest->next; else for_whom_the_bell_tolls = rest->next; - xfree (rest); + xfree (rest, struct prop_location *); return; } prev = rest; @@ -806,13 +806,13 @@ XSTRING_DATA (XSYMBOL (x_atom_to_symbol (get_device_from_display (event->display), - event->atom))->name); + event->atom))->name)); #endif if (prev) prev->next = rest->next; else for_whom_the_bell_tolls = rest->next; - xfree (rest); + xfree (rest, struct prop_location *); return; } prev = rest; @@ -1074,7 +1074,8 @@ stderr_out (" read INCR done\n"); #endif unexpect_property_change (prop_id); - if (tmp_data) xfree (tmp_data); + if (tmp_data) + xfree (tmp_data, UChar_Binary *); break; } #if 0 @@ -1091,7 +1092,7 @@ } memcpy ((*data_ret) + offset, tmp_data, tmp_size_bytes); offset += tmp_size_bytes; - xfree (tmp_data); + xfree (tmp_data, UChar_Binary *); } } @@ -1140,7 +1141,7 @@ Bytecount min_size_bytes = /* careful here. */ (Bytecount) (* ((unsigned int *) data)); - xfree (data); + xfree (data, UChar_Binary *); receive_incremental_selection (display, window, property, target_type, min_size_bytes, &data, &bytes, &actual_type, &actual_format, @@ -1152,7 +1153,7 @@ val = selection_data_to_lisp_data (d, data, bytes, actual_type, actual_format); - xfree (data); + xfree (data, UChar_Binary *); return val; } @@ -1284,7 +1285,7 @@ memchr (data, 0x1b, bytes) ? Qctext : Qbinary) : Qnil); - xfree (data); + xfree (data, UChar_Binary *); return ret; }