fix: Allow error while compiling

Author: jcs090218

lisp/core/compile.el

@@ -19,12 +19,22 @@
                           (locate-dominating-file dir "_prepare.el"))
         nil t))
 
-;; Handle options
+;;
+;;; Flags
+
+(advice-add #'eask-allow-error-p :override #'always)
+
+;;
+;;; Handle options
+
 (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))))
 
+;;
+;;; Core
+
 (defconst eask-compile-log-buffer-name "*Compile-Log*"
   "Byte-compile log buffer name.")
 

lisp/extern/compat.el

@@ -44,4 +44,11 @@
               (push (concat dir "/" file) files)))))
       (nconc result (nreverse files)))))
 
+(eask-defvc< 28
+  (defun always (&rest _arguments)
+    "Ignore ARGUMENTS, do nothing, and return t.
+This function accepts any number of arguments in ARGUMENTS.
+Also see `ignore'."
+    t))
+
 ;;; extern/compat.el ends here

lisp/lint/checkdoc.el

@@ -30,7 +30,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core

lisp/lint/elint.el

@@ -27,7 +27,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core

lisp/lint/elisp-lint.el

@@ -27,7 +27,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core

lisp/lint/elsa.el

@@ -33,7 +33,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core

lisp/lint/indent.el

@@ -22,7 +22,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core

lisp/lint/keywords.el

@@ -17,7 +17,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core

lisp/lint/license.el

@@ -17,7 +17,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Core

lisp/lint/package.el

@@ -27,7 +27,7 @@
 ;;
 ;;; Flags
 
-(advice-add #'eask-allow-error-p :override (lambda (&rest _) t))
+(advice-add #'eask-allow-error-p :override #'always)
 
 ;;
 ;;; Handle options