From 5b6ff5015bbc45c2e40f9aceeaf6b89e14938bea Mon Sep 17 00:00:00 2001 From: Benjamin Lindqvist Date: Fri, 25 May 2018 10:38:05 +0200 Subject: Replaced custom-set stuff with setq-default etc (n00by mistake) --- feebleline.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'feebleline.el') diff --git a/feebleline.el b/feebleline.el index 2ac77ff..e47e748 100644 --- a/feebleline.el +++ b/feebleline.el @@ -156,15 +156,14 @@ sent to `add-text-properties'.") (defun feebleline-default-settings-on () "Some default settings that works well with feebleline." - (custom-set-variables - '(window-divider-default-bottom-width 1) - '(window-divider-default-places (quote bottom-only))) + (setq window-divider-default-bottom-width 1 + window-divider-default-places (quote bottom-only)) (window-divider-mode t) - (custom-set-variables '(mode-line-format nil))) + (setq-default mode-line-format nil)) (defun feebleline-legacy-settings-on () "Some default settings for EMACS < 25." - (custom-set-faces '(mode-line ((t (:height 0.1)))))) + (set-face-attribute 'mode-line nil :height 0.1)) (defvar feebleline/timer) (defvar feebleline/mode-line-format-previous) @@ -187,9 +186,8 @@ sent to `add-text-properties'.") (add-hook 'focus-in-hook 'feebleline-mode-line-proxy-fn)) ;; Deactivation: - (custom-set-faces '(mode-line ((t :height unspecified)))) - (custom-set-variables - '(mode-line-format feebleline/mode-line-format-previous)) + (set-face-attribute 'mode-line nil :height nil) + (setq-default 'mode-line-format feebleline/mode-line-format-previous) (cancel-timer feebleline/timer) (ad-deactivate 'handle-switch-frame) (remove-hook 'focus-in-hook 'feebleline-mode-line-proxy-fn) -- cgit v1.2.3