Re: copy-word-from-line-above

[Markus Triska]

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

> Hello!
> Thanks Triska!
> But your function would not copy symbols like '(' so I tried something,
> and think I just wrote my first defun :)

Cool; I changed "copy-region-as-kill-nomark" to "copy-region-as-kill"
to get it working. To preserve the kill ring, you can use: 

(defun insert-word-above ()
  (interactive)
  (let (string beg end)
    (save-excursion
      (let ((col (current-column)))
        (forward-line -1)
        (move-to-column col))
      (setq beg (point))
      (forward-word)
      (setq end (point)))
    (insert (buffer-substring beg end))))

All the best,
Markus Triska