Mercurial > hg > xemacs-beta

comparison lisp/package-admin.el @ 327:03446687b7cc r21-0-61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-61
author cvs
date Mon, 13 Aug 2007 10:48:16 +0200
parents f2b5d7006b0a
children 4f79e16b1112
comparison
equal deleted inserted replaced
326:e2671bc7f66a 327:03446687b7cc
36 "Location of XEmacs binary to use.") 36 "Location of XEmacs binary to use.")
37 37
38 (defvar package-admin-temp-buffer "*Package Output*" 38 (defvar package-admin-temp-buffer "*Package Output*"
39 "Temporary buffer where output of backend commands is saved.") 39 "Temporary buffer where output of backend commands is saved.")
40 40
41 (defvar package-admin-install-function 'package-admin-default-install-function 41 (defvar package-admin-install-function (if (eq system-type 'windows-nt)
42 'package-admin-install-function-mswindows
43 'package-admin-default-install-function)
42 "The function to call to install a package. 44 "The function to call to install a package.
43 Three args are passed: FILENAME PKG-DIR BUF 45 Three args are passed: FILENAME PKG-DIR BUF
44 Install package FILENAME into directory PKG-DIR, with any messages output 46 Install package FILENAME into directory PKG-DIR, with any messages output
45 to buffer BUF.") 47 to buffer BUF.")
46 48
124 (defun package-admin-install-function-mswindows (file pkg-dir buf) 126 (defun package-admin-install-function-mswindows (file pkg-dir buf)
125 "Install function for mswindows" 127 "Install function for mswindows"
126 (let ((default-directory (file-name-as-directory pkg-dir))) 128 (let ((default-directory (file-name-as-directory pkg-dir)))
127 (unless (file-directory-p default-directory) 129 (unless (file-directory-p default-directory)
128 (make-directory default-directory t)) 130 (make-directory default-directory t))
129 (call-process "djtar" nil buf t "-x" file))) 131 (call-process "minitar" nil buf t file)))
130 132
131 (defun package-admin-default-install-function (file pkg-dir buf) 133 (defun package-admin-default-install-function (file pkg-dir buf)
132 "Default function to install a package. 134 "Default function to install a package.
133 Install package FILENAME into directory PKG-DIR, with any messages output 135 Install package FILENAME into directory PKG-DIR, with any messages output
134 to buffer BUF." 136 to buffer BUF."