Mercurial > emacs
annotate lisp/emacs-lisp/tq.el @ 83619:5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
* termhooks.h (union display_info): Add mac_display_info.
* term.c (init_tty): Only use terminal->kboard when MULTI_KBOARD
is defined.
* macterm.h (struct mac_display_info): Add terminal.
* w32term.c (w32_initialize): Make static.
* macterm.c (XTset_terminal_modes): Add a terminal parameter.
(XTreset_terminal_modes): Likewise.
(x_clear_frame): Add a frame parameter.
(note_mouse_movement): Get rif from the frame.
(mac_term_init): Initialize the terminal.
(mac_initialize): Make static and move terminal initialization ...
(mac_create_terminal): ... in this new function.
* macmenu.c: Reorder includes.
(Fx_popup_menu): Use terminal specific mouse_position_hook.
* macfns.c (x_set_mouse_color): Get rif from the frame.
(x_set_tool_bar_lines): Don't use updating_frame.
(mac_window): Add 2 new parameters for consistency with other
systems.
(Fx_create_frame): Fix doc string. Rename the parameter.
(Fx_create_frame): Set the frame parameters following what is done
in X11 and w32.
(Fx_open_connection): Remove window-system check.
(start_hourglass): Likewise.
(x_create_tip_frame): Get the keyboard from the terminal.
* w32fns.c (Fx_create_frame): Use kboard from the terminal.
* term/mac-win.el: Provide mac-win.
(mac-initialized): New variable.
(mac-initialize-window-system): New function. Move global setup
here.
(handle-args-function-alist, frame-creation-function-alist):
(window-system-initialization-alist): Add mac entries.
* loadup.el: Load mac-win on a Mac.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sat, 19 May 2007 19:08:02 +0000 |
parents | 7a3f13e2dd57 |
children | 57715561e846 95d0cdf160ea |
rev | line source |
---|---|
743 | 1 ;;; tq.el --- utility to maintain a transaction queue |
2 | |
74466 | 3 ;; Copyright (C) 1985, 1986, 1987, 1992, 2001, 2002, 2003, 2004, |
75346 | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
841 | 5 |
783
59dc833c4e0c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
743
diff
changeset
|
6 ;; Author: Scott Draves <spot@cs.cmu.edu> |
39461 | 7 ;; Maintainer: FSF |
783
59dc833c4e0c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
743
diff
changeset
|
8 ;; Adapted-By: ESR |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
783
diff
changeset
|
9 ;; Keywords: extensions |
783
59dc833c4e0c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
743
diff
changeset
|
10 |
841 | 11 ;; This file is part of GNU Emacs. |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
14169 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 ;; Boston, MA 02110-1301, USA. | |
841 | 27 |
28 ;;; Commentary: | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
39568
diff
changeset
|
29 |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
30 ;; This file manages receiving a stream asynchronously, parsing it |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
31 ;; into transactions, and then calling the associated handler function |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
32 ;; upon the completion of each transaction. |
743 | 33 |
39568
e67950065cf9
Change ;;; to ;; for outline-minor-mode.
Gerd Moellmann <gerd@gnu.org>
parents:
39461
diff
changeset
|
34 ;; Our basic structure is the queue/process/buffer triple. Each entry |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
35 ;; of the queue part is a list of question, regexp, closure, and |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
36 ;; function that is consed to the last element. |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
37 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
38 ;; A transaction queue may be created by calling `tq-create'. |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
39 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
40 ;; A request may be added to the queue by calling `tq-enqueue'. If |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
41 ;; the `delay-question' argument is non-nil, we will wait to send the |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
42 ;; question to the process until it has finished sending other input. |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
43 ;; Otherwise, once a request is enqueued, we send the given question |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
44 ;; immediately to the process. |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
45 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
46 ;; We then buffer bytes from the process until we see the regexp that |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
47 ;; was provided in the call to `tq-enqueue'. Then we call the |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
48 ;; provided function with the closure and the collected bytes. If we |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
49 ;; have indicated that the question from the next transaction was not |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
50 ;; sent immediately, send it at this point, awaiting the response. |
743 | 51 |
783
59dc833c4e0c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
743
diff
changeset
|
52 ;;; Code: |
743 | 53 |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
54 ;;; Accessors |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
55 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
56 ;; This part looks like (queue . (process . buffer)) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
57 (defun tq-queue (tq) (car tq)) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
58 (defun tq-process (tq) (car (cdr tq))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
59 (defun tq-buffer (tq) (cdr (cdr tq))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
60 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
61 ;; The structure of `queue' is as follows |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
62 ;; ((question regexp closure . fn) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
63 ;; <other queue entries>) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
64 ;; question: string to send to the process |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
65 (defun tq-queue-head-question (tq) (car (car (tq-queue tq)))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
66 ;; regexp: regular expression that matches the end of a response from |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
67 ;; the process |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
68 (defun tq-queue-head-regexp (tq) (car (cdr (car (tq-queue tq))))) |
72548
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
69 ;; closure: additional data to pass to the function |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
70 (defun tq-queue-head-closure (tq) (car (cdr (cdr (car (tq-queue tq)))))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
71 ;; fn: function to call upon receiving a complete response from the |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
72 ;; process |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
73 (defun tq-queue-head-fn (tq) (cdr (cdr (cdr (car (tq-queue tq)))))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
74 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
75 ;; Determine whether queue is empty |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
76 (defun tq-queue-empty (tq) (not (tq-queue tq))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
77 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
78 ;;; Core functionality |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
79 |
1187
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
80 ;;;###autoload |
743 | 81 (defun tq-create (process) |
1187
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
82 "Create and return a transaction queue communicating with PROCESS. |
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
83 PROCESS should be a subprocess capable of sending and receiving |
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
84 streams of bytes. It may be a local process, or it may be connected |
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
85 to a tcp server on another machine." |
743 | 86 (let ((tq (cons nil (cons process |
87 (generate-new-buffer | |
88 (concat " tq-temp-" | |
89 (process-name process))))))) | |
90 (set-process-filter process | |
49851
fec321336b72
(tq-create): Fix quoted lambda.
Juanma Barranquero <lekktu@gmail.com>
parents:
49598
diff
changeset
|
91 `(lambda (proc string) |
52493
04f194e85b4d
(tq-create): Fix mixed up unquote style.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
92 (tq-filter ',tq string))) |
743 | 93 tq)) |
94 | |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
95 (defun tq-queue-add (tq question re closure fn) |
743 | 96 (setcar tq (nconc (tq-queue tq) |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
97 (cons (cons question (cons re (cons closure fn))) nil))) |
743 | 98 'ok) |
99 | |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
100 (defun tq-queue-pop (tq) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
101 (setcar tq (cdr (car tq))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
102 (let ((question (tq-queue-head-question tq))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
103 (when question |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
104 (process-send-string (tq-process tq) question))) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
105 (null (car tq))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
39568
diff
changeset
|
106 |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
107 (defun tq-enqueue (tq question regexp closure fn &optional delay-question) |
1187
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
108 "Add a transaction to transaction queue TQ. |
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
109 This sends the string QUESTION to the process that TQ communicates with. |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
110 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
111 When the corresponding answer comes back, we call FN with two |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
112 arguments: CLOSURE, which may contain additional data that FN |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
113 needs, and the answer to the question. |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
114 |
1187
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
115 REGEXP is a regular expression to match the entire answer; |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
116 that's how we tell where the answer ends. |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
117 |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
118 If DELAY-QUESTION is non-nil, delay sending this question until |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
119 the process has finished replying to any previous questions. |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
120 This produces more reliable results with some processes." |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
121 (let ((sendp (or (not delay-question) |
72548
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
122 (not (tq-queue tq))))) |
70034
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
123 (tq-queue-add tq (unless sendp question) regexp closure fn) |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
124 (when sendp |
db4c2d467e9a
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-220
Miles Bader <miles@gnu.org>
parents:
68648
diff
changeset
|
125 (process-send-string (tq-process tq) question)))) |
743 | 126 |
127 (defun tq-close (tq) | |
1187
519c04d69cdc
Doc fixes. Make tq-create autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
128 "Shut down transaction queue TQ, terminating the process." |
743 | 129 (delete-process (tq-process tq)) |
130 (kill-buffer (tq-buffer tq))) | |
131 | |
132 (defun tq-filter (tq string) | |
133 "Append STRING to the TQ's buffer; then process the new data." | |
72548
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
134 (let ((buffer (tq-buffer tq))) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
135 (when (buffer-live-p buffer) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
136 (with-current-buffer buffer |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
137 (goto-char (point-max)) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
138 (insert string) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
139 (tq-process-buffer tq))))) |
743 | 140 |
141 (defun tq-process-buffer (tq) | |
142 "Check TQ's buffer for the regexp at the head of the queue." | |
72548
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
143 (let ((buffer (tq-buffer tq))) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
144 (when (buffer-live-p buffer) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
145 (set-buffer buffer) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
146 (if (= 0 (buffer-size)) () |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
147 (if (tq-queue-empty tq) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
148 (let ((buf (generate-new-buffer "*spurious*"))) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
149 (copy-to-buffer buf (point-min) (point-max)) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
150 (delete-region (point-min) (point)) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
151 (pop-to-buffer buf nil) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
152 (error "Spurious communication from process %s, see buffer %s" |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
153 (process-name (tq-process tq)) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
154 (buffer-name buf))) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
155 (goto-char (point-min)) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
156 (if (re-search-forward (tq-queue-head-regexp tq) nil t) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
157 (let ((answer (buffer-substring (point-min) (point)))) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
158 (delete-region (point-min) (point)) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
159 (unwind-protect |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
160 (condition-case nil |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
161 (funcall (tq-queue-head-fn tq) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
162 (tq-queue-head-closure tq) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
163 answer) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
164 (error nil)) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
165 (tq-queue-pop tq)) |
e5542d6aad7f
Miscellaneous tq-related fixes.
Miles Bader <miles@gnu.org>
parents:
70034
diff
changeset
|
166 (tq-process-buffer tq)))))))) |
743 | 167 |
841 | 168 (provide 'tq) |
169 | |
52401 | 170 ;;; arch-tag: 65dea08c-4edd-4cde-83a5-e8a15b993b79 |
743 | 171 ;;; tq.el ends here |