diff options
author | Kyle Meyer <kyle@kyleam.com> | 2014-01-25 00:48:21 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2014-01-25 01:04:40 -0500 |
commit | 2c0c1f970899389025281e8968e3517fa32668d8 (patch) | |
tree | 1199bbbcd8fdf0b82b6c75ef0a65012e2d22e865 /init/km-func.el | |
parent | 1805b9124237248038fd9793fa5bbd8ba5274a72 (diff) | |
download | emacs.d-2c0c1f970899389025281e8968e3517fa32668d8.tar.gz |
Clean up init files
Diffstat (limited to 'init/km-func.el')
-rw-r--r-- | init/km-func.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/init/km-func.el b/init/km-func.el index b4f670d..c772c30 100644 --- a/init/km-func.el +++ b/init/km-func.el @@ -1,11 +1,11 @@ ;; http://whattheemacsd.com/ ;; whitespace cleanup -;; buffer-specific prevention modified from +;; Buffer-specific prevention modified from ;; http://stackoverflow.com/questions/14913398/ -;; in-emacs-how-do-i-save-without-running-save-hooks -(defvar km/prevent-cleanup nil - "If set, `km/cleanup-buffer' does not perform clean up on save") +;; in-emacs-how-do-i-save-without-running-save-hooks. +(defcustom km/prevent-cleanup nil + "If set, `km/cleanup-buffer' does not perform clean up on save.") (defun km/toggle-prevent-cleanup () "Toggle state of `km/prevent-cleanup'" @@ -102,7 +102,7 @@ user." (comment-region beg (+ end 5)) (forward-line)))) -;; kill functions +;; Kill functions (defun km/kill-string-at-point () (interactive) @@ -143,7 +143,7 @@ KILLARG." (define-key kill-map "l" 'km/kill-line-at-point) (defun km/join-next-line-with-space () - "Join current line to the next line with a space in between" + "Join current line to the next line with a space in between." (interactive) (move-end-of-line 1) (kill-line) @@ -152,14 +152,14 @@ KILLARG." (define-key kill-map "j" 'km/join-next-line-with-space) (defadvice recompile (around restore-windows) - "Prevent recompiling from spawning new windows" + "Prevent recompiling from spawning new windows." (save-window-excursion ad-do-it)) (ad-activate 'recompile) (global-set-key (kbd "C-c g") 'recompile) -;; from prelude +;; From prelude (defun km/swap-windows () "If you have 2 windows, it swaps them." (interactive) |