From: Alan Third <alan@idiocy.org>
Date: Thu, 31 May 2018 20:28:09 +0000 (+0100)
Subject: Add NS style text scale keybindings
X-Git-Tag: emacs-27.0.90~4952
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb8d2e064dff0dbbe71809b2ee4184fe44805258;p=emacs.git

Add NS style text scale keybindings

* lisp/term/ns-win.el: Add super-based keybindings for adjusting text
zoom.
---

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)