Subject: bug#61432: closed (Re: bug#61432: 28.2; [PATCH] viper-init: disable face support)

From: [email-masked] (GNU bug Tracking System)
Date: Sat, 18 Feb 2023 17:02:02 +0000

Your bug report

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

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
61432: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=61432
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#61432: 28.2; [PATCH] viper-init: disable face support
From: Eli Zaretskii <[email-masked]>
To: andrés ramírez <[email-masked]>
Cc: [email-masked], [email-masked]
Date: Sat, 18 Feb 2023 19:01:05 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

Subject: 28.2; [PATCH] viper-init: disable face support
From: Andrés Ramírez <[email-masked]>
To: [email-masked]
Date: Sat, 11 Feb 2023 14:22:44 +0000
List-Id: <debbugs-submit.debbugs.gnu.org>

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