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

[Kim F . Storm]

Index: emacs/lisp/bindings.el
diff -c emacs/lisp/bindings.el:1.143 emacs/lisp/bindings.el:1.144
*** emacs/lisp/bindings.el:1.143        Tue Mar 22 17:16:59 2005
--- emacs/lisp/bindings.el      Tue Apr 19 09:25:32 2005
***************
*** 628,633 ****
--- 628,637 ----
  ;; (define-key ctl-x-map "n" 'narrow-to-region)
  ;; (define-key ctl-x-map "w" 'widen)
  
+ ;; Quitting
+ (define-key global-map "\e\e\e" 'keyboard-escape-quit)
+ (define-key global-map "\C-g" 'keyboard-quit)
+ 
  (define-key global-map "\C-j" 'newline-and-indent)
  (define-key global-map "\C-m" 'newline)
  (define-key global-map "\C-o" 'open-line)
***************
*** 652,660 ****
--- 656,673 ----
  ;; Many people are used to typing C-/ on X terminals and getting C-_.
  (define-key global-map [?\C-/] 'undo)
  (define-key global-map "\C-_" 'undo)
+ ;; Richard said that we should not use C-x <uppercase letter> and I have
+ ;; no idea whereas to bind it.  Any suggestion welcome.  -stef
+ ;; (define-key ctl-x-map "U" 'undo-only)
+ 
  (define-key esc-map "!" 'shell-command)
  (define-key esc-map "|" 'shell-command-on-region)
  
+ (define-key global-map [?\C-x right] 'next-buffer)
+ (define-key global-map [?\C-x C-right] 'next-buffer)
+ (define-key global-map [?\C-x left] 'prev-buffer)
+ (define-key global-map [?\C-x C-left] 'prev-buffer)
+ 
  (let ((map minibuffer-local-map))
    (define-key map "\en"   'next-history-element)
    (define-key map [next]  'next-history-element)
***************
*** 709,714 ****
--- 722,734 ----
  (define-key esc-map "g\M-g" 'goto-line)
  (define-key esc-map "gg" 'goto-line)
  
+ (define-key esc-map "gn" 'next-error)
+ (define-key esc-map "g\M-n" 'next-error)
+ (define-key ctl-x-map "`" 'next-error)
+ 
+ (define-key esc-map "gp" 'previous-error)
+ (define-key esc-map "g\M-p" 'previous-error)
+ 
  ;;(defun function-key-error ()
  ;;  (interactive)
  ;;  (error "That function key is not bound to anything"))
***************
*** 737,742 ****
--- 757,763 ----
  (define-key global-map [C-next]               'scroll-left)
  (define-key global-map [M-next]               'scroll-other-window)
  (define-key global-map [M-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)
***************
*** 1020,1025 ****
--- 1041,1048 ----
  
  (define-key ctl-x-map "z" 'repeat)
  
+ (define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window)
+ 
  ;; Don't look for autoload cookies in this file.
  ;; Local Variables:
  ;; no-update-autoloads: t