[Emacs-diffs] master 71b108a: * lisp/url/url-file.el: Use lexical-binding.

[Stefan Monnier]

branch: master
commit 71b108a5d771a5d9a777dd9bdafa082fa6a6384b
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/url/url-file.el: Use lexical-binding.
---
 lisp/url/url-file.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el
index 92edd99..1c7c20e 100644
--- a/lisp/url/url-file.el
+++ b/lisp/url/url-file.el
@@ -1,4 +1,4 @@
-;;; url-file.el --- File retrieval code
+;;; url-file.el --- File retrieval code  -*- lexical-binding:t -*-
 
 ;; Copyright (C) 1996-1999, 2004-2018 Free Software Foundation, Inc.
 
@@ -33,7 +33,7 @@
 (defconst url-file-asynchronous-p t "FTP transfers are asynchronous.")
 (defalias 'url-file-expand-file-name 'url-default-expander)
 
-(defun url-file-find-possibly-compressed-file (fname &rest args)
+(defun url-file-find-possibly-compressed-file (fname &rest _)
   "Find the exact file referenced by `fname'.
 This tries the common compression extensions, because things like
 ange-ftp and efs are not quite smart enough to realize when a server
@@ -63,7 +63,7 @@ to them."
                                                (match-beginning 0))
                                   (system-name)))))))
 
-(defun url-file-asynch-callback (x y name buff func args &optional efs)
+(defun url-file-asynch-callback (_x _y name buff func args &optional efs)
   (if (not (featurep 'ange-ftp))
       ;; EFS passes us an extra argument
       (setq name buff
@@ -114,8 +114,7 @@ to them."
                    ((string-match "\\`/[^/]+:/" file)
                     (concat "/:" file))
                    (t
-                    file)))
-        pos-index)
+                    file))))
 
     (and user pass
         (cond
@@ -200,7 +199,7 @@ to them."
            (if (featurep 'ange-ftp)
                (ange-ftp-copy-file-internal filename (expand-file-name new) t
                                             nil t
-                                            (list 'url-file-asynch-callback
+                                            (list #'url-file-asynch-callback
                                                   new (current-buffer)
                                                   callback cbargs)
                                             t)
@@ -209,7 +208,7 @@ to them."
                 (efs-copy-file-internal filename (efs-ftp-path filename)
                                         new (efs-ftp-path new)
                                         t nil 0
-                                        (list 'url-file-asynch-callback
+                                        (list #'url-file-asynch-callback
                                               new (current-buffer)
                                               callback cbargs)
                                         0 nil)))))))