Re: copy-word-from-line-above

[Greg Bognar]

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