comparison lisp/prim/packages.el @ 203:850242ba4a81 r20-3b28

Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents a2f645c6b9f8
children e45d5e7c476e
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
158 etc/ Contain data files for lisp installled in this hiearchy 158 etc/ Contain data files for lisp installled in this hiearchy
159 lisp/ Contain directories which either have straight lisp code 159 lisp/ Contain directories which either have straight lisp code
160 or are self-contained packages of their own." 160 or are self-contained packages of their own."
161 ;; Info files 161 ;; Info files
162 (if (and (null path-only) (file-directory-p (concat package "/info"))) 162 (if (and (null path-only) (file-directory-p (concat package "/info")))
163 (setq Info-default-directory-list 163 (let ((dir (concat package "/info/")))
164 (cons (concat package "/info/") Info-default-directory-list))) 164 (when (not (member dir Info-default-directory-list))
165 (nconc Info-default-directory-list (list dir)))))
165 ;; Data files 166 ;; Data files
166 (if (and (null path-only) (file-directory-p (concat package "/etc"))) 167 (if (and (null path-only) (file-directory-p (concat package "/etc")))
167 (setq data-directory-list 168 (setq data-directory-list
168 (cons (concat package "/etc/") data-directory-list))) 169 (cons (concat package "/etc/") data-directory-list)))
169 ;; Lisp files 170 ;; Lisp files