From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 2 Oct 2011 01:04:01 +0000 (-0400)
Subject: * pcmpl-gnu.el: Use lexical-binding.
X-Git-Tag: emacs-pretest-24.0.91~223
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0e2675c7f28f729354abc1d471af9934899852d;p=emacs.git

* pcmpl-gnu.el: Use lexical-binding.
(pcmpl-gnu-with-file-buffer): Fix last change.
---

diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index 444b5ca59bb..b2c8de6ec2f 100644
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -1,4 +1,4 @@
-;;; pcmpl-gnu.el --- completions for GNU project tools
+;;; pcmpl-gnu.el --- completions for GNU project tools -*- lexical-binding: t -*-
 
 ;; Copyright (C) 1999-2011 Free Software Foundation, Inc.
 
@@ -310,10 +310,11 @@
                             (size (nth 7 fa)))
                        (and (numberp size)
                             (< size large-file-warning-threshold))))
-                (completion-table-dynamic
-                 (lambda (string)
-                   (pcmpl-gnu-with-file-buffer (pcomplete-arg 1)
-                     (mapcar #'tar-header-name tar-parse-info))))
+                (let ((file (pcomplete-arg 1)))
+                  (completion-table-dynamic
+                   (lambda (_string)
+                     (pcmpl-gnu-with-file-buffer file
+                       (mapcar #'tar-header-name tar-parse-info)))))
 	      (pcomplete-entries))
 	    nil 'identity))))