* lisp/emacs-lisp/tq.el (tq-create): Use a closure instead of `(lambda...).
This commit is contained in:
parent
6de913c47e
commit
2e7ba2c231
2 changed files with 4 additions and 3 deletions
|
@ -1,4 +1,4 @@
|
|||
;;; tq.el --- utility to maintain a transaction queue
|
||||
;;; tq.el --- utility to maintain a transaction queue -*- lexical-binding:t -*-
|
||||
|
||||
;; Copyright (C) 1985-1987, 1992, 2001-2013 Free Software Foundation,
|
||||
;; Inc.
|
||||
|
@ -87,8 +87,7 @@ to a tcp server on another machine."
|
|||
(process-name process)))))))
|
||||
(buffer-disable-undo (tq-buffer tq))
|
||||
(set-process-filter process
|
||||
`(lambda (proc string)
|
||||
(tq-filter ',tq string)))
|
||||
(lambda (_proc string) (tq-filter tq string)))
|
||||
tq))
|
||||
|
||||
(defun tq-queue-add (tq question re closure fn)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue