Emacs: copy word without selection

copy-word.el

(defun jz/copy-word
    (&optional
     arg
     )
  "Copy words at point into kill-ring.
  
  Adapted from https://www.emacswiki.org/emacs/CopyWithoutSelection#toc4
  
  The original implementation doesn't work if the cursor is at the beginning of current word. It copies one word back instead. 
  With this tweak, this function works in that case, but won't work if the current cursor is at the end of current word.
  But it's good enough for my use case because I use ace jump a lot so my cursor usually lands at the first char of the word.
  "
  (interactive "P")
  (copy-thing 'forward-word 'backward-word arg)
  )