Mercurial > dotfiles

comparison .elisp/settings/90.keybindings.el @ 101:0c1db2df2bf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Experimental keybindings.
author Augie Fackler <durin42@gmail.com>
date Thu, 30 Apr 2009 13:51:06 -0500
parents df45e402581c
children 34b698771af9
comparison
equal deleted inserted replaced
99:26450200777a 101:0c1db2df2bf8
9 (global-set-key "\M-l" 'goto-line) 9 (global-set-key "\M-l" 'goto-line)
10 ; Sometimes C-h is what Backspace sends in a terminal, and I never use C-h 10 ; Sometimes C-h is what Backspace sends in a terminal, and I never use C-h
11 (global-set-key "\C-h" 'backward-delete-char-untabify) 11 (global-set-key "\C-h" 'backward-delete-char-untabify)
12 ; M-t is what I want for the textmate file finding 12 ; M-t is what I want for the textmate file finding
13 (global-set-key [(meta t)] 'textmate-goto-file) 13 (global-set-key [(meta t)] 'textmate-goto-file)
14 (global-set-key [(meta z)] 'textmate-find-in-project-type) 14 (global-set-key [(meta control f)] 'textmate-find-in-project-type)
15 (global-set-key [(meta m)] 'iconify-or-deiconify-frame) 15 (global-set-key [(meta m)] 'iconify-or-deiconify-frame)
16 (global-set-key [(control backspace)] 'kill-word) 16 (global-set-key [(control backspace)] 'kill-word)
17
18 ;; M-j for jump to function definition
19 (global-set-key [(meta j)] 'ido-imenu)
20
21 ;; commit emacs heresy?
22 (global-set-key [(meta r)] 'execute-extended-command)
23
24 ;; Mac-like keybindings for undo/cut/copy/paste
25 (global-set-key [(meta c)] 'kill-ring-save)
26 (global-set-key [(meta x)] 'kill-region)
27 (global-set-key [(meta z)] 'undo)
28 (global-set-key [(meta v)] 'yank)
29 (global-set-key [M-return] 'fullscreen)
30 (global-set-key [(control v)] 'yank-pop)
31
32 ;; Fixup hooks for modes that like taking my keys back
33 (add-hook 'text-mode-hook '(lambda ()
34 (define-key text-mode-map "\M-s"
35 'save-buffer)))
36 (add-hook 'comint-mode-hook '(lambda ()
37 (local-set-key "\M-r"
38 'execute-extended-command)))
17 39
18 (defun server-save-buffer-and-finish () 40 (defun server-save-buffer-and-finish ()
19 (interactive) 41 (interactive)
20 (save-buffer) (server-edit)) 42 (save-buffer) (server-edit))
21 (add-hook 'server-switch-hook 43 (add-hook 'server-switch-hook