diff options
| -rw-r--r-- | lisp/ravi-init-appearance.el | 7 | ||||
| -rw-r--r-- | lisp/ravi-init-mu.el | 1 |
2 files changed, 8 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) diff --git a/lisp/ravi-init-mu.el b/lisp/ravi-init-mu.el index d514f0f..de87132 100644 --- a/lisp/ravi-init-mu.el +++ b/lisp/ravi-init-mu.el @@ -171,6 +171,7 @@ (setq message-citation-line-function 'message-insert-formatted-citation-line) (setq message-kill-buffer-on-exit t) (setq mu4e-compose-signature-auto-include nil) + (bind-key "C-c C-d" 'ravi/erase-from-point mu4e-compose-mode-map) ;; Allow attaching files from dired (require 'gnus-dired) ;; make the `gnus-dired-mail-buffers' function also work on |