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

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Andrés Ramírez <rrandresf <at> hotmail.com>
Subject: bug#61432: closed (Re: bug#61432: 28.2; [PATCH] viper-init:
 disable face support)
Date: Sat, 18 Feb 2023 17:02:02 +0000

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

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 61432 <at> debbugs.gnu.org.

-- 
61432: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=61432
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Eli Zaretskii <eliz <at> gnu.org>
To: andrés ramírez <rrandresf <at> hotmail.com>
Cc: rpluim <at> gmail.com, 61432-done <at> debbugs.gnu.org
Subject: Re: bug#61432: 28.2; [PATCH] viper-init: disable face support
Date: Sat, 18 Feb 2023 19:01:05 +0200

[Message part 3 (message/rfc822, inline)]

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 4 (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 6 (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.