Show
Ignore:
Timestamp:
2005年11月26日 08時33分26秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/emacs-lisp/shadow.el

    r3806 r3988  
    105105        (setq dir (directory-file-name (or (car path) "."))) 
    106106        (setq curr-files (if (file-accessible-directory-p dir) 
    107                              (directory-files dir nil ".\\.elc?$" t))) 
     107                             (directory-files dir nil ".\\.elc?\\(\\.gz\\)?$" t))) 
    108108        (and curr-files 
    109109             (not noninteractive) 
    …… 
    115115 
    116116          (setq file (car curr-files)) 
     117          (if (string-match "\\.gz$" file) 
     118              (setq file (substring file 0 -3))) 
    117119          (setq file (substring 
    118120                      file 0 (if (string= (substring file -1) "c") -4 -3))) 
    …… 
    210212    ;; If we can find simple.el in two places, 
    211213    (while tem 
    212       (if (file-exists-p (expand-file-name "simple.el" (car tem))) 
     214      (if (or (file-exists-p (expand-file-name "simple.el" (car tem))) 
     215              (file-exists-p (expand-file-name "simple.el.gz" (car tem)))) 
    213216          (setq toplevs (cons (car tem) toplevs))) 
    214217      (setq tem (cdr tem)))