HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Switch to recommended form of GPLv3 permissions notice.
[bpt/emacs.git]
/
lisp
/
emacs-lisp
/
tq.el
diff --git
a/lisp/emacs-lisp/tq.el
b/lisp/emacs-lisp/tq.el
index
7c4303b
..
f007835
100644
(file)
--- a/
lisp/emacs-lisp/tq.el
+++ b/
lisp/emacs-lisp/tq.el
@@
-1,7
+1,7
@@
;;; tq.el --- utility to maintain a transaction queue
;; Copyright (C) 1985, 1986, 1987, 1992, 2001, 2002, 2003, 2004,
;;; tq.el --- utility to maintain a transaction queue
;; Copyright (C) 1985, 1986, 1987, 1992, 2001, 2002, 2003, 2004,
-;; 2005, 2006 Free Software Foundation, Inc.
+;; 2005, 2006
, 2007, 2008
Free Software Foundation, Inc.
;; Author: Scott Draves <spot@cs.cmu.edu>
;; Maintainer: FSF
;; Author: Scott Draves <spot@cs.cmu.edu>
;; Maintainer: FSF
@@
-12,7
+12,7
@@
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version
2
, or (at your option)
+;; the Free Software Foundation; either version
3
, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
@@
-100,8
+100,9
@@
to a tcp server on another machine."
(defun tq-queue-pop (tq)
(setcar tq (cdr (car tq)))
(let ((question (tq-queue-head-question tq)))
(defun tq-queue-pop (tq)
(setcar tq (cdr (car tq)))
(let ((question (tq-queue-head-question tq)))
- (when question
- (process-send-string (tq-process tq) question)))
+ (condition-case nil
+ (process-send-string (tq-process tq) question)
+ (error nil)))
(null (car tq)))
(defun tq-enqueue (tq question regexp closure fn &optional delay-question)
(null (car tq)))
(defun tq-enqueue (tq question regexp closure fn &optional delay-question)
@@
-167,5
+168,5
@@
This produces more reliable results with some processes."
(provide 'tq)
(provide 'tq)
-;;
;
arch-tag: 65dea08c-4edd-4cde-83a5-e8a15b993b79
+;; arch-tag: 65dea08c-4edd-4cde-83a5-e8a15b993b79
;;; tq.el ends here
;;; tq.el ends here