lisp/*.el: Lexical-binding cleanup.

[bpt/emacs.git] / lisp / dos-fns.el

diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el
index 5f13555..629360b 100644 (file)
--- a/lisp/dos-fns.el
+++ b/lisp/dos-fns.el
@@ -159,7 +159,7 @@ sure to obey the 8.3 limitations."
               (string (copy-sequence (file-name-nondirectory filename)))
               (strlen (length string))
               (lastchar (aref string (1- strlen)))
-              i firstdot)
+              firstdot)
          (setq firstdot (string-match "\\." string))
          (cond
           (firstdot