Fix lingering dependencies on cl

This commit is contained in:
Lars Tveito 2020-10-05 01:42:44 +02:00
parent 84b8947f94
commit 70810d41ac

View File

@ -765,16 +765,15 @@
(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)