(defun my-kill-thing-at-point (thing) “Kill the `thing-at-point’ for the specified kind of THING.” (let ((bounds (bounds-of-thing-at-point thing))) (if bounds (kill-region (car bounds) (cdr bounds)) (error “No %s at point” thing))))
(defun my-kill-word-at-point () “Kill the word at point.” (interactive)