Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/package-admin.el	Mon Aug 13 10:02:23 2007 +0200
+++ b/lisp/prim/package-admin.el	Mon Aug 13 10:02:46 2007 +0200
@@ -63,7 +63,10 @@
   "Install a pre-bytecompiled XEmacs package into package hierarchy."
   (interactive "fPackage tarball: ")
   (when (null pkg-dir)
-    (setq pkg-dir (cadr package-path)))
+    (when (or (not (listp package-path))
+	      (not package-path))
+      (error "No package path"))
+    (setq pkg-dir (car (last package-path))))
 
   (let ((buf (get-buffer-create package-admin-temp-buffer)))
     (call-process "add-big-package.sh"