;; Much quicker, don't want it for quoting, best with CapsLock->Control

(global-set-key (kbd "C-q") 'execute-extended-command)

;; Use Control-Z for that instead

(global-set-key (kbd "C-z") 'quoted-insert)

;; Flubby fingers

(global-set-key (kbd "C-x C-u") 'advertised-undo)

;; with CapsLock->Control, this is lighting-fast.

(global-set-key (kbd "C-;") 'dabbrev-expand)

(global-set-key (kbd "M-k") 'kill-whole-line)

(global-set-key (kbd "M-j") 'join-line)

(global-set-key (kbd "C-x k") 'de-context-kill)

(global-set-key (kbd "C-x C-b") 'my-list-buffers)

(global-set-key (kbd "M-s") 'search-forward-regexp)

(global-set-key (kbd "M-r") 'search-backward-regexp)

(global-set-key (kbd "M-n") 'scroll-up)

(global-set-key (kbd "M-p") 'scroll-down)

(global-set-key (kbd "M-h") 'zap-to-char)

(global-set-key (kbd "C-c a") 'vc-annotate)

(global-set-key (kbd "C-<return>") 'fill-paragraph)

(global-set-key [mouse-7] 'scroll-up-command)

(global-set-key [mouse-6] 'scroll-down-command)

(global-set-key [(control ?\;)] 'dabbrev-expand)

(global-set-key [(meta ?\;)] 'dabbrev-expand)

(global-set-key [(control ?\\)] 'delete-blank-lines)

; Get rid of the prefix binding for C-h

(define-key (current-global-map) "\C-h" nil)

(global-set-key "" 'backward-kill-word)

(global-set-key (kbd "<f5>") 'really-revert-buffer)

(global-set-key (kbd "<f6>") 'my-clean-line)

(global-set-key (kbd "<f7>") 'ispell-word)

;; Macros!

(global-set-key (kbd "<f11>") 'kmacro-start-macro-or-insert-counter)

(global-set-key (kbd "<f12>") 'kmacro-end-or-call-macro)

(provide 'ag-keybinds)