fix: Use reach verbosity instead

emacs-eask · Jan 28, 2024 · 1e1b333 · 1e1b333
1 parent 6859b35
commit 1e1b333
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/lisp/core/compile.el b/lisp/core/compile.el
@@ -29,8 +29,10 @@
 
 (add-hook 'eask-before-command-hook
           (lambda ()
-            (when (eask-strict-p)      (setq byte-compile-error-on-warn t))
-            (when (= eask-verbosity 4) (setq byte-compile-verbose t))))
+            (when (eask-strict-p)
+              (setq byte-compile-error-on-warn t))
+            (when (eask-reach-verbosity-p 'debug)
+              (setq byte-compile-verbose t))))
 
 ;;
 ;;; Core

diff --git a/lisp/test/ert-runner.el b/lisp/test/ert-runner.el
@@ -17,7 +17,8 @@
 ;; Handle options
 (add-hook 'eask-before-command-hook
           (lambda ()
-            (when (= eask-verbosity 4) (setq ert-runner-verbose t))))
+            (when (eask-reach-verbosity-p 'debug)
+              (setq ert-runner-verbose t))))
 
 (eask-start
   (eask-with-archives '("gnu" "melpa")