Mercurial > hg > xemacs-beta
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 |