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) ;; [EMAIL PROTECTED] 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)
_______________________________________________ Emacs-diffs mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-diffs
