diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2024-09-29 19:23:11 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2024-09-29 19:23:11 +0200 |
| commit | 4003d5f12673d243d2cf5e36f6d124d166cc96be (patch) | |
| tree | d1d9ca605cdf4f515cf5a660ad0c68c7b83e26d9 | |
| parent | 0c28a1b0fab26dd726ea54927661d0402f8047dc (diff) | |
; 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.)
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 2 |
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 |