From: Kim F. Storm Date: Tue, 19 Apr 2005 09:25:52 +0000 (+0000) Subject: (next-buffer, prev-buffer, next-error) X-Git-Tag: ttn-vms-21-2-B4~903 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfa82930a87f6d983628eaa6777b0d4a57432d86;p=emacs.git (next-buffer, prev-buffer, next-error) (scroll-other-window, keyboard-quit, keyboard-escape-quit) (clone-indirect-buffer-other-window): Move bindings to bindings.el. --- diff --git a/lisp/simple.el b/lisp/simple.el index 21a6cba0494..b595ff5b44b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -51,8 +51,6 @@ wait this many seconds after Emacs becomes idle before doing an update." "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) @@ -258,8 +256,6 @@ See variables `compilation-parse-errors-function' and (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. @@ -1398,9 +1394,6 @@ A numeric argument serves as a repeat count. 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 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. @@ -3631,7 +3624,6 @@ For more details, see the documentation for `scroll-other-window'." (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. @@ -4275,8 +4267,6 @@ At top-level, as an editor command, this simply beeps." (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 @@ -4319,7 +4309,6 @@ specification for `play-sound'." (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. @@ -5112,7 +5101,6 @@ the front of the list of recently selected ones." (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.