[Emacs-diffs] /srv/bzr/emacs/trunk r100808: 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.

[Adrian Robert]

------------------------------------------------------------
revno: 100808
committer: Adrian Robert <address@hidden>
branch nick: trunk
timestamp: Tue 2010-07-13 13:41:49 +0300
message:
  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.
modified:
  lisp/ChangeLog
  lisp/simple.el
  lisp/term/ns-win.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-12 18:10:49 +0000
+++ b/lisp/ChangeLog    2010-07-13 10:41:49 +0000
@@ -1,3 +1,13 @@
+2010-07-13  Adrian Robert  <address@hidden>
+
+       * 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  <address@hidden>
 
        * language/tai-viet.el ("TaiViet"): Try to fix re-encoding

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2010-07-10 18:52:53 +0000
+++ b/lisp/simple.el    2010-07-13 10:41:49 +0000
@@ -6522,6 +6522,7 @@
        (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))

=== modified file 'lisp/term/ns-win.el'
--- a/lisp/term/ns-win.el       2010-01-13 08:35:10 +0000
+++ b/lisp/term/ns-win.el       2010-07-13 10:41:49 +0000
@@ -186,14 +186,11 @@
 
 ;;;; 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 @@
 (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)