Commit 79cb9c05 authored by Adrian Robert's avatar Adrian Robert
Browse files

term/ns-win.el: Bind M-~ to 'ns-prev-frame (due to Matthew Dempsky; bug#5084)....

term/ns-win.el: Bind M-~ to 'ns-prev-frame (due to Matthew Dempsky; bug#5084).  Remove incorrect binding for S-tab. (ns-alternatives-map): Change S-tab binding to backtab (bug#6616).  * simple.el (normal-erase-is-backspace-setup-frame): Set mode on under ns.
parent 01faa934
2010-07-13 Adrian Robert <Adrian.B.Robert@gmail.com>
* term/ns-win.el: Bind M-~ to 'ns-prev-frame (due to Matthew
Dempsky; bug#5084). Remove incorrect binding for S-tab.
(ns-alternatives-map): Change S-tab binding to backtab
(bug#6616).
* simple.el (normal-erase-is-backspace-setup-frame): Set mode on
under ns.
2010-07-12 Andreas Schwab <schwab@linux-m68k.org>
 
* language/tai-viet.el ("TaiViet"): Try to fix re-encoding
......
......@@ -6522,6 +6522,7 @@ call `normal-erase-is-backspace-mode' (which see) instead."
(if (if (eq normal-erase-is-backspace 'maybe)
(and (not noninteractive)
(or (memq system-type '(ms-dos windows-nt))
(memq window-system '(ns))
(and (memq window-system '(x))
(fboundp 'x-backspace-delete-keys-p)
(x-backspace-delete-keys-p))
......
......@@ -186,14 +186,11 @@ The properties returned may include `top', `left', `height', and `width'."
;;;; Keyboard mapping.
;; These tell read-char how to convert these special chars to ASCII.
(put 'S-tab 'ascii-character (logior 16 ?\t))
(defvar ns-alternatives-map
(let ((map (make-sparse-keymap)))
;; Map certain keypad keys into ASCII characters
;; that people usually expect.
(define-key map [S-tab] [25])
(define-key map [S-tab] [backtab])
(define-key map [M-backspace] [?\M-\d])
(define-key map [M-delete] [?\M-\d])
(define-key map [M-tab] [?\M-\t])
......@@ -208,6 +205,7 @@ The properties returned may include `top', `left', `height', and `width'."
(define-key global-map [?\s-,] 'customize)
(define-key global-map [?\s-'] 'next-multiframe-window)
(define-key global-map [?\s-`] 'other-frame)
(define-key global-map [?\s-~] 'ns-prev-frame)
(define-key global-map [?\s--] 'center-line)
(define-key global-map [?\s-:] 'ispell)
(define-key global-map [?\s-\;] 'ispell-next)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment