--- Begin Message ---
Subject: |
28.2; [PATCH] viper-init: disable face support |
Date: |
Sat, 11 Feb 2023 14:22:44 +0000 |
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
--- End Message ---