andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(pcmpl-gnu-with-file-buffer): Fix last change.
This commit is contained in:
Stefan Monnier 2011-10-01 21:04:01 -04:00
parent 428fe61ade
commit b0e2675c7f
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/pcmpl-gnu.el
View file

@ -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))))