Mercurial > hg > xemacs-beta

comparison lisp/package-admin.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 1f50e6fe4f3f
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
1 ;;; package-admin.el --- Installation and Maintenance of XEmacs packages 1 ;;; package-admin.el --- Installation and Maintenance of XEmacs packages
2 2
3 ;; Copyright (C) 1997 by Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
4 4
5 ;; Author: SL Baur <steve@altair.xemacs.org> 5 ;; Author: SL Baur <steve@xemacs.org>
6 ;; Keywords: internal 6 ;; Keywords: internal
7 7
8 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
9 9
10 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; XEmacs is free software; you can redistribute it and/or modify it
164 (when (and (not (eq package 'unknown)) 164 (when (and (not (eq package 'unknown))
165 (featurep package-feature) 165 (featurep package-feature)
166 (setq autoload-dir (feature-file package-feature)) 166 (setq autoload-dir (feature-file package-feature))
167 (setq autoload-dir (file-name-directory autoload-dir)) 167 (setq autoload-dir (file-name-directory autoload-dir))
168 (member autoload-dir late-package-load-path)) 168 (member autoload-dir late-package-load-path))
169 ;; Find the corresonding entry in late-package 169 ;; Find the corresponding entry in late-package
170 (setq pkg-dir 170 (setq pkg-dir
171 (car-safe (member-if (lambda (h) 171 (car-safe (member-if (lambda (h)
172 (string-match (concat "^" (regexp-quote h)) 172 (string-match (concat "^" (regexp-quote h))
173 autoload-dir)) 173 autoload-dir))
174 late-packages)))) 174 late-packages))))