From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 7 Oct 2013 05:10:06 +0000 (-0400)
Subject: * lisp/emacs-lisp/tq.el (tq-create): Use a closure instead of `(lambda...).
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1363
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e7ba2c231f813115bd1e4a1adbf520710c0e0b9;p=emacs.git

* lisp/emacs-lisp/tq.el (tq-create): Use a closure instead of `(lambda...).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bf8dad1b621..157152b20a3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-10-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* 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)
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)