From b4ec9cf79c67c16096d93b4ed682d8e19278bab3 Mon Sep 17 00:00:00 2001 From: Andrii Kolomoiets Date: Mon, 12 Oct 2020 14:24:25 +0300 Subject: [PATCH] NS: Make s- to move to beginning/end of line * lisp/term/ns-win.el: Bind 's-' to 'move-beginning-of-line'; bind 's-' to 'move-end-of-line'. * etc/NEWS: Mention new bindings. --- etc/NEWS | 5 +++++ lisp/term/ns-win.el | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 8b5acafe319..68a4aac82b1 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -1957,6 +1957,11 @@ image API via 'M-x report-emacs-bug'. --- ** The user option 'make-pointer-invisible' is now honored on macOS. +-- +** On macOS, 's-' and 's-' are now bound to +'move-beginning-of-line' and 'move-end-of-line' respectively. The commands +to select previous/next frame are still bound to 's-~' and 's-`'. + ---------------------------------------------------------------------- This file is part of GNU Emacs. diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index cc7a3762b4a..8273c067f8b 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -148,9 +148,8 @@ The properties returned may include `top', `left', `height', and `width'." (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) -;; (as in Terminal.app) -(define-key global-map [s-right] 'ns-next-frame) -(define-key global-map [s-left] 'ns-prev-frame) +(define-key global-map [s-right] 'move-end-of-line) +(define-key global-map [s-left] 'move-beginning-of-line) (define-key global-map [home] 'beginning-of-buffer) (define-key global-map [end] 'end-of-buffer)