U kunt de ingebouwde backward-kill-sexp
gebruiken.
(global-set-key (kbd "M-DEL") 'backward-kill-sexp)
Dit heeft het ongewenste effect van het toevoegen van wat er in de kill-ring is gewist.
Om dit op te lossen, kunt u het proberen:
(defun backward-delete-sexp (arg)
(interactive "P")
(delete-region (point)
(progn (backward-sexp arg) (point))))