[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: copy-word-from-line-above
From: |
Markus Triska |
Subject: |
Re: copy-word-from-line-above |
Date: |
Wed, 24 Jan 2007 21:21:45 +0100 |
"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
- copy-word-from-line-above, HS, 2007/01/18
- Re: copy-word-from-line-above, Marc Tfardy, 2007/01/18
- Re: copy-word-from-line-above, rgb, 2007/01/19
- Re: copy-word-from-line-above, Greg Bognar, 2007/01/21
- Re: copy-word-from-line-above, rgb, 2007/01/21
- Re: copy-word-from-line-above, HS, 2007/01/22
- Re: copy-word-from-line-above, rgb, 2007/01/24
- Re: copy-word-from-line-above, HS, 2007/01/24
- Re: copy-word-from-line-above,
Markus Triska <=
- Re: copy-word-from-line-above, HS, 2007/01/25
- Re: copy-word-from-line-above, Markus Triska, 2007/01/25
- Re: copy-word-from-line-above, rgb, 2007/01/25