unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#31682: for to tags/emacs-26.2: Add NS style text scale keybindings
@ 2018-06-02  6:45 Van L
  2018-06-02  7:46 ` Eli Zaretskii
  0 siblings, 1 reply; 6+ messages in thread
From: Van L @ 2018-06-02  6:45 UTC (permalink / raw)
  To: 31682

[-- Attachment #1: Type: text/plain, Size: 220 bytes --]

Alan Third writes:

> >     ;;
> >     ;; Allow Command-Plus-or-Minus to text-scale fontsize.
> >     ;;

> I’ve attached a patch for this.

I've re-created the patch based on tags/emacs-26.1 for to 26.2.



[-- Attachment #2: 0001-Add-NS-style-text-scale-keybindings.patch --]
[-- Type: text/plain, Size: 1060 bytes --]

From 53670c6fdab102e2790ef7ff3c17bf0899d7e377 Mon Sep 17 00:00:00 2001
From: Alan Third <alan@idiocy.org>
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 eff8adcd3b..8b23cab010 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -141,6 +141,10 @@ global-map
 (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.16.1


[-- Attachment #3: 0001-Add-NS-style-text-scale-keybindings-1.patch --]
[-- Type: application/octet-stream, Size: 979 bytes --]

From b149e4608d765cb57093fff2e9534e0a368a0cc8 Mon Sep 17 00:00:00 2001
From: Van Ly <van@scratchspace.com.au>
Date: Sat, 2 Jun 2018 16:28:09 +1000
Subject: [PATCH] Add-NS-style-text-scale-keybindings-1

---
 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 76b1a41..0c59acf 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -141,6 +141,10 @@ global-map
 (define-key global-map [?\s-w] 'delete-frame)
 (define-key global-map [?\s-x] 'kill-region)
 (define-key global-map [?\s-y] 'ns-paste-secondary)
+(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-z] 'undo)
 (define-key global-map [?\s-|] 'shell-command-on-region)
 (define-key global-map [s-kp-bar] 'shell-command-on-region)
-- 
2.10.1 (Apple Git-78)


^ permalink raw reply related	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2018-06-03 19:33 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2018-06-02  6:45 bug#31682: for to tags/emacs-26.2: Add NS style text scale keybindings Van L
2018-06-02  7:46 ` Eli Zaretskii
2018-06-02  8:04   ` Van L
2018-06-02  8:53     ` Eli Zaretskii
2018-06-02 13:46       ` Van L
2018-06-03 19:33         ` Alan Third

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).