[Emacs-diffs] trunk r114547: * lisp/emacs-lisp/tq.el (tq-create): Use a closure instead of `(lambda...).

[Stefan Monnier]

------------------------------------------------------------
revno: 114547
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-10-07 01:10:06 -0400
message:
  * lisp/emacs-lisp/tq.el (tq-create): Use a closure instead of `(lambda...).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/tq.el          tq.el-20091113204419-o5vbwnq5f7feedwu-489

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-07 03:38:26 +0000
+++ b/lisp/ChangeLog    2013-10-07 05:10:06 +0000
@@ -1,5 +1,7 @@
 2013-10-07  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/tq.el (tq-create): Use a closure instead of `(lambda...).
+
        * progmodes/ruby-mode.el: Fix recently added tests.
        (ruby-smie-grammar): Add - and +.
        (ruby-smie--redundant-do-p, ruby-smie--forward-id)

=== modified file 'lisp/emacs-lisp/tq.el'
--- a/lisp/emacs-lisp/tq.el     2013-01-01 09:11:05 +0000
+++ b/lisp/emacs-lisp/tq.el     2013-10-07 05:10:06 +0000
@@ -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 @@
                                     (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)