Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 269:b2472a1930f2 r20-5b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 966663fcf606
children c5d627a313b1
comparison
equal deleted inserted replaced
268:6ced69ccd85f 269:b2472a1930f2
334 packages-special-bases))) 334 packages-special-bases)))
335 335
336 (defun packages-split-path (path) 336 (defun packages-split-path (path)
337 "Split PATH at NIL, return pair with two components. 337 "Split PATH at NIL, return pair with two components.
338 The second component is shared with PATH." 338 The second component is shared with PATH."
339 (let ((reverse-early '())) 339 (let ((reverse-tail '()))
340 (while (and path (null (null (car path)))) 340 (while (and path (null (null (car path))))
341 (setq reverse-early (cons (car path) reverse-early)) 341 (setq reverse-tail (cons (car path) reverse-tail))
342 (setq path (cdr path))) 342 (setq path (cdr path)))
343 (if (null path) 343 (if (null path)
344 (cons nil path) 344 (cons nil (nreverse reverse-tail))
345 (cons (reverse reverse-early) (cdr path))))) 345 (cons (nreverse reverse-tail) (cdr path)))))
346 346
347 (defun packages-find-packages (package-path &optional inhibit) 347 (defun packages-find-packages (package-path &optional inhibit)
348 "Search for all packages in PACKAGE-PATH. 348 "Search for all packages in PACKAGE-PATH.
349 PACKAGE-PATH may distinguish (by NIL-separation) between early 349 PACKAGE-PATH may distinguish (by NIL-separation) between early
350 and late packages. 350 and late packages.