[Emacs-diffs] /srv/bzr/emacs/trunk r105983: * pcmpl-gnu.el: Use lexical-binding.

[Stefan Monnier]

------------------------------------------------------------
revno: 105983
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2011-10-01 21:04:01 -0400
message:
  * pcmpl-gnu.el: Use lexical-binding.
  (pcmpl-gnu-with-file-buffer): Fix last change.
modified:
  lisp/pcmpl-gnu.el

=== modified file 'lisp/pcmpl-gnu.el'
--- a/lisp/pcmpl-gnu.el 2011-10-02 01:00:17 +0000
+++ b/lisp/pcmpl-gnu.el 2011-10-02 01:04:01 +0000
@@ -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))))