From 2f71895b075122215f14951ad4adad2529d14f4e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Hauspie?= <michael.hauspie@univ-lille.fr>
Date: Sun, 9 Mar 2025 17:08:57 +0100
Subject: [PATCH] Font size change only does it in current frame
---
configuration.org | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/configuration.org b/configuration.org
index 5a7ab69..4c3425b 100644
--- a/configuration.org
+++ b/configuration.org
@@ -348,11 +348,11 @@ https://emacs-fu.blogspot.com/2008/12/zooming-inout.html
#+begin_src emacs-lisp
(defun my/text-zoom (n)
"with positive N, increase the font size, otherwise decrease it"
- (set-face-attribute 'default nil :height
+ (set-face-attribute 'default (selected-frame) :height
(+ (face-attribute 'default :height) (* (if (> n 0) 1 -1) 10)))
- (set-face-attribute 'fixed-pitch nil :height
+ (set-face-attribute 'fixed-pitch (selected-frame) :height
(+ (face-attribute 'fixed-pitch :height) (* (if (> n 0) 1 -1) 10)))
- (set-face-attribute 'variable-pitch nil :height
+ (set-face-attribute 'variable-pitch (selected-frame) :height
(+ (face-attribute 'variable-pitch :height) (* (if (> n 0) 1 -1) 10)))
)
--
GitLab