From 70810d41ac5a86455866bb6d575d8d526db05484 Mon Sep 17 00:00:00 2001 From: Lars Tveito Date: Mon, 5 Oct 2020 01:42:44 +0200 Subject: [PATCH] Fix lingering dependencies on cl --- init.org | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/init.org b/init.org index 4d12941..a02b5d4 100644 --- a/init.org +++ b/init.org @@ -761,20 +761,19 @@ #+BEGIN_SRC emacs-lisp (let* ((default (face-attribute 'default :height)) - (size default)) + (size default)) (defun global-scale-default () (interactive) - (setq size default) - (global-scale-internal size)) + (global-scale-internal (setq size default))) (defun global-scale-up () (interactive) - (global-scale-internal (incf size 20))) + (global-scale-internal (setq size (+ size 20)))) (defun global-scale-down () (interactive) - (global-scale-internal (decf size 20))) + (global-scale-internal (setq size (- size 20)))) (defun global-scale-internal (arg) (set-face-attribute 'default (selected-frame) :height arg)