Skip to content

Instantly share code, notes, and snippets.

@vfaronov

vfaronov/gist:6156902

Created August 5, 2013 15:39
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vfaronov/6156902 to your computer and use it in GitHub Desktop.
Save vfaronov/6156902 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.el
(fset 'vf-orig-kill-region (symbol-function 'kill-region))
(defadvice kill-word (before vf-before-kill-word ())
(fset 'kill-region (symbol-function 'delete-region)))
(defadvice kill-word (after vf-after-kill-word ())
(fset 'kill-region (symbol-function 'vf-orig-kill-region)))
(ad-activate 'kill-word)
(defadvice backward-kill-word (before vf-before-backward-kill-word ())
(fset 'kill-region (symbol-function 'delete-region)))
(defadvice backward-kill-word (after vf-after-backward-kill-word ())
(fset 'kill-region (symbol-function 'vf-orig-kill-region)))
(ad-activate 'backward-kill-word)
(defadvice delete-char (before vf-before-delete-char ())
(fset 'kill-region (symbol-function 'delete-region)))
(defadvice delete-char (after vf-after-delete-char ())
(fset 'kill-region (symbol-function 'vf-orig-kill-region)))
(ad-activate 'delete-char)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment