From 66b1363c0aaa9682c37689cc8b62662dfb0a059c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=81ukasz=20Pankowski?= Date: Sat, 1 Sep 2018 17:42:40 +0200 Subject: [PATCH] exit from my-font-list on quit, remove aliases to removed functions --- init.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/init.el b/init.el index e8105cf..f46e55e 100644 --- a/init.el +++ b/init.el @@ -285,8 +285,6 @@ (interactive) (setq ispell-local-dictionary "polish")) -(defalias 'fi #'set-frame-font-inconsolata) -(defalias 'fm #'set-frame-font-go-mono) (defalias 'st #'magit-status) (defalias 'ir #'ispell-region) (defalias 'md #'markdown-mode) @@ -918,10 +916,12 @@ inserted between the braces between the braces." "Set font to one of the fonts from `my-font-list' Argument FRAMES has the same meaning as for `set-frame-font'" (interactive - (list (helm :prompt "Font name: " - :sources (helm-build-sync-source "Fonts" - :candidates my-font-list) - :buffer "*font selection*") + (list (or (helm :prompt "Font name: " + :resume 'noresume + :sources (helm-build-sync-source "Fonts" + :candidates my-font-list) + :buffer "*font selection*") + (signal 'quit nil)) (read-number "Font size: "))) (set-frame-font (format "%s:pixelsize=%d:antialias=true:autohint=true" font-name size)