; Fix thinko in my last change

* lisp/emacs-lisp/bytecomp.el (bytecomp--custom-declare): Fix thinko.
* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-test-defcustom-local): Update test.

(cherry picked from commit 67e807d897077b7c982104b528e2504591214a29)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 48a473cd37503a839654162b8f8ce779eefd40c4..c510c418d578a975c8dccfda8ead821998f19c3c 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -5480,7 +5480,7 @@ FORM is used to provide location, `bytecomp--cus-function' and
       ;; Check :local
       (when-let ((val (and (eq fun 'custom-declare-variable)
                            (plist-get keyword-args :local)))
-                 (_ (not (memq val '(t permanent permanent-only)))))
+                 (_ (not (member val '(t 'permanent 'permanent-only)))))
         (bytecomp--cus-warn form ":local keyword does not accept %S" val))))
 
   (byte-compile-normal-call form))

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 69918e9c0c3aeccbf788f7acd790c83e5d302d58..caece633459cf7a1d7052139da6a98ff2604c459 100644 (file)
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -1991,6 +1991,9 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode js-mode python-mode)) \
      (rx ":local keyword does not accept 'symbol") (dc 'symbol))
     (bytecomp--with-warning-test
      (rx ":local keyword does not accept \"string\"") (dc "string"))
+    (bytecomp--without-warning-test (dc t))
+    (bytecomp--without-warning-test (dc 'permanent))
+    (bytecomp--without-warning-test (dc 'permanent-only))
     ))
 
 (ert-deftest bytecomp-test-defface-spec ()