Mercurial > hg > xemacs-beta

comparison lisp/prim/packages.el @ 191:ecf6ba7b0a10 r20-3b22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b22
author cvs
date Mon, 13 Aug 2007 09:57:38 +0200
parents 489f57a838ef
children a2f645c6b9f8
comparison
equal deleted inserted replaced
190:e9f9de458416 191:ecf6ba7b0a10
103 "" 103 ""
104 (if (or (rassq 'jka-compr-handler file-name-handler-alist) 104 (if (or (rassq 'jka-compr-handler file-name-handler-alist)
105 (and (boundp 'find-file-hooks) 105 (and (boundp 'find-file-hooks)
106 (member 'crypt-find-file-hook find-file-hooks))) 106 (member 'crypt-find-file-hook find-file-hooks)))
107 ".elc:.el:" 107 ".elc:.el:"
108 ;; The complex expression evaluates to a relatively 108 ".elc:.elc.gz:elc.Z:.el:.el.gz:.el.Z::.gz:.Z"))
109 ;; short string, so we do it at compile-time.
110 ;; Nope. This is run out of temacs and `eval-when-compile' is
111 ;; a void function. --sb
112 (mapconcat #'identity
113 (apply 'nconc
114 (mapcar (lambda (compelt)
115 (mapcar (lambda (baselt)
116 (concat baselt compelt))
117 '(".elc" ".el" "")))
118 '(".Z" ".gz" "")))
119 ":")))
120 4))) 109 4)))
121 (and interactive-call 110 (and interactive-call
122 (if result 111 (if result
123 (message "Library is file %s" result) 112 (message "Library is file %s" result)
124 (message "No library %s in search path" library))) 113 (message "No library %s in search path" library)))