[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/shadow.el

[Andreas Schwab]

Index: emacs/lisp/emacs-lisp/shadow.el
diff -c emacs/lisp/emacs-lisp/shadow.el:1.19 
emacs/lisp/emacs-lisp/shadow.el:1.20
*** emacs/lisp/emacs-lisp/shadow.el:1.19        Sat Aug  6 17:08:59 2005
--- emacs/lisp/emacs-lisp/shadow.el     Sat Nov 19 16:53:32 2005
***************
*** 104,110 ****
        (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)))
        (and curr-files
             (not noninteractive)
             (message "Checking %d files in %s..." (length curr-files) dir))
--- 104,110 ----
        (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?\\(\\.gz\\)?$" 
t)))
        (and curr-files
             (not noninteractive)
             (message "Checking %d files in %s..." (length curr-files) dir))
***************
*** 114,119 ****
--- 114,121 ----
        (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,215 ****
        toplevs)
      ;; If we can find simple.el in two places,
      (while tem
!       (if (file-exists-p (expand-file-name "simple.el" (car tem)))
          (setq toplevs (cons (car tem) toplevs)))
        (setq tem (cdr tem)))
      (if (> (length toplevs) 1)
--- 211,218 ----
        toplevs)
      ;; If we can find simple.el in two places,
      (while 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)