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

@ -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)