* 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 444b5ca..b2c8de6 100644 (file)
--- 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))))