Fix load path once agina

Author: jcs090218

lisp/clean.el

@@ -13,7 +13,9 @@
 
 ;;; Code:
 
-(load-file (expand-file-name "_prepare.el" (file-name-directory (car (last command-line-args)))))
+(load-file (expand-file-name
+            "_prepare.el"
+            (file-name-directory (nth 1 (member "-scriptload" command-line-args)))))
 
 (eask-start
   (ignore-errors (delete-directory user-emacs-directory t)))

lisp/install.el

@@ -19,7 +19,9 @@
 
 ;;; Code:
 
-(load-file (expand-file-name "_prepare.el" (file-name-directory (car (last command-line-args)))))
+(load-file (expand-file-name
+            "_prepare.el"
+            (file-name-directory (nth 1 (member "-scriptload" command-line-args)))))
 
 (eask-start
   (package-initialize)

lisp/list.el

@@ -15,7 +15,9 @@
 
 ;;; Code:
 
-(load-file (expand-file-name "_prepare.el" (file-name-directory (car (last command-line-args)))))
+(load-file (expand-file-name
+            "_prepare.el"
+            (file-name-directory (nth 1 (member "-scriptload" command-line-args)))))
 
 (defvar eask-list-package-name-width nil
   "Width spaces for the package name.")

lisp/upgrade.el

@@ -19,7 +19,9 @@
 
 ;;; Code:
 
-(load-file (expand-file-name "_prepare.el" (file-name-directory (car (last command-line-args)))))
+(load-file (expand-file-name
+            "_prepare.el"
+            (file-name-directory (nth 1 (member "-scriptload" command-line-args)))))
 
 (defun eask-package-version (name where)
   "Get version of the package by NAME.