Mercurial > dotfiles
comparison .elisp/settings/90.keybindings.el @ 289:5fd871a98b5f
emacs: start making an f4-dwim function
I've had one at work, but only now am getting around to it here.
author | Augie Fackler <raf@durin42.com> |
---|---|
date | Wed, 17 Oct 2012 08:21:15 -0500 |
parents | 3e1ec121efaf |
children | 745e7cc9c2cd |
comparison
equal
deleted
inserted
replaced
288:e00b19603472 | 289:5fd871a98b5f |
---|---|
18 (global-set-key [(meta shift f)] 'textmate-find-in-project) | 18 (global-set-key [(meta shift f)] 'textmate-find-in-project) |
19 (global-set-key [(meta m)] 'iconify-or-deiconify-frame) | 19 (global-set-key [(meta m)] 'iconify-or-deiconify-frame) |
20 (global-set-key [(control backspace)] 'kill-word) | 20 (global-set-key [(control backspace)] 'kill-word) |
21 | 21 |
22 (global-set-key [f3] 'next-error) | 22 (global-set-key [f3] 'next-error) |
23 (defun af-dwim-f4 () (interactive) | |
24 (cond ((string-match "\\.t$" buffer-file-name) | |
25 (textmate-start-compile-in-root | |
26 (concat "make " (file-name-nondirectory buffer-file-name)))))) | |
27 (global-set-key [f4] 'af-dwim-f4) | |
23 (global-set-key [f5] 'diff-apply-hunk) | 28 (global-set-key [f5] 'diff-apply-hunk) |
24 | 29 |
25 ;; M-j for jump to function definition | 30 ;; M-j for jump to function definition |
26 (global-set-key [(meta j)] 'textmate-goto-symbol) | 31 (global-set-key [(meta j)] 'textmate-goto-symbol) |
27 | 32 |