diff --git a/eaf.el b/eaf.el index cccea38..223c0b8 100644 --- a/eaf.el +++ b/eaf.el @@ -76,9 +76,18 @@ (require 'subr-x) (require 'map) (require 'bookmark) +(require 'seq) ;;; Code: + +;; Remove the relevant environment variables from the process-environment to disable QT scaling, +;; let EAF qt program follow the system scale. +(setq process-environment (seq-filter + (lambda(var) + (and (not (string-match-p "QT_SCALE_FACTOR" var)) + (not (string-match-p "QT_SCREEN_SCALE_FACTOR" var)))) process-environment)) + (defgroup eaf nil "Emacs Application Framework." :group 'applications)