two lisp function

my-nn

;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.


(defun my-nn ()
    "DOCSTRING"
    (interactive)
    (let (w (select-word))
      (forward-char)
      (insert w)))

(defun select-word ()
    "DOCSTRING"
  (interactive)
  (backward-char)
  (thing-at-point 'word))

tetsee.