From fb8d2e064dff0dbbe71809b2ee4184fe44805258 Mon Sep 17 00:00:00 2001 From: Alan Third Date: Thu, 31 May 2018 21:28:09 +0100 Subject: [PATCH] Add NS style text scale keybindings * lisp/term/ns-win.el: Add super-based keybindings for adjusting text zoom. --- lisp/term/ns-win.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index eff8adcd3bc..8b23cab0100 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -141,6 +141,10 @@ The properties returned may include `top', `left', `height', and `width'." (define-key global-map [?\s-x] 'kill-region) (define-key global-map [?\s-y] 'ns-paste-secondary) (define-key global-map [?\s-z] 'undo) +(define-key global-map [?\s-+] 'text-scale-adjust) +(define-key global-map [?\s-=] 'text-scale-adjust) +(define-key global-map [?\s--] 'text-scale-adjust) +(define-key global-map [?\s-0] 'text-scale-adjust) (define-key global-map [?\s-|] 'shell-command-on-region) (define-key global-map [s-kp-bar] 'shell-command-on-region) (define-key global-map [?\C-\s- ] 'ns-do-show-character-palette) -- 2.39.5