[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105983: * pcmpl-gnu.el: Use lexical-
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105983: * pcmpl-gnu.el: Use lexical-binding. |
Date: |
Sat, 01 Oct 2011 21:04:01 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105983: * pcmpl-gnu.el: Use lexical-binding.,
Stefan Monnier <=