From 68d8925077928422cf57625b0ad4b441e233b830 Mon Sep 17 00:00:00 2001 From: Alan Third Date: Mon, 5 Feb 2018 19:46:48 +0000 Subject: [PATCH] Tidy up NS keybindings * lisp/term/ns-win.el: Remove unneeded mappings to super-shifted keys. --- lisp/term/ns-win.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 4673af30014..ca2cc725a66 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -125,7 +125,6 @@ The properties returned may include `top', `left', `height', and `width'." (define-key global-map [?\s-h] 'ns-do-hide-emacs) (define-key global-map [?\s-H] 'ns-do-hide-others) (define-key global-map [?\M-\s-h] 'ns-do-hide-others) -(define-key key-translation-map [?\M-\s-\u02D9] [?\M-\s-h]) (define-key global-map [?\s-j] 'exchange-point-and-mark) (define-key global-map [?\s-k] 'kill-current-buffer) (define-key global-map [?\s-l] 'goto-line) @@ -144,8 +143,7 @@ The properties returned may include `top', `left', `height', and `width'." (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) -(define-key global-map [C-s- ] 'ns-do-show-character-palette) -(define-key key-translation-map [C-s-268632064] [C-s- ]) +(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) -- 2.39.2