Mercurial > emacs
annotate src/w32inevt.h @ 57952:a6f82b95d10b
* xselect.c (struct selection_event_queue, selection_queue)
(x_queue_selection_requests, x_queue_event)
(x_start_queuing_selection_requests)
(x_stop_queuing_selection_requests): Add new queue for selection
input events to replace previous XEvent queue in xterm.c.
(queue_selection_requests_unwind): Adapt to new queue.
(x_reply_selection_request): Adapt to new queue. Unexpect
wait_object in case of x errors (memory leak).
(x_handle_selection_request, x_handle_selection_clear): Make static.
(x_handle_selection_event): New function. May queue selection events.
(wait_for_property_change_unwind): Use save_value instead of cons.
Clear property_change_reply_object.
(wait_for_property_change): Abort if already waiting.
Use save_value instead of cons for unwind data.
(x_handle_property_notify): Skip events already arrived, but don't
free them, as "arrived" field is checked by wait_for_property_change,
and it will be freed by unwind or explicit unexpect_property_change.
(x_get_foreign_selection): Add to new queue.
(receive_incremental_selection): Don't unexpect wait_object when done
as it has already been freed by previous wait_for_property_change.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Fri, 05 Nov 2004 11:30:31 +0000 |
parents | 9f3ff0d515be |
children | a8fa7c632ee4 |
rev | line source |
---|---|
16886
c686d4f3728a
Change all uses of win95, winnt, and win32 into Windows 95, Windows
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
1 /* Input routines for GNU Emacs on the Microsoft W32 API. |
11387 | 2 Copyright (C) 1995 Free Software Foundation, Inc. |
3 | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
4 This file is part of GNU Emacs. |
11387 | 5 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
6 GNU Emacs is free software; you can redistribute it and/or modify |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
9 any later version. |
11387 | 10 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
11 GNU Emacs is distributed in the hope that it will be useful, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
14 GNU General Public License for more details. |
11387 | 15 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
17 along with GNU Emacs; see the file COPYING. If not, write to |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
11387 | 20 |
29606 | 21 #ifndef EMACS_W32INEVT_H |
22 #define EMACS_W32INEVT_H | |
11378 | 23 |
54170
9f3ff0d515be
(w32_console_mouse_position): Fix prototype.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
24 extern int w32_console_read_socket (int sd, int numchars, |
9f3ff0d515be
(w32_console_mouse_position): Fix prototype.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
25 struct input_event *hold_quit); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
29606
diff
changeset
|
26 extern void w32_console_mouse_position (FRAME_PTR *f, int insist, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
29606
diff
changeset
|
27 Lisp_Object *bar_window, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
29606
diff
changeset
|
28 enum scroll_bar_part *part, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
29606
diff
changeset
|
29 Lisp_Object *x, Lisp_Object *y, |
21830
56104212fe5c
(w32_console_mouse_position, w32_console_read_socket):
Geoff Voelker <voelker@cs.washington.edu>
parents:
16886
diff
changeset
|
30 unsigned long *time); |
11378 | 31 |
29606 | 32 #endif /* EMACS_W32INEVT_H */ |
52401 | 33 |
34 /* arch-tag: 7641bd54-199f-4552-8e8a-6a2f5340ef13 | |
35 (do not change this comment) */ |