Re: copy-word-from-line-above

["HS" <hugows@gmail.com>]

Cool! Post it here as well!
Cheers everyone!


rgb escreveu:

> 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