Make fixup-faces interactive

5 years ago · 4906e986bb
parent e080570131
commit 4906e986bb
1 changed files with 4 additions and 3 deletions
--- a/global.org
+++ b/global.org
@ -92,10 +92,11 @@
   This is a hack to remove slant and bold from all faces
   #+begin_src emacs-lisp
     (defun wilder/fixup-faces ()
+       (interactive)
       (mapc (lambda (face)
-	      (set-face-attribute face nil :weight 'normal)
-	      (set-face-attribute face nil :slant 'normal))
-	    (face-list))
+          (set-face-attribute face nil :weight 'normal)
+          (set-face-attribute face nil :slant 'normal))
+        (face-list))
     (set-face-font 'default "-xos4-hackminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1"))
   #+end_src
 ** Cosmetics