Secondo la documentazione:
<C-delete>
esegue il comando kill-word (trovato in global-map), che è una funzione Lisp compilata interattiva in ‘simple.el’
.
È legato a <C-delete>, M-d
.
(kill-word ARG)
Uccidi i personaggi in avanti fino a quando non trovi la fine di una parola. Con l'argomento ARG, fallo così tante volte.
Ora, sfogliamo il codice sorgente:
(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))))
Quindi, all'interno della documentazione per la kill-region
funzione troviamo:
Uccidi ("taglia") il testo tra punto e segno.
This deletes the text from the buffer and saves it in the kill ring
. Il comando [yank] può recuperarlo da lì. (Se vuoi salvare la regione senza ucciderla, usa [kill-ring-save].)
[...]
I programmi Lisp dovrebbero usare questa funzione per uccidere il testo. (Per eliminare il testo, utilizzare delete-region
.)
Ora, se vuoi andare oltre, questa è una funzione che puoi usare, per cancellare senza copiare in kill-ring:
(defun my-delete-word (arg)
"Delete characters forward until encountering the end of a word.
With argument, do this that many times.
This command does not push text to `kill-ring'."
(interactive "p")
(delete-region
(point)
(progn
(forward-word arg)
(point))))
(defun my-backward-delete-word (arg)
"Delete characters backward until encountering the beginning of a word.
With argument, do this that many times.
This command does not push text to `kill-ring'."
(interactive "p")
(my-delete-word (- arg)))
(defun my-delete-line ()
"Delete text from current position to end of line char.
This command does not push text to `kill-ring'."
(interactive)
(delete-region
(point)
(progn (end-of-line 1) (point)))
(delete-char 1))
(defun my-delete-line-backward ()
"Delete text between the beginning of the line to the cursor position.
This command does not push text to `kill-ring'."
(interactive)
(let (p1 p2)
(setq p1 (point))
(beginning-of-line 1)
(setq p2 (point))
(delete-region p1 p2)))
; bind them to emacs's default shortcut keys:
(global-set-key (kbd "C-S-k") 'my-delete-line-backward) ; Ctrl+Shift+k
(global-set-key (kbd "C-k") 'my-delete-line)
(global-set-key (kbd "M-d") 'my-delete-word)
(global-set-key (kbd "<M-backspace>") 'my-backward-delete-word)
Per gentile concessione di ErgoEmacs
undo
. Immagino selvaggio, però.