mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(next-buffer, prev-buffer, next-error)

Browse source 
(scroll-other-window, keyboard-quit, keyboard-escape-quit)
(clone-indirect-buffer-other-window): Move bindings from simple.el.
(next-buffer, prev-buffer): Add C-x C-right and C-x C-left bindings.
(next-error, previous-error): Add M-g M-n/n and M-g M-p/p bindings.
This commit is contained in:
Kim F. Storm 2005-04-19 09:25:32 +00:00
parent d063683916
commit ad1cc3463c
1 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/bindings.el
View file

@ -628,6 +628,10 @@ language you are using."
;; (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,9 +656,18 @@ language you are using."
;; 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,6 +722,13 @@ language you are using."
(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,6 +757,7 @@ language you are using."
(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,6 +1041,8 @@ language you are using."
(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