; Reword :reverse-video warning

* lisp/emacs-lisp/bytecomp.el (bytecomp--check-cus-face-spec):
* test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-test-defface-spec):
Clarify.  (See bug#73552.)

2 files changed, 2 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 47df26f01d6..5ed058e0a14 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -5406,7 +5406,7 @@ FORM is used to provide location, `bytecomp--cus-function' and
              ((eq attr :reverse-video)
               (bytecomp--cus-warn
                (list atts sp spec)
-               (concat "Face attribute `:reverse-video' is obsolete;"
+               (concat "Face attribute `:reverse-video' has been removed;"
                        " use `:inverse-video' instead")))
              (t
               (bytecomp--cus-warn
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 39c3732581a..ca9849f351b 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -2001,7 +2001,7 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode js-mode python-mode)) \
      (rx "`:inverse' is not a valid face attribute keyword")
      (df '((t (:background "blue" :inverse t)))))  ; old attr list syntax
     (bytecomp--with-warning-test
-     (rx "Face attribute `:reverse-video' is obsolete;"
+     (rx "Face attribute `:reverse-video' has been removed;"
          " use `:inverse-video' instead")
      (df '((t :background "red" :reverse-video t))))
     (bytecomp--with-warning-test