Mercurial > hg > xemacs-beta
comparison lisp/package-admin.el @ 274:ca9a9ec9c1c1 r21-0b35
Import from CVS: tag r21-0b35
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:29:42 +0200 |
| parents | f220cc83d72e |
| children | 341dac730539 |
comparison
equal
deleted
inserted
replaced
| 273:411aac7253ef | 274:ca9a9ec9c1c1 |
|---|---|
| 42 (defun package-admin-add-single-file-package (file destdir &optional pkg-dir) | 42 (defun package-admin-add-single-file-package (file destdir &optional pkg-dir) |
| 43 "Install a single file Lisp package into XEmacs package hierarchy. | 43 "Install a single file Lisp package into XEmacs package hierarchy. |
| 44 `file' should be the full path to the lisp file to install. | 44 `file' should be the full path to the lisp file to install. |
| 45 `destdir' should be a simple directory name. | 45 `destdir' should be a simple directory name. |
| 46 The optional `pkg-dir' can be used to override the default package hierarchy | 46 The optional `pkg-dir' can be used to override the default package hierarchy |
| 47 \(last package-path)." | 47 \(car \(last late-packages))." |
| 48 (interactive "fLisp File: \nsDestination: ") | 48 (interactive "fLisp File: \nsDestination: ") |
| 49 (when (null pkg-dir) | 49 (when (null pkg-dir) |
| 50 (setq pkg-dir (cadr package-path))) | 50 (setq pkg-dir (car (last late-packages)))) |
| 51 (let ((destination (concat pkg-dir "/lisp/" destdir)) | 51 (let ((destination (concat pkg-dir "/lisp/" destdir)) |
| 52 (buf (get-buffer-create package-admin-temp-buffer))) | 52 (buf (get-buffer-create package-admin-temp-buffer))) |
| 53 (call-process "add-little-package.sh" | 53 (call-process "add-little-package.sh" |
| 54 nil | 54 nil |
| 55 buf | 55 buf |
| 60 ;;;###autoload | 60 ;;;###autoload |
| 61 (defun package-admin-add-binary-package (file &optional pkg-dir) | 61 (defun package-admin-add-binary-package (file &optional pkg-dir) |
| 62 "Install a pre-bytecompiled XEmacs package into package hierarchy." | 62 "Install a pre-bytecompiled XEmacs package into package hierarchy." |
| 63 (interactive "fPackage tarball: ") | 63 (interactive "fPackage tarball: ") |
| 64 (when (null pkg-dir) | 64 (when (null pkg-dir) |
| 65 (when (or (not (listp package-path)) | 65 (when (or (not (listp late-packages)) |
| 66 (not package-path)) | 66 (not late-packages)) |
| 67 (error "No package path")) | 67 (error "No package path")) |
| 68 (setq pkg-dir (car (last package-path)))) | 68 (setq pkg-dir (car (last late-packages)))) |
| 69 | 69 |
| 70 (let ((buf (get-buffer-create package-admin-temp-buffer))) | 70 (let ((buf (get-buffer-create package-admin-temp-buffer))) |
| 71 (call-process "add-big-package.sh" | 71 (call-process "add-big-package.sh" |
| 72 nil | 72 nil |
| 73 buf | 73 buf |