diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-10-07 01:10:06 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-10-07 01:10:06 -0400 |
| commit | 2e7ba2c231f813115bd1e4a1adbf520710c0e0b9 (patch) | |
| tree | 59effb0d6f727b37fbe0771f9a9be1f2c28ce72a /lisp/emacs-lisp/tq.el | |
| parent | 6de913c47e8efa3d2e234cb78c4c28ad681cfd21 (diff) | |
| download | emacs-2e7ba2c231f813115bd1e4a1adbf520710c0e0b9.tar.gz | |
* lisp/emacs-lisp/tq.el (tq-create): Use a closure instead of `(lambda...).
Diffstat (limited to 'lisp/emacs-lisp/tq.el')
| -rw-r--r-- | lisp/emacs-lisp/tq.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el index d308ce694d2..e608dd3eedc 100644 --- a/lisp/emacs-lisp/tq.el +++ b/lisp/emacs-lisp/tq.el @@ -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) |