From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 26 Feb 2021 17:03:19 +0000 (+0100)
Subject: Make some defcustom types stricter in comp.el
X-Git-Tag: emacs-28.0.90~2727^2~119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cedc55041ea5179dcb389845d2d0e3562060cab9;p=emacs.git

Make some defcustom types stricter in comp.el

* lisp/emacs-lisp/comp.el (comp-speed, comp-debug, comp-verbose)
(comp-async-jobs-number, comp-async-env-modifier-form): Use stricter
types.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 7c702ca4971..09ae3834922 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -52,8 +52,8 @@
 - 2 max optimization level fully adherent to the language semantic.
 - 3 max optimization level, to be used only when necessary.
     Warning: the compiler is free to perform dangerous optimizations."
-  :type 'number
-  :safe #'numberp
+  :type 'integer
+  :safe #'integerp
   :version "28.1")
 
 (defcustom comp-debug 0
@@ -64,8 +64,8 @@ This intended for debugging the compiler itself.
 - 1 emit debug symbols and dump pseudo C code.
 - 2 dump gcc passes and libgccjit log file.
 - 3 dump libgccjit reproducers."
-  :type 'number
-  :safe #'numberp
+  :type 'integer
+  :safe #'natnump
   :version "28.1")
 
 (defcustom comp-verbose 0
@@ -75,7 +75,8 @@ This intended for debugging the compiler itself.
 - 1 final limple is logged.
 - 2 LAP and final limple and some pass info are logged.
 - 3 max verbosity."
-  :type 'number
+  :type 'integer
+  :risky t
   :version "28.1")
 
 (defcustom comp-always-compile nil
@@ -109,7 +110,8 @@ Skip if any is matching."
 (defcustom comp-async-jobs-number 0
   "Default number of processes used for async compilation.
 When zero use half of the CPUs or at least one."
-  :type 'number
+  :type 'integer
+  :risky t
   :version "28.1")
 
 ;; FIXME: This an abnormal hook, and should be renamed to something
@@ -130,6 +132,7 @@ compilation input."
   "Form evaluated before compilation by each asynchronous compilation worker.
 Usable to modify the compiler environment."
   :type 'list
+  :risky t
   :version "28.1")
 
 (defcustom comp-async-report-warnings-errors t