fix: Allow error while compiling

emacs-eask · Oct 29, 2023 · 2b18dc4 · 2b18dc4
1 parent be7a0bb
commit 2b18dc4
Show file tree

Hide file tree

Showing 11 changed files with 27 additions and 10 deletions.
diff --git a/lisp/core/compile.el b/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.")
 

diff --git a/lisp/extern/compat.el b/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
diff --git a/lisp/lint/checkdoc.el b/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

diff --git a/lisp/lint/elint.el b/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

diff --git a/lisp/lint/elisp-lint.el b/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

diff --git a/lisp/lint/elsa.el b/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

diff --git a/lisp/lint/indent.el b/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

diff --git a/lisp/lint/keywords.el b/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

diff --git a/lisp/lint/license.el b/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

diff --git a/lisp/lint/package.el b/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

diff --git a/lisp/lint/regexps.el b/lisp/lint/regexps.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