Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 629:a6c89d799f00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-07-15 08:18:59 by adrian] [PATCH] xemacs-21.5: typo fixes of of this this nature for lisp/ <8zhqhahu.fsf@ecf.teradyne.com>
author adrian
date Sun, 15 Jul 2001 08:18:59 +0000
parents e545f3ec2337
children 8e8a7b205142
comparison
equal deleted inserted replaced
628:e545f3ec2337 629:a6c89d799f00
949 ) 949 )
950 950
951 (defun package-get-staging-dir (filename) 951 (defun package-get-staging-dir (filename)
952 "Return a good place to stash FILENAME when it is retrieved. 952 "Return a good place to stash FILENAME when it is retrieved.
953 Use `package-get-dir' for directory to store stuff. 953 Use `package-get-dir' for directory to store stuff.
954 Creates `package-get-dir' it it doesn't exist." 954 Creates `package-get-dir' if it doesn't exist."
955 (interactive "FPackage filename: ") 955 (interactive "FPackage filename: ")
956 (if (not (file-exists-p package-get-dir)) 956 (if (not (file-exists-p package-get-dir))
957 (make-directory package-get-dir)) 957 (make-directory package-get-dir))
958 (expand-file-name 958 (expand-file-name
959 (file-name-nondirectory (or (and (fboundp 'efs-ftp-path) 959 (file-name-nondirectory (or (and (fboundp 'efs-ftp-path)