Selon la documentation:
<C-delete>
exécute la commande kill-word (trouvée dans global-map), qui est une fonction Lisp interactive compilée dans ‘simple.el’
.
C'est lié <C-delete>, M-d
.
(mot ARG)
Tuez les personnages en avant jusqu'à la fin d'un mot. Avec l'argument ARG, faites cela plusieurs fois.
Maintenant, parcourons le code source:
(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))))
Ensuite, à l'intérieur de la documentation de la kill-region
fonction, nous trouvons:
Tuez ("coupez") le texte entre le point et la marque.
This deletes the text from the buffer and saves it in the kill ring
. La commande [yank] peut le récupérer à partir de là. (Si vous souhaitez enregistrer la région sans la tuer, utilisez [kill-ring-save].)
[...]
Les programmes Lisp devraient utiliser cette fonction pour tuer du texte. (Pour supprimer du texte, utilisez delete-region
.)
Maintenant, si vous voulez aller plus loin, voici une fonction que vous pouvez utiliser pour supprimer sans copier dans 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)
Avec l'aimable autorisation d' ErgoEmacs
undo
. Une conjecture sauvage, cependant.