; 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.)

(cherry picked from commit 4003d5f12673d243d2cf5e36f6d124d166cc96be)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 43ed67b0cbd16bc0ac1dd7de289c269692b26adf..4e2b842d9df459ee7710df76904dacca88ee0232 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -5414,7 +5414,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 39c3732581a27bb5eca42b2b2eda143d587c026d..ca9849f351b70c33eece7369504b645a20b99285 100644 (file)
--- 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