Commit b0e2675c authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* pcmpl-gnu.el: Use lexical-binding.

(pcmpl-gnu-with-file-buffer): Fix last change.
parent 428fe61a
;;; 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. ;; Copyright (C) 1999-2011 Free Software Foundation, Inc.
...@@ -310,10 +310,11 @@ ...@@ -310,10 +310,11 @@
(size (nth 7 fa))) (size (nth 7 fa)))
(and (numberp size) (and (numberp size)
(< size large-file-warning-threshold)))) (< size large-file-warning-threshold))))
(let ((file (pcomplete-arg 1)))
(completion-table-dynamic (completion-table-dynamic
(lambda (string) (lambda (_string)
(pcmpl-gnu-with-file-buffer (pcomplete-arg 1) (pcmpl-gnu-with-file-buffer file
(mapcar #'tar-header-name tar-parse-info)))) (mapcar #'tar-header-name tar-parse-info)))))
(pcomplete-entries)) (pcomplete-entries))
nil 'identity)))) nil 'identity))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment