diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2015-05-08 04:52:16 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2015-05-08 04:52:16 (GMT) |
| commit | dc3a0d756d120256d6464b466764615d89b2dca6 (patch) | |
| tree | db67c247b506afb85448ba504f7ffa7618216bfa /lisp/ravi-init-appearance.el | |
| parent | 2dc11302d3241ae3d3e9fdc1286b03ed76cba3bc (diff) | |
| download | dotemacs-dc3a0d756d120256d6464b466764615d89b2dca6.zip dotemacs-dc3a0d756d120256d6464b466764615d89b2dca6.tar.gz dotemacs-dc3a0d756d120256d6464b466764615d89b2dca6.tar.bz2 | |
Easy buffer part erasure
Diffstat (limited to 'lisp/ravi-init-appearance.el')
| -rw-r--r-- | lisp/ravi-init-appearance.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ravi-init-appearance.el b/lisp/ravi-init-appearance.el index febb20e..fdee7fc 100644 --- a/lisp/ravi-init-appearance.el +++ b/lisp/ravi-init-appearance.el @@ -210,6 +210,13 @@ Delete all whitespace on a successive key press." (let ((mark-even-if-inactive transient-mark-mode)) (indent-region (region-beginning) (region-end) nil)))))) +(defun ravi/erase-from-point (&optional prefix) + "Erase part of buffer after point (or before point with a prefix)" + (interactive "P") + (if (consp prefix) + (delete-region (point-min) (point)) + (delete-region (point) (point-max)))) + (use-package comment-dwim-2 :bind (("M-;" . comment-dwim-2)) :ensure t) |