1 ;; Much quicker, don't want it for quoting, best with CapsLock->Control
2 (global-set-key (kbd "C-q") 'execute-extended-command)
3 ;; Use Control-Z for that instead
4 (global-set-key (kbd "C-z") 'quoted-insert)
6 (global-set-key (kbd "C-x C-u") 'advertised-undo)
7 ;; with CapsLock->Control, this is lighting-fast.
8 (global-set-key (kbd "C-;") 'dabbrev-expand)
9 (global-set-key (kbd "M-k") 'kill-whole-line)
10 (global-set-key (kbd "M-j") 'join-line)
11 (global-set-key (kbd "C-x k") 'de-context-kill)
12 (global-set-key (kbd "C-x C-b") 'my-list-buffers)
13 (global-set-key (kbd "M-s") 'search-forward-regexp)
14 (global-set-key (kbd "M-r") 'search-backward-regexp)
15 (global-set-key (kbd "M-n") 'scroll-up)
16 (global-set-key (kbd "M-p") 'scroll-down)
17 (global-set-key (kbd "M-h") 'zap-to-char)
20 (global-set-key (kbd "C-c a") 'vc-annotate)
21 (global-set-key (kbd "C-<return>") 'fill-paragraph)
22 (global-set-key [mouse-7] 'scroll-up-command)
23 (global-set-key [mouse-6] 'scroll-down-command)
26 (global-set-key [(control ?\;)] 'dabbrev-expand)
27 (global-set-key [(meta ?\;)] 'dabbrev-expand)
28 (global-set-key [(control ?\\)] 'delete-blank-lines)
31 ; Get rid of the prefix binding for C-h
32 (define-key (current-global-map) "\C-h" nil)
33 (global-set-key "" 'backward-kill-word)
35 (global-set-key (kbd "<f5>") 'really-revert-buffer)
36 (global-set-key (kbd "<f6>") 'my-clean-line)
37 (global-set-key (kbd "<f7>") 'ispell-word)
41 (global-set-key (kbd "<f11>") 'kmacro-start-macro-or-insert-counter)
42 (global-set-key (kbd "<f12>") 'kmacro-end-or-call-macro)
44 (provide 'ag-keybinds)