keydefs.el

来自「A framework written in Java for implemen」· EL 代码 · 共 650 行 · 第 1/2 页

(define-key global-map "\C-xrn" 'number-to-register)
(define-key global-map "\C-xr+" 'increment-register)
(define-key global-map "\C-xrc" 'clear-rectangle)
(define-key global-map "\C-xrk" 'kill-rectangle)
(define-key global-map "\C-xry" 'yank-rectangle)
(define-key global-map "\C-xro" 'open-rectangle)
(define-key global-map "\C-xrt" 'string-rectangle)
(define-key global-map "\C-xrw" 'window-configuration-to-register)
;(define-key global-map "\C-xrf" 'frame-configuration-to-register)

(define-key global-map "\M-q" 'fill-paragraph-or-region)
;(define-key global-map "\M-q" 'fill-paragraph)
;(define-key global-map "\M-g" 'fill-region) ;now bound to goto-line
(define-key global-map "\C-x." 'set-fill-prefix)

; Using {} instead of [] is 1) FSF compatible and 2) allows function
; keys to work on ttys.  M-[ is the beginning of most the function key
; sequences.
(define-key global-map "\M-{" 'backward-paragraph)
(define-key global-map "\M-}" 'forward-paragraph)
(define-key global-map "\M-h" 'mark-paragraph)
(define-key global-map "\M-a" 'backward-sentence)
(define-key global-map "\M-e" 'forward-sentence)
(define-key global-map "\M-k" 'kill-sentence)
;;(define-key global-map "\C-x\177" 'backward-kill-sentence)

(define-key global-map "\C-x[" 'backward-page)
(define-key global-map "\C-x]" 'forward-page)
(define-key global-map "\C-x\C-p" 'mark-page)
(define-key global-map "\C-xl" 'count-lines-page)
(define-key global-map "\C-xnp" 'narrow-to-page)
;; Old v18 bindings
;(define-key global-map "\C-xp" 'narrow-to-page)
(put 'narrow-to-page 'disabled t)

;; Old v18 bindings
;(define-key global-map "\C-x\C-a" 'add-mode-abbrev)
;(define-key global-map "\C-x+" 'add-global-abbrev)
;(define-key global-map "\C-x\C-h" 'inverse-add-mode-abbrev)
;(define-key global-map "\C-x-" 'inverse-add-global-abbrev)

(define-key global-map "\M-'" 'abbrev-prefix-mark)
(define-key global-map "\C-x'" 'expand-abbrev)

;; New FSF19 bindings: C-x a as a prefix for abbrev commands
(define-key global-map "\C-xal" 'add-mode-abbrev)
(define-key global-map "\C-xa\C-a" 'add-mode-abbrev)
(define-key global-map "\C-xag" 'add-global-abbrev)
(define-key global-map "\C-xa+" 'add-mode-abbrev)
(define-key global-map "\C-xaig" 'inverse-add-global-abbrev)
(define-key global-map "\C-xail" 'inverse-add-mode-abbrev)
(define-key global-map "\C-xa-" 'inverse-add-global-abbrev)
(define-key global-map "\C-xae" 'expand-abbrev)
(define-key global-map "\C-xa'" 'expand-abbrev)

(define-key global-map "\M-\C-l" 'switch-to-other-buffer)

;; Default binding of "Backspace" is no longer the same as delete.
;; Default binding of "Control-h" is help.
(define-key global-map 'backspace 'delete-backward-char)
(define-key global-map '(meta backspace) 'backward-kill-word)

(define-key global-map "\M-\C-z" 'activate-region)

;; FSFmacs macros.c

(define-key global-map "\C-xe" 'call-last-kbd-macro)
(define-key global-map "\C-x\(" 'start-kbd-macro)
(define-key global-map "\C-x\)" 'end-kbd-macro)

;; FSFmacs macros.el

(define-key global-map "\C-xq" 'kbd-macro-query)


;; FSFmacs minibuffer.c
; see also minibuf.el

(define-key global-map "\M-\C-c" 'exit-recursive-edit)
(define-key global-map "\C-]" 'abort-recursive-edit)
(define-key global-map "\M-x" 'execute-extended-command)

;; FSFmacs window.c

(define-key global-map "\C-x0" 'delete-window)
(define-key global-map "\C-x1" 'delete-other-windows)
(define-key global-map "\C-x2" 'split-window-vertically)
(define-key global-map "\C-x3" 'split-window-horizontally)
;; Old XEmacs binding
;;(define-key global-map "\C-x5" 'split-window-horizontally)
(define-key global-map "\C-xo" 'other-window)
(define-key global-map "\C-x^" 'enlarge-window)
(define-key global-map "\C-x<" 'scroll-left)
(define-key global-map "\C-x>" 'scroll-right)

(define-key global-map "\C-v" 'scroll-up-command)
(define-key global-map "\M-v" 'scroll-down-command)
(define-key global-map "\M-\C-v" 'scroll-other-window)
; meta-shift-V, that is.
(define-key global-map '(meta V) 'scroll-other-window-down)

(define-key global-map "\C-l" 'recenter)
(define-key global-map "\M-r" 'move-to-window-line)

;; FSFmacs window.el

(define-key global-map "\C-x6" 'window-configuration-to-register)
;(define-key global-map "\C-x7" 'jump-to-register);ie register-to-window-config
(define-key global-map "\C-x}" 'enlarge-window-horizontally)
(define-key global-map "\C-x{" 'shrink-window-horizontally)
;; New FSF19 bindings
(define-key global-map "\C-x-" 'shrink-window-if-larger-than-buffer)
(define-key global-map "\C-x+" 'balance-windows)
(define-key ctl-x-4-map "0" 'kill-buffer-and-window)

(define-key global-map "\C-g" 'keyboard-quit)
(let ((ch (quit-char)))
  (if (or (characterp ch) (integerp ch))
      (setq ch (char-to-string ch)))
  (define-key global-map ch 'keyboard-quit))
(define-key global-map "\e\e\e" 'keyboard-escape-quit)



(define-key global-map "\M-%" 'query-replace)

;; FSF v20 binding
(define-key global-map [(control meta %)] 'query-replace-regexp)


; autoloaded
;(define-key global-map "\C-x4a" 'add-change-log-entry-other-window)

; autoloaded
;(define-key global-map "\C-x`" 'next-error)

; autoloaded
;(define-key global-map "\M-/" 'dabbrev-expand)

; autoloaded
;(define-key global-map "\C-xd" 'dired)

; autoloaded
;(define-key global-map "\C-x4d" 'dired-other-window)

(define-key global-map "\M-$" 'ispell-word)

(define-key global-map "\C-xm" 'compose-mail)
(define-key global-map "\C-x4m" 'compose-mail-other-window)
(define-key global-map "\C-x5m" 'compose-mail-other-frame)

(define-key global-map "\M-." 'find-tag)

(define-key global-map "\C-x4." 'find-tag-other-window)

(define-key global-map "\M-," 'tags-loop-continue)


(define-key global-map '(control <) 'mark-beginning-of-buffer)
(define-key global-map '(control >) 'mark-end-of-buffer)

(define-key global-map "\C-x\C-e" 'eval-last-sexp) ;bogus!


(define-key global-map "\M-g" 'goto-line)

;; Keypad type things

;; I removed all the fkey crap, because where-is is now smart enough
;; to show all bindings. --ben

;;; These aren't bound to kbd macros like "\C-b" so that they have the
;; expected behavior even in, for example, vi-mode.

;; We use here symbolic names, assuming that the corresponding keys will
;; generate these keysyms.  This is not true on Suns, but x-win-sun.el 
;; fixes that.  If it turns out that the semantics of these keys should
;; differ from server to server, this should be moved into server-specific
;; files, but these appear to be the standard Motif and PC bindings.

;; movement by units
(define-key global-map 'left		'backward-char-command)
(define-key global-map 'right		'forward-char-command)
(define-key global-map 'up		'previous-line)
(define-key global-map 'down		'next-line)

(define-key global-map 'kp-left		'backward-char-command)
(define-key global-map 'kp-right	'forward-char-command)
(define-key global-map 'kp-up		'previous-line)
(define-key global-map 'kp-down		'next-line)
#|
;; movement by pages
(define-key global-map 'prior		'scroll-down-command)
(define-key global-map 'next		'scroll-up-command)
(define-key global-map '(control prior)	'scroll-right)
(define-key global-map '(control next)	'scroll-left)
(define-key global-map 'kp-prior	'scroll-down-command)
(define-key global-map 'kp-next		'scroll-up-command)
(define-key global-map '(control kp-prior) 'scroll-right)
(define-key global-map '(control kp-next) 'scroll-left)

;; movement to the limits
(define-key global-map 'home		'beginning-of-line)
(define-key global-map 'end		'end-of-line)
(define-key global-map '(control home)	'beginning-of-buffer)
(define-key global-map '(control end)	'end-of-buffer)
(define-key global-map 'kp-home		'beginning-of-line)
(define-key global-map 'kp-end		'end-of-line)
(define-key global-map '(control kp-home) 'beginning-of-buffer)
(define-key global-map '(control kp-end) 'end-of-buffer)

;; on which systems do these exist?
(define-key global-map 'begin		'beginning-of-line)
(define-key global-map '(control begin)	'beginning-of-buffer)

;; movement by larger blocks
(define-key global-map '(control left)	'backward-word)
(define-key global-map '(control right)	'forward-word)
(define-key global-map '(control up)	'backward-block-of-lines)
(define-key global-map '(control down)	'forward-block-of-lines)
(define-key global-map '(control kp-left) 'backward-word)
(define-key global-map '(control kp-right) 'forward-word)
(define-key global-map '(control kp-up)	'backward-block-of-lines)
(define-key global-map '(control kp-down) 'forward-block-of-lines)

;; context-sensitive movement
;; (meta control left/right) should be reserved for bindings that
;; switch between buffers/web pages/etc.
(define-key global-map '(meta left)	'backward-sexp)
(define-key global-map '(meta right)	'forward-sexp)
(define-key global-map '(meta up)	'backward-sentence)
(define-key global-map '(meta down)	'forward-sentence)
(define-key global-map '(meta control up) 'backward-paragraph)
(define-key global-map '(meta control down) 'forward-paragraph)
(define-key global-map '(meta control home)	'beginning-of-defun)
(define-key global-map '(meta control end)	'end-of-defun)
(define-key global-map '(meta control prior)	'backward-page)
(define-key global-map '(meta control next)	'forward-page)
(define-key global-map '(meta kp-left)  'backward-sexp)
(define-key global-map '(meta kp-right) 'forward-sexp)
(define-key global-map '(meta kp-up)	'backward-sentence)
(define-key global-map '(meta kp-down)	'forward-sentence)
(define-key global-map '(meta control kp-up) 'backward-paragraph)
(define-key global-map '(meta control kp-down) 'forward-paragraph)
(define-key global-map '(meta control kp-home)	'beginning-of-defun)
(define-key global-map '(meta control kp-end)	'end-of-defun)
(define-key global-map '(meta control kp-prior)	'backward-page)
(define-key global-map '(meta control kp-next)	'forward-page)

;; movement between windows
(define-key global-map '(control tab)	'other-window)
(define-key global-map '(control shift tab) 'backward-other-window)

;; movement in other windows
(define-key global-map '(meta next)	'scroll-other-window)
(define-key global-map '(meta prior)	'scroll-other-window-down)
(define-key global-map '(meta home)	'beginning-of-buffer-other-window)
(define-key global-map '(meta end)	'end-of-buffer-other-window)
(define-key global-map '(meta kp-next)	'scroll-other-window)
(define-key global-map '(meta kp-prior)	'scroll-other-window-down)
(define-key global-map '(meta kp-home)	'beginning-of-buffer-other-window)
(define-key global-map '(meta kp-end)	'end-of-buffer-other-window)
|#
;; the infamous delete key
(define-key global-map 'delete	        'backward-or-forward-delete-char)
#|
(define-key global-map '(meta delete)	'backward-or-forward-kill-word)
(define-key global-map [(control x) (delete)]
				        'backward-or-forward-kill-sentence)
(define-key global-map 'kp-delete	'backward-or-forward-delete-char)
(define-key global-map '(meta kp-delete) 'backward-or-forward-kill-word)
(define-key global-map [(control x) (kp-delete)]
					'backward-or-forward-kill-sentence)

;; don't try this one at home, kids.
(define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp)
(define-key global-map '(control meta kp-delete) 'backward-or-forward-kill-sexp)
;; or this one, either, on Linux.
(define-key global-map '(control meta backspace) 'backward-kill-sexp)


;;; Miscellaneous key bindings
(define-key global-map 'insert		'overwrite-mode)
(define-key global-map 'kp-insert	'overwrite-mode)
(define-key global-map 'again		'repeat-complex-command)
(define-key global-map 'redo		'repeat-complex-command)

(define-key global-map 'kp-enter	[return]) ; do whatever RET does now
(define-key global-map 'kp-tab		[tab])

(define-key global-map 'undo		'undo)
(define-key global-map 'help		'help-for-help)

(define-key global-map 'kp-space	'self-insert-command)
(define-key global-map 'kp-equal	'self-insert-command)
(define-key global-map 'kp-multiply	'self-insert-command)
(define-key global-map 'kp-add		'self-insert-command)
(define-key global-map 'kp-separator	'self-insert-command)
(define-key global-map 'kp-subtract	'self-insert-command)
(define-key global-map 'kp-decimal	'self-insert-command)
(define-key global-map 'kp-divide	'self-insert-command)

(define-key global-map 'kp-0		'self-insert-command)
(define-key global-map 'kp-1		'self-insert-command)
(define-key global-map 'kp-2		'self-insert-command)
(define-key global-map 'kp-3		'self-insert-command)
(define-key global-map 'kp-4		'self-insert-command)
(define-key global-map 'kp-5		'self-insert-command)
(define-key global-map 'kp-6		'self-insert-command)
(define-key global-map 'kp-7		'self-insert-command)
(define-key global-map 'kp-8		'self-insert-command)
(define-key global-map 'kp-9		'self-insert-command)

(define-key global-map 'select		'function-key-error)
(define-key global-map 'print		'function-key-error)
(define-key global-map 'execute		'execute-extended-command)
(define-key global-map 'clearline	'function-key-error)
(define-key global-map 'insertline	'open-line)
(define-key global-map 'deleteline	'kill-line)
(define-key global-map 'insertchar	'function-key-error)
(define-key global-map 'deletechar	'delete-char)
|#

;;; keydefs.el ends here