Merge from emacs-23; up to 2010-06-12T17:12:15Z!cyd@stupidchicken.com.

[gnu-emacs] / lisp / dos-fns.el

diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el
index 5f13555e472506f5c515fa7c443c1e09be430f8f..629360b1c18d3d13de8bdca19d1380e0db496bbc 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