/[emacs]/emacs/lisp/bindings.el
ViewVC logotype

Diff of /emacs/lisp/bindings.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.146 by jet, Mon May 23 11:19:17 2005 UTC revision 1.147 by schwab, Sat Jun 11 07:13:33 2005 UTC
# Line 751  language you are using." Line 751  language you are using."
751  (define-key global-map [home]           'beginning-of-line)  (define-key global-map [home]           'beginning-of-line)
752  (define-key global-map [C-home]         'beginning-of-buffer)  (define-key global-map [C-home]         'beginning-of-buffer)
753  (define-key global-map [M-home]         'beginning-of-buffer-other-window)  (define-key global-map [M-home]         'beginning-of-buffer-other-window)
754    (define-key esc-map    [home]           'beginning-of-buffer-other-window)
755  (define-key global-map [left]           'backward-char)  (define-key global-map [left]           'backward-char)
756  (define-key global-map [up]             'previous-line)  (define-key global-map [up]             'previous-line)
757  (define-key global-map [right]          'forward-char)  (define-key global-map [right]          'forward-char)
# Line 763  language you are using." Line 764  language you are using."
764  (put 'scroll-left 'disabled t)  (put 'scroll-left 'disabled t)
765  (define-key global-map [C-next]         'scroll-left)  (define-key global-map [C-next]         'scroll-left)
766  (define-key global-map [M-next]         'scroll-other-window)  (define-key global-map [M-next]         'scroll-other-window)
767    (define-key esc-map    [next]           'scroll-other-window)
768  (define-key global-map [M-prior]        'scroll-other-window-down)  (define-key global-map [M-prior]        'scroll-other-window-down)
769    (define-key esc-map    [prior]          'scroll-other-window-down)
770  (define-key esc-map [?\C-\S-v]          'scroll-other-window-down)  (define-key esc-map [?\C-\S-v]          'scroll-other-window-down)
771  (define-key global-map [end]            'end-of-line)  (define-key global-map [end]            'end-of-line)
772  (define-key global-map [C-end]          'end-of-buffer)  (define-key global-map [C-end]          'end-of-buffer)
773  (define-key global-map [M-end]          'end-of-buffer-other-window)  (define-key global-map [M-end]          'end-of-buffer-other-window)
774    (define-key esc-map    [end]            'end-of-buffer-other-window)
775  (define-key global-map [begin]          'beginning-of-buffer)  (define-key global-map [begin]          'beginning-of-buffer)
776  (define-key global-map [M-begin]        'beginning-of-buffer-other-window)  (define-key global-map [M-begin]        'beginning-of-buffer-other-window)
777    (define-key esc-map    [begin]          'beginning-of-buffer-other-window)
778  ;; (define-key global-map [select]      'function-key-error)  ;; (define-key global-map [select]      'function-key-error)
779  ;; (define-key global-map [print]       'function-key-error)  ;; (define-key global-map [print]       'function-key-error)
780  (define-key global-map [execute]        'execute-extended-command)  (define-key global-map [execute]        'execute-extended-command)
# Line 933  language you are using." Line 938  language you are using."
938  (define-key global-map "\C-c" 'mode-specific-command-prefix)  (define-key global-map "\C-c" 'mode-specific-command-prefix)
939    
940  (global-set-key [M-right]  'forward-word)  (global-set-key [M-right]  'forward-word)
941    (define-key esc-map [right] 'forward-word)
942  (global-set-key [M-left]   'backward-word)  (global-set-key [M-left]   'backward-word)
943    (define-key esc-map [left] 'backward-word)
944  ;; ilya@math.ohio-state.edu says these bindings are standard on PC editors.  ;; ilya@math.ohio-state.edu says these bindings are standard on PC editors.
945  (global-set-key [C-right]  'forward-word)  (global-set-key [C-right]  'forward-word)
946  (global-set-key [C-left]   'backward-word)  (global-set-key [C-left]   'backward-word)
# Line 943  language you are using." Line 950  language you are using."
950  ;; This is "move to the clipboard", or as close as we come.  ;; This is "move to the clipboard", or as close as we come.
951  (global-set-key [S-delete] 'kill-region)  (global-set-key [S-delete] 'kill-region)
952    
953  (global-set-key [C-M-left]  'backward-sexp)  (global-set-key [C-M-left]    'backward-sexp)
954  (global-set-key [C-M-right] 'forward-sexp)  (define-key esc-map [C-left]  'backward-sexp)
955  (global-set-key [C-M-up]    'backward-up-list)  (global-set-key [C-M-right]   'forward-sexp)
956  (global-set-key [C-M-down]  'down-list)  (define-key esc-map [C-right] 'forward-sexp)
957  (global-set-key [C-M-home]  'beginning-of-defun)  (global-set-key [C-M-up]      'backward-up-list)
958  (global-set-key [C-M-end]   'end-of-defun)  (define-key esc-map [C-up]    'backward-up-list)
959    (global-set-key [C-M-down]    'down-list)
960    (define-key esc-map [C-down]  'down-list)
961    (global-set-key [C-M-home]    'beginning-of-defun)
962    (define-key esc-map [C-home]  'beginning-of-defun)
963    (global-set-key [C-M-end]     'end-of-defun)
964    (define-key esc-map [C-end]   'end-of-defun)
965    
966  (define-key esc-map "\C-f" 'forward-sexp)  (define-key esc-map "\C-f" 'forward-sexp)
967  (define-key esc-map "\C-b" 'backward-sexp)  (define-key esc-map "\C-b" 'backward-sexp)

Legend:
Removed from v.1.146  
changed lines
  Added in v.1.147

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26