;;; dynamic-setting.el --- Support dynamic changes
-;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2012 Free Software Foundation, Inc.
;; Author: Jan Djärv <jan.h.d@swipnet.se>
;; Maintainer: FSF
:font font-to-set))))))
;; Set for future frames.
- (set-face-attribute 'default t :font new-font)
- (let ((spec (list (list t (face-attr-construct 'default)))))
- (progn
+ (when set-font
+ ;; FIXME: this is not going to play well with Custom themes.
+ (set-face-attribute 'default t :font new-font)
+ (let ((spec (list (list t (face-attr-construct 'default)))))
(put 'default 'customized-face spec)
(custom-push-theme 'theme-face 'default 'user 'set spec)
(put 'default 'face-modified nil))))))
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."
(interactive "e")
(let ((type (nth 1 event))
(define-key special-event-map [config-changed-event]
'dynamic-setting-handle-config-changed-event)
-;; arch-tag: 3a57e78f-1cd6-48b6-ab75-98f160dcc017