mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

entered into RCS

Browse source
This commit is contained in:
Eric S. Raymond 1992-07-22 02:58:48 +00:00
parent eea8d4efaf
commit 5814274441
34 changed files with 105 additions and 97 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/copyright.el
View file

@ -1,11 +1,12 @@
;;; upd-copyr.el --- update the copyright notice in a GNU Emacs Lisp file
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
;; Last-Modified: 03 Jun 1991
;; Keywords: maint
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
;;;
;;; This file is part of GNU Emacs.
;;; This program 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)

24
lisp/emacs-lisp/tq.el
View file

@ -1,10 +1,28 @@
;;; tq.el --- utility to maintain a transaction queue
;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;; Author: Scott Draves <spot@cs.cmu.edu>
;; Adapted-By: ESR
;; Keywords: extensions
;; Commentary:
;; This file is part of GNU Emacs.
;; 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)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;;; manages receiving a stream asynchronously,
;;; parsing it into transactions, and then calling
@ -18,8 +36,6 @@
;;; Code:
(provide 'tq)
(defun tq-create (process)
"Create and return a transaction queue. PROCESS should be capable
of sending and receiving streams of bytes. It may be a local process,
@ -92,4 +108,6 @@ answer is identified by REGEXP."
(tq-queue-pop tq)
(tq-process-buffer tq))))))
(provide 'tq)
;;; tq.el ends here