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

Previous Next

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Andrés Ramírez <rrandresf <at> hotmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 28.2; [PATCH] viper-init: disable face support
Date: Sat, 11 Feb 2023 14:22:44 +0000

[Message part 1 (text/plain, inline)]

Hi.

The following patch disables face support for not changing the modeline
fonts when using viper.

[patch-viper-init-optionally-disable-face-support.patch (text/x-patch, inline)]

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

[Message part 3 (text/plain, inline)]

Best Regards

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.