Handle compressed files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f22f75f15c104443a9abfe8a9eb537c155cb62f..434e634e826b5bbd85c826c33a2737b9924996f8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-19  Andreas Schwab  <schwab@suse.de>
+
+       * emacs-lisp/shadow.el: Handle compressed files.
+
 2005-11-19  Romain Francoise  <romain@orebokech.com>
 
        * net/browse-url.el (browse-url-default-browser): Signal an error

diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 9cea82d778092f6d96686d018cae72ac32a2dcc3..9e68fb0896753a8321f022d7f6f3d0d7e6a18d26 100644 (file)
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -104,7 +104,7 @@ See the documentation for `list-load-path-shadows' for further information."
        (setq true-names (append true-names (list dir)))
        (setq dir (directory-file-name (or (car path) ".")))
        (setq curr-files (if (file-accessible-directory-p dir)
-                            (directory-files dir nil ".\\.elc?$" t)))
+                            (directory-files dir nil ".\\.elc?\\(\\.gz\\)?$" t)))
        (and curr-files
             (not noninteractive)
             (message "Checking %d files in %s..." (length curr-files) dir))
@@ -114,6 +114,8 @@ See the documentation for `list-load-path-shadows' for further information."
        (while curr-files
 
          (setq file (car curr-files))
+         (if (string-match "\\.gz$" file)
+             (setq file (substring file 0 -3)))
          (setq file (substring
                      file 0 (if (string= (substring file -1) "c") -4 -3)))
 
@@ -209,7 +211,8 @@ buffer called `*Shadows*'.  Shadowings are located by calling the
        toplevs)
     ;; If we can find simple.el in two places,
     (while tem
-      (if (file-exists-p (expand-file-name "simple.el" (car tem)))
+      (if (or (file-exists-p (expand-file-name "simple.el" (car tem)))
+             (file-exists-p (expand-file-name "simple.el.gz" (car tem))))
          (setq toplevs (cons (car tem) toplevs)))
       (setq tem (cdr tem)))
     (if (> (length toplevs) 1)