Re: copy-word-from-line-above

[Markus Triska]

"HS" <hugows@gmail.com> writes:

> insert-prior-line-word

What about:

(defun insert-word-above ()
  (interactive)
  (let (word whitespace)
    (save-excursion
      (let ((col (current-column)))
        (forward-line -1)
        (move-to-column col))
      (setq word (or (thing-at-point 'word)
                     (error "No word above")))
      (forward-word)
      (setq whitespace (or (thing-at-point 'whitespace) "")))
    (insert word whitespace)))

(global-set-key [f2] 'insert-word-above)

All the best,
Markus Triska