[Emacs-diffs] Changes to emacs/lisp/bindings.el

[Andreas Schwab]

Index: emacs/lisp/bindings.el
diff -c emacs/lisp/bindings.el:1.146 emacs/lisp/bindings.el:1.147
*** emacs/lisp/bindings.el:1.146        Mon May 23 11:19:17 2005
--- emacs/lisp/bindings.el      Sat Jun 11 07:13:33 2005
***************
*** 751,756 ****
--- 751,757 ----
  (define-key global-map [home]         'beginning-of-line)
  (define-key global-map [C-home]               'beginning-of-buffer)
  (define-key global-map [M-home]               
'beginning-of-buffer-other-window)
+ (define-key esc-map    [home]         'beginning-of-buffer-other-window)
  (define-key global-map [left]         'backward-char)
  (define-key global-map [up]           'previous-line)
  (define-key global-map [right]                'forward-char)
***************
*** 763,775 ****
--- 764,780 ----
  (put 'scroll-left 'disabled t)
  (define-key global-map [C-next]               'scroll-left)
  (define-key global-map [M-next]               'scroll-other-window)
+ (define-key esc-map    [next]         'scroll-other-window)
  (define-key global-map [M-prior]      'scroll-other-window-down)
+ (define-key esc-map    [prior]                'scroll-other-window-down)
  (define-key esc-map [?\C-\S-v]                'scroll-other-window-down)
  (define-key global-map [end]          'end-of-line)
  (define-key global-map [C-end]                'end-of-buffer)
  (define-key global-map [M-end]                'end-of-buffer-other-window)
+ (define-key esc-map    [end]          'end-of-buffer-other-window)
  (define-key global-map [begin]                'beginning-of-buffer)
  (define-key global-map [M-begin]      'beginning-of-buffer-other-window)
+ (define-key esc-map    [begin]                
'beginning-of-buffer-other-window)
  ;; (define-key global-map [select]    'function-key-error)
  ;; (define-key global-map [print]     'function-key-error)
  (define-key global-map [execute]      'execute-extended-command)
***************
*** 933,939 ****
--- 938,946 ----
  (define-key global-map "\C-c" 'mode-specific-command-prefix)
  
  (global-set-key [M-right]  'forward-word)
+ (define-key esc-map [right] 'forward-word)
  (global-set-key [M-left]   'backward-word)
+ (define-key esc-map [left] 'backward-word)
  ;; address@hidden says these bindings are standard on PC editors.
  (global-set-key [C-right]  'forward-word)
  (global-set-key [C-left]   'backward-word)
***************
*** 943,954 ****
  ;; This is "move to the clipboard", or as close as we come.
  (global-set-key [S-delete] 'kill-region)
  
! (global-set-key [C-M-left]  'backward-sexp)
! (global-set-key [C-M-right] 'forward-sexp)
! (global-set-key [C-M-up]    'backward-up-list)
! (global-set-key [C-M-down]  'down-list)
! (global-set-key [C-M-home]  'beginning-of-defun)
! (global-set-key [C-M-end]   'end-of-defun)
  
  (define-key esc-map "\C-f" 'forward-sexp)
  (define-key esc-map "\C-b" 'backward-sexp)
--- 950,967 ----
  ;; This is "move to the clipboard", or as close as we come.
  (global-set-key [S-delete] 'kill-region)
  
! (global-set-key [C-M-left]    'backward-sexp)
! (define-key esc-map [C-left]  'backward-sexp)
! (global-set-key [C-M-right]   'forward-sexp)
! (define-key esc-map [C-right] 'forward-sexp)
! (global-set-key [C-M-up]      'backward-up-list)
! (define-key esc-map [C-up]    'backward-up-list)
! (global-set-key [C-M-down]    'down-list)
! (define-key esc-map [C-down]  'down-list)
! (global-set-key [C-M-home]    'beginning-of-defun)
! (define-key esc-map [C-home]  'beginning-of-defun)
! (global-set-key [C-M-end]     'end-of-defun)
! (define-key esc-map [C-end]   'end-of-defun)
  
  (define-key esc-map "\C-f" 'forward-sexp)
  (define-key esc-map "\C-b" 'backward-sexp)