Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

(install-get-default-package-directory): New function.

  • Loading branch information...
commit ad6c73054ad06ddd35e9110ec009982bba0a4f8b 1 parent c38e2ed
tomo authored
Showing with 29 additions and 2 deletions.
  1. +29 −2 install.el
View
31 install.el
@@ -1,8 +1,9 @@
;;; install.el --- Emacs Lisp package install utility
-;; Copyright (C) 1996,1997,1998,1999,2001 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2006
+;; Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Created: 1996/08/18
;; Keywords: install, byte-compile, directory detection
@@ -226,6 +227,32 @@
;;; @ for XEmacs package system
;;;
+(defun install-get-default-package-directory ()
+ (let ((dirs (append
+ (cond
+ ((boundp 'early-package-hierarchies)
+ (append (if early-package-load-path
+ early-package-hierarchies)
+ (if late-package-load-path
+ late-package-hierarchies)
+ (if last-package-load-path
+ last-package-hierarchies)) )
+ ((boundp 'early-packages)
+ (append (if early-package-load-path
+ early-packages)
+ (if late-package-load-path
+ late-packages)
+ (if last-package-load-path
+ last-packages)) ))
+ (if (and (boundp 'configure-package-path)
+ (listp configure-package-path))
+ (delete "" configure-package-path))))
+ dir)
+ (while (and (setq dir (car dirs))
+ (not (file-exists-p dir)))
+ (setq dirs (cdr dirs)))
+ dir))
+
(defun install-update-package-files (package dir &optional just-print)
(cond
(just-print
Please sign in to comment.
Something went wrong with that request. Please try again.