ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/dynamic-setting.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.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)])
#@258 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=\203& \306 \311\"\202: \n\312=\2031 \313 \202: \n\314=\205: \315\307!*\207" [event display-name type font-use-system-font 2 monospace-font-name font-setting-change-default-font t font-render nil theme-name clear-face-cache tool-bar-style force-mode-line-update] 4 (#$ . 1375) "e"])
(define-key special-event-map [config-changed-event] 'dynamic-setting-handle-config-changed-event)
Kontol Shell Bypass