Archive files with upper case file names

[Juri Linkov]

Visiting archive files with upper case file extensions on GNU/Linux
in non-default language environments produces the following error:

Debugger entered--Lisp error: (args-out-of-range -67108863 -67108859)
  archive-zip-summarize()
  archive-summarize(nil)
  archive-mode()
  set-auto-mode-0(archive-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer test.ZIP> "/tmp/test.ZIP" nil nil 
"/tmp/test.ZIP" (98610 771))
  find-file-noselect("/tmp/test.ZIP" nil nil nil)
  find-file("/tmp/test.ZIP")
  dired-advertised-find-file()
  call-interactively(dired-advertised-find-file)

This error is caused by out-of-sync lists `auto-mode-alist' and
`auto-coding-alist' where upper case extensions for archive files
exist in the former, but not in the latter.  Unless a better
solution would be to bind `case-fold-search' to t on all systems
in `auto-coding-alist-lookup', these lists should be synced:

Index: lisp/international/mule.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule.el,v
retrieving revision 1.216
diff -u -r1.216 mule.el
--- lisp/international/mule.el  11 Mar 2005 12:00:47 -0000      1.216
+++ lisp/international/mule.el  15 Mar 2005 17:07:04 -0000
@@ -1542,7 +1542,9 @@
 ;;; FILE I/O
 
 (defcustom auto-coding-alist
-  '(("\\.\\(arc\\|zip\\|lzh\\|zoo\\|jar\\|sx[dmicw]\\|tar\\|tgz\\)\\'" . 
no-conversion)
+  '(("\\.\\(arc\\|zip\\|lzh\\|zoo\\|ear\\|jar\\|war\\)\\'" . no-conversion)
+    ("\\.\\(ARC\\|ZIP\\|LZH\\|ZOO\\|EAR\\|JAR\\|WAR\\)\\'" . no-conversion)
+    ("\\.\\(sx[dmicw]\\|tar\\|tgz\\)\\'" . no-conversion)
     ("\\.\\(gz\\|Z\\|bz\\|bz2\\|gpg\\)\\'" . no-conversion)
     ("/#[^/]+#\\'" . emacs-mule))
   "Alist of filename patterns vs corresponding coding systems.

-- 
Juri Linkov
http://www.jurta.org/emacs/