Re: copy-word-from-line-above

[HS]

In practive I found out that copying chars is slower than typing, most
of the times...
Is there any kind soul here able to work out a insert-prior-line-word
from rgb's function? :)
Cheers
HS

On 24 jan, 09:19, "rgb" <rbiel...@i1.net> wrote:
> On Jan 22, 7:02 am, "HS" <hug...@gmail.com> wrote:
>
>
>
> > 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-Somebody must have told the boss I had goof-off time!
> But I got to it this morning...
>
> (defun insert-prior-line-char (cnt)
>   "Insert the same character as in the prior line. Space if none."
>   (interactive "p")
>   (while (< 0 cnt)
>     (setq cnt (1- cnt))
>     (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))))