Current File : //usr/local/share/emacs/27.2/lisp/dynamic-setting.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
Mini Shell