Mercurial > emacs
annotate lisp/patcomp.el @ 110592:c06958da83b5
Add fd handling with callbacks to select, dbus needs it for async operation.
* src/dbusbind.c: Include process.h.
(dbus_fd_cb, xd_find_watch_fd, xd_toggle_watch)
(xd_read_message_1): New functions.
(xd_add_watch, xd_remove_watch): Call xd_find_watch_fd. Handle
watch for both read and write.
(Fdbus_init_bus): Also register xd_toggle_watch.
(Fdbus_call_method_asynchronously, Fdbus_method_return_internal)
(Fdbus_method_error_internal, Fdbus_send_signal): Remove call
to dbus_connection_flush.
(xd_read_message): Move most of the code to xd_read_message_1.
Call xd_read_message_1 until status is COMPLETE.
* src/keyboard.c (readable_events, gobble_input): Remove DBUS code.
* src/process.c (gpm_wait_mask, max_gpm_desc): Remove.
(write_mask): New variable.
(max_input_desc): Renamed from max_keyboard_desc.
(fd_callback_info): New variable.
(add_read_fd, delete_read_fd, add_write_fd, delete_write_fd): New
functions.
(Fmake_network_process): FD_SET write_mask.
(deactivate_process): FD_CLR write_mask.
(wait_reading_process_output): Connecting renamed to Writeok.
check_connect removed. check_write is new. Remove references to
gpm. Use Writeok/check_write unconditionally (i.e. no #ifdef
NON_BLOCKING_CONNECT) instead of Connecting.
Loop over file descriptors and call callbacks in fd_callback_info
if file descriptor is ready for I/O.
(add_gpm_wait_descriptor): Just call add_keyboard_wait_descriptor.
(delete_gpm_wait_descriptor): Just call delete_keyboard_wait_descriptor.
(keyboard_bit_set): Use max_input_desc.
(add_keyboard_wait_descriptor, delete_keyboard_wait_descriptor): Remove
#ifdef subprocesses. Use max_input_desc.
(init_process): Initialize write_mask and fd_callback_info.
* src/process.h (add_read_fd, delete_read_fd, add_write_fd)
(delete_write_fd): Declare.
author | Jan D <jan.h.d@swipnet.se> |
---|---|
date | Sun, 26 Sep 2010 18:20:01 +0200 |
parents | 1e3a407766b9 |
children | ef719132ddfa |
rev | line source |
---|---|
47726
33d53d287ee4
Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents:
38414
diff
changeset
|
1 ;;; patcomp.el --- used by patch files to update Emacs releases -*- no-byte-compile: t -*- |
10015 | 2 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22388
diff
changeset
|
3 ;; This file is part of GNU Emacs. |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22388
diff
changeset
|
4 |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22388
diff
changeset
|
5 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22388
diff
changeset
|
6 |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22388
diff
changeset
|
7 ;;; Code: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22388
diff
changeset
|
8 |
10015 | 9 (defun batch-byte-recompile-emacs () |
10 "Recompile the Emacs `lisp' directory. | |
11 This is used after installing the patches for a new version." | |
12 (let ((load-path (list (expand-file-name "lisp")))) | |
13 (byte-recompile-directory "lisp"))) | |
10016
de27224b0b43
(batch-byte-compile-emacs): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10015
diff
changeset
|
14 |
de27224b0b43
(batch-byte-compile-emacs): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10015
diff
changeset
|
15 (defun batch-byte-compile-emacs () |
de27224b0b43
(batch-byte-compile-emacs): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10015
diff
changeset
|
16 "Compile new files installed in the Emacs `lisp' directory. |
de27224b0b43
(batch-byte-compile-emacs): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10015
diff
changeset
|
17 This is used after installing the patches for a new version. |
de27224b0b43
(batch-byte-compile-emacs): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10015
diff
changeset
|
18 It uses the command line arguments to specify the files to compile." |
de27224b0b43
(batch-byte-compile-emacs): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10015
diff
changeset
|
19 (let ((load-path (list (expand-file-name "lisp")))) |
de27224b0b43
(batch-byte-compile-emacs): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10015
diff
changeset
|
20 (batch-byte-compile))) |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22388
diff
changeset
|
21 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
22 ;; arch-tag: cb299b78-1d6c-4c02-945b-12fa2e856d6f |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22388
diff
changeset
|
23 ;;; patcomp.el ends here |