(info-insert-file-contents): Inhibit jka-compr messages, which can be pretty annoying

[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