Mercurial > emacs

comparison lisp/emacs-lisp/tq.el @ 89909:68c22ea6027c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync to HEAD
author Kenichi Handa <handa@m17n.org>
date Fri, 16 Apr 2004 12:51:06 +0000
parents 375f2633d815
children f9a65d7ebd29
comparison
equal deleted inserted replaced
89908:ee1402f7b568 89909:68c22ea6027c
1 ;;; tq.el --- utility to maintain a transaction queue 1 ;;; tq.el --- utility to maintain a transaction queue
2 2
3 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1987, 1992, 2003 Free Software Foundation, Inc.
4 4
5 ;; Author: Scott Draves <spot@cs.cmu.edu> 5 ;; Author: Scott Draves <spot@cs.cmu.edu>
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Adapted-By: ESR 7 ;; Adapted-By: ESR
8 ;; Keywords: extensions 8 ;; Keywords: extensions
48 (generate-new-buffer 48 (generate-new-buffer
49 (concat " tq-temp-" 49 (concat " tq-temp-"
50 (process-name process))))))) 50 (process-name process)))))))
51 (set-process-filter process 51 (set-process-filter process
52 `(lambda (proc string) 52 `(lambda (proc string)
53 (tq-filter '(, tq) string))) 53 (tq-filter ',tq string)))
54 tq)) 54 tq))
55 55
56 ;;; accessors 56 ;;; accessors
57 (defun tq-queue (tq) (car tq)) 57 (defun tq-queue (tq) (car tq))
58 (defun tq-process (tq) (car (cdr tq))) 58 (defun tq-process (tq) (car (cdr tq)))
118 (tq-queue-pop tq)) 118 (tq-queue-pop tq))
119 (tq-process-buffer tq)))))) 119 (tq-process-buffer tq))))))
120 120
121 (provide 'tq) 121 (provide 'tq)
122 122
123 ;;; arch-tag: 65dea08c-4edd-4cde-83a5-e8a15b993b79
123 ;;; tq.el ends here 124 ;;; tq.el ends here