If you look at what M-backspace calls using
C-h you see that it calls
backward-kill-word that function simply calls
kill-word with a negative argument. The
kill-word function is coded as:
(defun kill-word (arg)
"Kill characters forward until encountering the end of a word.
With argument ARG, do this that many times."
(interactive "p")
(kill-region (point) (progn (forward-word arg) (point))))
Als we een functie schrijven die hetzelfde doet met behulp van
delete-regio in plaats van kill-regio ,
krijgen we het gewenste resultaat. Hier is onze nieuwe functie
delete-word :
(defun delete-word (arg)
"Delete characters forward until encountering the end of a word.
With argument ARG, do this that many times."
(interactive "p")
(delete-region (point) (progn (forward-word arg) (point))))
We kunnen nu ons eigen backward-delete-word
schrijven met backward-kill-work als een voorbeeld als
dit:
(defun backward-delete-word (arg)
"Delete characters backward until encountering the beginning of a word.
With argument ARG, do this that many times."
(interactive "p")
(delete-word (- arg)))
afterwards all we need to do is bind this new function to !
Laat het me weten als je vragen hebt!