mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Handle compressed files.

Browse Source
This commit is contained in:
Andreas Schwab 2005-11-19 16:53:48 +00:00
parent f0f98146d2
commit da49096f06
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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

7
lisp/emacs-lisp/shadow.el
View File

@ -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)