diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2014-11-10 05:53:24 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2014-11-10 05:53:24 (GMT) |
| commit | 1fc2772c4da507e4f3200dec8db390a0be7f754a (patch) | |
| tree | 4f47a44328c4f56b0b39b0e05cda497f77378c32 | |
| parent | f816cb61c00317e04b756cd9e506ed6dbc377edc (diff) | |
| download | dotemacs-1fc2772c4da507e4f3200dec8db390a0be7f754a.zip dotemacs-1fc2772c4da507e4f3200dec8db390a0be7f754a.tar.gz dotemacs-1fc2772c4da507e4f3200dec8db390a0be7f754a.tar.bz2 | |
Hungry delete everywhere
The commented out line is the preferred version once a newer version of
the package is available from MELPA.
| -rw-r--r-- | ravi-init-appearance.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/ravi-init-appearance.el b/ravi-init-appearance.el index f52164a..75a8305 100644 --- a/ravi-init-appearance.el +++ b/ravi-init-appearance.el @@ -87,6 +87,25 @@ ;; Kill the entire line, please (setq kill-whole-line t) +;; Delete hungrily +(use-package hungry-delete + :commands (hungry-delete-forward hungry-delete-backward) + :bind (("C-d" . hungry-delete-forward)) + :init + (progn + (defun jschaf/hungry-delete-backward (n &optional killflag) + "Delete non-vertical whitespace backwards on first key press. +Delete all whitespace on a successive key press." + (interactive "p\nP") + (if (eq last-command 'jschaf/hungry-delete-backward) + (hungry-delete-backward n killflag) + (let ((hungry-delete-chars-to-skip " \t\f\v")) + (hungry-delete-backward n killflag)))) + ;;(define-key global-map [remap backward-delete-char-untabify] 'jschaf/hungry-delete-backward) + (define-key global-map [remap backward-delete-char-untabify] 'hungry-delete-backward) + ) + :ensure t) + ;; Easily navigate sillycased words ;(global-subword-mode 1) |