bug#61432: 28.2; [PATCH] viper-init: disable face support

[Eli Zaretskii]

> From: Andrés Ramírez <rrandresf@hotmail.com>
> Date: Sat, 11 Feb 2023 14:22:44 +0000
> 
> The following patch disables face support for not changing the modeline
> fonts when using viper.
> 
> diff -u /tmp/viper-init.el.bak /tmp/viper-init.el
> --- /tmp/viper-init.el.bak    2023-02-10 12:25:52.388368619 +0000
> +++ /tmp/viper-init.el        2023-02-10 12:30:11.118394615 +0000
> @@ -78,11 +78,16 @@
>    :type 'boolean
>    :group 'viper-highlighting)
>  
> +(defvar viper-disable-face-support nil
> +  "disable the face support for not changing faces in the modeline. And stay 
> as emacs -Q.")
> +
>  (defun viper-has-face-support-p ()
> +  (if (and (boundp 'viper-disable-face-support) viper-disable-face-support)
> +      nil
>    (cond ((viper-window-display-p))
>       (viper-force-faces)
>       ((viper-color-display-p))
> -     (t (memq window-system '(pc)))))
> +     (t (memq window-system '(pc))))))

Can't you have the same effect if you customize the faces
viper-minibuffer-emacs-face and viper-minibuffer-vi-face to look the
same?

IOW, I don't think I understand the intent (nor the rationale, btw),
but then I'm not using viper, so I'm probably missing something.

Thanks.