How to convert the Emacs Md command to the Mb, Md macro?

Question

I want the delete to end of word command to delete the word, regardless of the cursor position.

Answer 1

(defun my-kill-word ()
  (interactive)
  (backward-word)
  (kill-word 1))

(global-set-key (kbd "M-d") 'my-kill-word)

Answer 2

The best code could be:

(defun my-kill-word ()
   (interactive)
   (unless (looking-at "\\<")
     (backward-word))
   (kill-word 1))

(global-set-key (kbd "M-d") 'my-kill-word)

So, we move back only if we are not at the beginning of the word though.