@@ -71,6 +71,10 @@ will return `lint-checkdoc' with a dash between two subcommands."
7171 (if (member module-name '(" core" )) script-file
7272 (concat module-name " -" script-file))))
7373
74+ (defun eask-sepcial-p ()
75+ " Return t if the command that can be run without Eask-file existence."
76+ (member (eask-command) '(" keywords" )))
77+
7478(defun eask-checker-p ()
7579 " Return t if running Eask as the checker."
7680 (member (eask-command) '(" check-eask" )))
@@ -220,7 +224,7 @@ the `eask-start' execution.")
220224 (eask-with-progress
221225 (ansi-green " Updating environment variables... " )
222226 (eask-with-verbosity 'debug
223- (eask--update-exec-path) (eask--update-load-path)
227+ ; ; (eask--update-exec-path) (eask--update-load-path)
224228 (setenv " PATH" (string-join exec-path path-separator))
225229 (setenv " EMACSLOADPATH" (string-join load-path path-separator)))
226230 (ansi-green " done ✓" )))
@@ -637,14 +641,17 @@ Eask file in the workspace."
637641 (package-user-dir (expand-file-name " elpa" user-emacs-directory))
638642 (eask--first-init-p (not (file-directory-p user-emacs-directory)))
639643 (user-init-file (locate-user-emacs-file " init.el" ))
640- (custom-file (locate-user-emacs-file " custom.el" )))
641- (if (eask-file-try-load " ../../" )
644+ (custom-file (locate-user-emacs-file " custom.el" ))
645+ (special (eask-sepcial-p)))
646+ (if (or (eask-file-try-load " ../../" )
647+ special)
642648 (progn
643649 (eask-msg " ✓ Loading Eask file in %s... done!" eask-file)
644650 (message " " )
645651 (package-activate-all )
646- (ignore-errors (make-directory package-user-dir t ))
647- (eask--silent (eask-setup-paths))
652+ (unless special
653+ (ignore-errors (make-directory package-user-dir t ))
654+ (eask--silent (eask-setup-paths)))
648655 (eask--with-hooks ,@body ))
649656 (eask-msg " ✗ Loading Eask file... missing!" )
650657 (eask-help 'init )))))))))
0 commit comments