From b0e2675c7f28f729354abc1d471af9934899852d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 1 Oct 2011 21:04:01 -0400 Subject: [PATCH] * pcmpl-gnu.el: Use lexical-binding. (pcmpl-gnu-with-file-buffer): Fix last change. --- lisp/pcmpl-gnu.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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)))) -- 2.39.2