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

[Andrés Ramírez]

Hi.

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

Diff finished.  Fri Feb 10 12:31:17 2023

Best Regards