From: Daniel Colascione Date: Fri, 4 Oct 2024 04:56:37 +0000 (-0400) Subject: Fix term.el tests; refine previous change X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49464a70d6baec3dc33bd8069cff4170b3e4d17e;p=emacs.git Fix term.el tests; refine previous change Fix the term.el tests by making them match the new expected output. * test/lisp/term-tests.el: defvar - defconst (ansi-test-strings): remove unwanted text properties from expectations * lisp/term.el: (term--handle-colors-list): further shrink common-case face list (cherry picked from commit 5e0935d9917fe768f74311c6cb4dc3a1e9014c52) --- diff --git a/lisp/term.el b/lisp/term.el index b4e159d09fc..9a88fc95b61 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -3541,7 +3541,8 @@ color is unset in the terminal state." (setq term-current-face `(,@(when fg `(:foreground ,fg)) ,@(when bg `(:background ,bg)) - ,@(unless term-ansi-current-invisible + ,@(when (and term-ansi-current-reverse + (not term-ansi-current-invisible)) (list :inverse-video term-ansi-current-reverse))))) (setq term-current-face diff --git a/test/lisp/term-tests.el b/test/lisp/term-tests.el index f5209d6f580..8df07ac66e1 100644 --- a/test/lisp/term-tests.el +++ b/test/lisp/term-tests.el @@ -28,25 +28,18 @@ (defvar term-height) ; Number of lines in window. (defvar term-width) ; Number of columns in window. -(defvar yellow-fg-props - `( :foreground ,(face-foreground 'term-color-yellow nil 'default) - :background "unspecified-bg" :inverse-video nil)) -(defvar yellow-bg-props - `( :foreground "unspecified-fg" - :background ,(face-background 'term-color-yellow nil 'default) - :inverse-video nil)) -(defvar bright-yellow-fg-props - `( :foreground ,(face-foreground 'term-color-bright-yellow nil 'default) - :background "unspecified-bg" :inverse-video nil)) -(defvar bright-yellow-bg-props - `( :foreground "unspecified-fg" - :background ,(face-background 'term-color-bright-yellow nil 'default) - :inverse-video nil)) -(defvar custom-color-fg-props - `( :foreground "#87FFFF" - :background "unspecified-bg" :inverse-video nil)) - -(defvar ansi-test-strings +(defconst yellow-fg-props + `(:foreground ,(face-foreground 'term-color-yellow nil 'default))) +(defconst yellow-bg-props + `(:background ,(face-background 'term-color-yellow nil 'default))) +(defconst bright-yellow-fg-props + `(:foreground ,(face-foreground 'term-color-bright-yellow nil 'default))) +(defconst bright-yellow-bg-props + `(:background ,(face-background 'term-color-bright-yellow nil 'default))) +(defconst custom-color-fg-props + `(:foreground "#87FFFF")) + +(defconst ansi-test-strings `(("\e[33mHello World\e[0m" ,(propertize "Hello World" 'font-lock-face `(,yellow-fg-props))) ("\e[43mHello World\e[0m"