Fix problem with recently-added defcustom's

* lisp/progmodes/php-ts-mode.el (php-ts-mode-php-config)
(php-ts-mode-ws-port, php-ts-mode-ws-document-root)
(php-ts-mode-ws-workers): Fix :type and :safe attributes.
(Bug#71566)

(cherry picked from commit 9e8c0ec9918af12aafa1063ad3bc3f9f1d180e6f)

diff --git a/lisp/progmodes/php-ts-mode.el b/lisp/progmodes/php-ts-mode.el
index 6a576d9c7c5a385fdf4ca3910387c81b1f54af65..fc029a171205748802a0b05e640c8c0967217eb4 100644 (file)
--- a/lisp/progmodes/php-ts-mode.el
+++ b/lisp/progmodes/php-ts-mode.el
@@ -130,7 +130,7 @@ If nil the default one is used to run the embedded webserver or
 inferior PHP process."
   :tag "PHP Init file"
   :version "30.1"
-  :type 'file)
+  :type '(choice (const :tag "Default init file" nil) file))
 
 (defcustom php-ts-mode-ws-hostname "localhost"
   "The hostname that will be served by the PHP built-in webserver.
@@ -146,23 +146,23 @@ See `https://www.php.net/manual/en/features.commandline.webserver.php'."
 If nil `php-ts-mode-run-php-webserver' will ask you for the port number."
   :tag "PHP built-in web server port"
   :version "30.1"
-  :type 'integer
-  :safe 'integerp)
+  :type '(choice (const :tag "Ask which port to use" nil) integer)
+  :safe 'integer-or-null-p)
 
 (defcustom php-ts-mode-ws-document-root nil
   "The root of the documents that the PHP built-in webserver will serve.
 If nil `php-ts-mode-run-php-webserver' will ask you for the document root."
   :tag "PHP built-in web server document root"
   :version "30.1"
-  :type 'directory)
+  :type '(choice (const :tag "Ask for document root" nil) directory))
 
 (defcustom php-ts-mode-ws-workers nil
   "The number of workers the PHP built-in webserver will fork.
 Useful for testing code against multiple simultaneous requests."
   :tag "PHP built-in number of workers"
   :version "30.1"
-  :type 'integer
-  :safe 'integerp)
+  :type '(choice (const :tag "No workers" nil) integer)
+  :safe 'integer-or-null-p)
 
 (defcustom php-ts-mode-inferior-php-buffer "*PHP*"
   "Name of the inferior PHP buffer."

diff --git a/lisp/subr.el b/lisp/subr.el
index cc1e9702edce048cfe7ee8295dc2165771859836..514418112a6a4a34c3a4f34e3110f06432d4dcd7 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4464,6 +4464,12 @@ or byte-code."
   (or (and (subrp object) (not (eq 'unevalled (cdr (subr-arity object)))))
       (byte-code-function-p object)))
 
+(defun integer-or-null-p (object)
+  "Return non-nil if OBJECT is either an integer or nil.
+Otherwise, return nil."
+  (declare (pure t) (side-effect-free error-free))
+  (or (integerp object) (null object)))
+
 (defun field-at-pos (pos)
   "Return the field at position POS, taking stickiness etc into account."
   (declare (important-return-value t))