feature/native-comp cedc550 2/2: Make some defcustom types stricter in comp.el

[Stefan Kangas]

branch: feature/native-comp
commit cedc55041ea5179dcb389845d2d0e3562060cab9
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    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.
---
 lisp/emacs-lisp/comp.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 7c702ca..09ae383 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