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

[Kim F . Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.711 emacs/lisp/simple.el:1.712
*** emacs/lisp/simple.el:1.711  Sun Apr 17 17:51:50 2005
--- emacs/lisp/simple.el        Tue Apr 19 09:25:52 2005
***************
*** 51,58 ****
    "Highlight (un)matching of parens and expressions."
    :group 'matching)
  
- (define-key global-map [?\C-x right] 'next-buffer)
- (define-key global-map [?\C-x left] 'prev-buffer)
  (defun next-buffer ()
    "Switch to the next buffer in cyclic order."
    (interactive)
--- 51,56 ----
***************
*** 258,265 ****
  (defalias 'goto-next-locus 'next-error)
  (defalias 'next-match 'next-error)
  
- (define-key ctl-x-map "`" 'next-error)
- 
  (defun previous-error (&optional n)
    "Visit previous next-error message and corresponding source code.
  
--- 256,261 ----
***************
*** 1398,1406 ****
  Contrary to `undo', this will not redo a previous undo."
    (interactive "*p")
    (let ((undo-no-redo t)) (undo arg)))
- ;; 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)
  
  (defvar undo-in-progress nil
    "Non-nil while performing an undo.
--- 1394,1399 ----
***************
*** 3631,3637 ****
     (if (eq lines '-) nil
       (if (null lines) '-
         (- (prefix-numeric-value lines))))))
- (define-key esc-map [?\C-\S-v] 'scroll-other-window-down)
  
  (defun beginning-of-buffer-other-window (arg)
    "Move point to the beginning of the buffer in the other window.
--- 3624,3629 ----
***************
*** 4275,4282 ****
    (setq defining-kbd-macro nil)
    (signal 'quit nil))
  
- (define-key global-map "\C-g" 'keyboard-quit)
- 
  (defvar buffer-quit-function nil
    "Function to call to \"quit\" the current buffer, or nil if none.
  \\[keyboard-escape-quit] calls this function when its more local actions
--- 4267,4272 ----
***************
*** 4319,4325 ****
      (push 'sound sound)
      (play-sound sound)))
  
- (define-key global-map "\e\e\e" 'keyboard-escape-quit)
  
  (defcustom read-mail-command 'rmail
    "*Your preference for a mail reading package.
--- 4309,4314 ----
***************
*** 5112,5118 ****
      (set-buffer buffer)
      (clone-indirect-buffer nil t norecord)))
  
- (define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window)
  
  ;;; Handling of Backspace and Delete keys.
  
--- 5101,5106 ----