From ee7e5782333aced0070a2109185b3b6f1f303312 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 1 Feb 2014 16:27:10 -0500 Subject: Move some settings from general to editing --- lisp/init-editing.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'lisp/init-editing.el') diff --git a/lisp/init-editing.el b/lisp/init-editing.el index f5e1f9b..48a7f1e 100644 --- a/lisp/init-editing.el +++ b/lisp/init-editing.el @@ -7,11 +7,27 @@ (key-chord-define-global ";a" 'ace-jump-mode) (key-chord-define-global ",v" 'view-mode) +(eval-after-load 'view + '(progn + (define-key view-mode-map "l" 'recenter-top-bottom) + (define-key view-mode-map "a" 'ace-jump-mode))) + ;; Overrides `suspend-emacs' (which is also bound to C-x C-z). (global-set-key (kbd "C-z") 'zap-to-char) +;; http://irreal.org/blog/?p=1536 +(autoload 'zap-up-to-char "misc" + "Kill up to, but not including ARGth occurrence of CHAR.") +(global-set-key (kbd "M-z") 'zap-up-to-char) (global-set-key (kbd "C-'") 'backward-kill-word) +(global-set-key (kbd "M-/") 'hippie-expand) +;; http://www.emacswiki.org/emacs/HippieExpand#toc9 +(defadvice he-substitute-string (after he-paredit-fix activate) + "Remove extra paren when expanding line in paredit." + (if (and paredit-mode (equal (substring str -1) ")")) + (progn (backward-delete-char 1) (forward-char)))) + ;; http://www.emacswiki.org/emacs/UnfillParagraph (defun unfill-paragraph () "Takes a multi-line paragraph and makes it into a single line of text." -- cgit v1.2.3