Re: copy-word-from-line-above

[rgb]

Greg Bognar wrote:
> > I use this because its a bit more flexable. It allows you to copy exactly
> > the parts you want even if not full words.
> >
> > (global-set-key [?\C-\M-z] 'insert-prior-line-char)
> >
> > (defun insert-prior-line-char ()
> >   "Insert the same character as in the prior line. Space if none."
> >   (interactive)
> >   (let* ((cur (current-column))
> >          (char (save-excursion
> >                  (if (or (not (eq 0 (forward-line -1)))
> >                          (not (eq cur (move-to-column cur)) ))
> >                      32
> >                    (char-after)))))
> >     (insert char)))
>
> This is great, but wouldn't it be nicer if you could give it an argument?
> Then you could do, say, C-8 C-M-z and the next 8 characters would be
> inserted.

I've got my keyboard repeat rate high enough that I've not missed
that feature but it's a good idea.  Maybe I'll add that Monday when
I have time to goof of at work:-)
thanks