[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/tq.el

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/tq.el
diff -c emacs/lisp/emacs-lisp/tq.el:1.14 emacs/lisp/emacs-lisp/tq.el:1.15
*** emacs/lisp/emacs-lisp/tq.el:1.14    Fri Oct  5 05:32:41 2001
--- emacs/lisp/emacs-lisp/tq.el Tue Feb  4 07:53:34 2003
***************
*** 25,31 ****
  ;; Boston, MA 02111-1307, USA.
  
  ;;; Commentary:
!  
  ;; manages receiving a stream asynchronously,
  ;; parsing it into transactions, and then calling
  ;; handler functions
--- 25,31 ----
  ;; Boston, MA 02111-1307, USA.
  
  ;;; Commentary:
! 
  ;; manages receiving a stream asynchronously,
  ;; parsing it into transactions, and then calling
  ;; handler functions
***************
*** 68,74 ****
  (defun tq-queue-head-closure (tq) (car (cdr (car (tq-queue tq)))))
  (defun tq-queue-empty        (tq) (not (tq-queue tq)))
  (defun tq-queue-pop          (tq) (setcar tq (cdr (car tq))) (null (car tq)))
!  
  
  ;;; must add to queue before sending!
  (defun tq-enqueue (tq question regexp closure fn)
--- 68,74 ----
  (defun tq-queue-head-closure (tq) (car (cdr (car (tq-queue tq)))))
  (defun tq-queue-empty        (tq) (not (tq-queue tq)))
  (defun tq-queue-pop          (tq) (setcar tq (cdr (car tq))) (null (car tq)))
! 
  
  ;;; must add to queue before sending!
  (defun tq-enqueue (tq question regexp closure fn)