diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-10-01 21:04:01 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-10-01 21:04:01 -0400 |
| commit | b0e2675c7f28f729354abc1d471af9934899852d (patch) | |
| tree | c2e6445dc31469ceec875f48ea3552fe84a7f853 /lisp/pcmpl-gnu.el | |
| parent | 428fe61ade6439cd2346f2586f56a4cabb8af287 (diff) | |
| download | emacs-b0e2675c7f28f729354abc1d471af9934899852d.tar.gz | |
* pcmpl-gnu.el: Use lexical-binding.
(pcmpl-gnu-with-file-buffer): Fix last change.
Diffstat (limited to 'lisp/pcmpl-gnu.el')
| -rw-r--r-- | lisp/pcmpl-gnu.el | 11 |
1 files 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)))) |