(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) (my-kill-thing-at-point ‘word))
(global-set-key (kbd “s-k w”) ‘my-kill-word-at-point)