larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix lingering dependencies on cl

Browse Source
This commit is contained in:
Lars Tveito 2020-10-05 01:42:44 +02:00
parent 84b8947f94
commit 70810d41ac
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
init.org
View File

@ -761,20 +761,19 @@
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(let* ((default (face-attribute 'default :height)) (let* ((default (face-attribute 'default :height))
(size default)) (size default))
(defun global-scale-default () (defun global-scale-default ()
(interactive) (interactive)
(setq size default) (global-scale-internal (setq size default)))
(global-scale-internal size))
(defun global-scale-up () (defun global-scale-up ()
(interactive) (interactive)
(global-scale-internal (incf size 20))) (global-scale-internal (setq size (+ size 20))))
(defun global-scale-down () (defun global-scale-down ()
(interactive) (interactive)
(global-scale-internal (decf size 20))) (global-scale-internal (setq size (- size 20))))
(defun global-scale-internal (arg) (defun global-scale-internal (arg)
(set-face-attribute 'default (selected-frame) :height arg) (set-face-attribute 'default (selected-frame) :height arg)