Re: copy-word-from-line-above

["rgb" <rbielaws@i1.net>]

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))))