View file File name : dynamic-setting.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@285 Change font and/or font settings for frames on display DISPLAY-OR-FRAME. If DISPLAY-OR-FRAME is a frame, the display is the one for that frame. If SET-FONT is non-nil, change the font for frames. Otherwise re-apply the current form for the frame (i.e. hinting or somesuch changed). (defalias 'font-setting-change-default-font #[(display-or-frame set-font) "\306\307!\205 \307 \310!\211\205g \311!\205g \312 \210 \203& \313\n\314 #\202g \314 \211 \205f @\315\316\317\320\f\317$\321\"\206A \322\f\323\"\211 \203] \324\f\323#\210\325\317\f\326\327\330\327\331\327\320&\n\210) A\211\204. \314**\207" [display-or-frame frame-list new-font set-font f --dolist-tail-- fboundp font-get-system-font frames-on-display-list display-graphic-p clear-font-cache set-frame-font nil font-get face-attribute default :font :user-spec frame-parameter font-parameter set-frame-parameter set-face-attribute :width normal :weight :slant frame-font] 12 (#$ . 409)]) #@259 Handle config-changed-event on the display in EVENT. Changes can be The monospace font. If `font-use-system-font' is nil, the font is not changed. The normal font. Xft parameters, like DPI and hinting. The Gtk+ theme name. The tool bar style. (defalias 'dynamic-setting-handle-config-changed-event #[(event) "A@\3048\211\305=\203 \203 \306 \307\"\202? \n\310\267\2021 \306 \311\"\202? \312 \202? \313\307!\202? \n\305=\205? \205? \306 \307\"*\207" [event display-name type font-use-system-font 2 monospace-font-name font-setting-change-default-font t #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (font-render 31 theme-name 38 tool-bar-style 43)) nil clear-face-cache force-mode-line-update] 4 (#$ . 1375) "e"]) (define-key special-event-map [config-changed-event] 'dynamic-setting-handle-config-changed-event)