Mercurial > hg > xemacs-beta

comparison lisp/prim/package-admin.el @ 205:92f8ad5d0d3f r20-4b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b1
author cvs
date Mon, 13 Aug 2007 10:02:46 +0200
parents 850242ba4a81
children
comparison
equal deleted inserted replaced
204:a15e4b3d59c6 205:92f8ad5d0d3f
61 ;;;###autoload 61 ;;;###autoload
62 (defun package-admin-add-binary-package (file &optional pkg-dir) 62 (defun package-admin-add-binary-package (file &optional pkg-dir)
63 "Install a pre-bytecompiled XEmacs package into package hierarchy." 63 "Install a pre-bytecompiled XEmacs package into package hierarchy."
64 (interactive "fPackage tarball: ") 64 (interactive "fPackage tarball: ")
65 (when (null pkg-dir) 65 (when (null pkg-dir)
66 (setq pkg-dir (cadr package-path))) 66 (when (or (not (listp package-path))
67 (not package-path))
68 (error "No package path"))
69 (setq pkg-dir (car (last package-path))))
67 70
68 (let ((buf (get-buffer-create package-admin-temp-buffer))) 71 (let ((buf (get-buffer-create package-admin-temp-buffer)))
69 (call-process "add-big-package.sh" 72 (call-process "add-big-package.sh"
70 nil 73 nil
71 buf 74 buf