Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents 576fb035e263
children d7a9135ec789
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
200 (cond ((or (rassq 'jka-compr-handler file-name-handler-alist) 200 (cond ((or (rassq 'jka-compr-handler file-name-handler-alist)
201 (and (boundp 'find-file-hooks) 201 (and (boundp 'find-file-hooks)
202 (member 'crypt-find-file-hook find-file-hooks))) 202 (member 'crypt-find-file-hook find-file-hooks)))
203 ;; Compression involved. 203 ;; Compression involved.
204 (if nosuffix 204 (if nosuffix
205 '("" ".gz" ".Z") 205 '("" ".gz" ".Z" ".bz2")
206 '(".elc" ".elc.gz" "elc.Z" ".el" ".el.gz" ".el.Z" "" ".gz" ".Z"))) 206 '(".elc" ".elc.gz" "elc.Z" ".elc.bz2"
207 ".el" ".el.gz" ".el.Z" ".el.bz2"
208 "" ".gz" ".Z" ".bz2")))
207 (t 209 (t
208 ;; No compression. 210 ;; No compression.
209 (if nosuffix 211 (if nosuffix
210 "" 212 ""
211 '(".elc" ".el" ""))))))) 213 '(".elc" ".el" "")))))))